我使用以下脚本制作了下面的图表。
注:此处涉及图片,无法进行翻译。
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")
现在我的问题是:为什么这些线是红色的而不是黑色的?我该如何将它们改成黑色的?
注:此处涉及图片,无法进行翻译。