ggplot折线颜色“黑色”变为红色。

Question

我使用以下脚本制作了下面的图表。

hypttauplot <- qplot(fuclin_csf, fitHYPTTAU, data=selTAU, geom=c("smooth"),
                     method="glm", color='black', linetype=BL_HYPT) +
               theme_classic() + xlab("Time (years)") + ylab("Tau (pg/ml)") +
               scale_x_continuous(expand=c(0,0)) +
               ggtitle("A. Hypertension") +
               theme(legend.position = "none")

现在我的问题是：为什么这些线是红色的而不是黑色的？我该如何将它们改成黑色的？

注：此处涉及图片，无法进行翻译。

- Isabelle Bos

---

你能够使你的示例可重现吗？（包括一些虚假数据，可以使用R中随附的数据集） - Roman Luštrik

Answer 1

在 qplot() 中手动设置美学属性，需要使用 I() 方法，例如： colour=I("black") （设置而不是映射美学属性）。

# mapping
qplot(carat, price, data=diamonds, color="black")
# equivalent to ggplot(data=diamonds, aes(carat, price, color="black")) + geom_point()

# setting
qplot(carat, price, data=diamonds, color=I("black"))
# equivalent to ggplot(data=diamonds, aes(carat, price), color="black") + geom_point()

您可以使用scale_colour_manual来指定自己的映射集。

- rcs

---

谢谢！那是我需要的评论 :) - Isabelle Bos