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

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

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