ggplot R灰度但是仍然是彩色

Question

我想创建一个置信区间均为灰色的线+点图，但是我得到了一个彩色图。

我使用了scale_fill_grey选项，但这仅在置信区间上有效，而在线和点上无效。

a<-ggplot(df, aes(x = Yr, y = SIR, color=Type, shape=Type,linetype=Type))+geom_point(size=2.5) + geom_smooth(method=lm, aes(fill=Type))

a + scale_fill_grey(start=0.8, end=0.5)+labs(x="Year", y="SIR")+theme_bw() + theme(panel.border = element_blank(), panel.grid.major = element_blank(), panel.grid.minor = element_blank(), axis.line = element_line(colour = "black"))

如何获得BW灰色图？ 谢谢！

Answer 1

要更改点和线的颜色，您需要使用colour美观而不是fill。

使用iris数据集创建相似的图并添加scale_fill_grey()只会使图的置信区域着色：

a<-ggplot(iris, aes(x = Petal.Length, y = Sepal.Length, color=Species, shape=Species,linetype=Species))+geom_point(size=2.5) + geom_smooth(method=lm, aes(fill=Species))
a + scale_fill_grey()

要获得积分，还需要添加scale_color_grey()：

a + scale_fill_grey() + scale_color_grey()

有关ggplot颜色美学的更多详细信息，请参阅文档： https://ggplot2.tidyverse.org/reference/aes_colour_fill_alpha.html