ggplot线条颜色＆＃34;黑色＆＃34;变红了

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")

但现在我的问题是：为什么线条是红色而不是黑色？我怎样才能将它们变成黑色？

Answer 1

您必须使用I()在qplot()中手动设置美学，例如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指定一组自己的映射。