r - ggplot 线条颜色 "black"变成红色

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 指定一组自己的映射。