在 R 中使用 geom_smooth() 在 ggplot2 图例中混合填充颜色

Question

在ggplot2使用geom_smooth()绘制两条回归曲线时，对于fill颜色，图例会选择置信区间相交的曲线。 我确实认为当重叠区域按比例大于另一个时会出现这种行为，但是我发现这很不受欢迎，因为读者能够推断出“变暗”区域是 CI 相交的区域。 恕我直言，为两条曲线指定相同的颜色有点困难或不直观。

我该如何纠正？

MWE：

library(ggplot2)

p <- ggplot(data=iris, aes(x=Sepal.Width, y=Sepal.Length)) + geom_point()
p <- p + geom_smooth(method=loess, aes(colour="Loess"), fill="yellow")
p <- p + geom_smooth(method=lm, aes(colour="LM"))

print(p)

输出：

Answer 1

您可以将填充添加为美学映射，确保将其命名为与颜色映射相同的名称以合并图例：

library(ggplot2)

ggplot(data=iris, aes(x=Sepal.Width, y=Sepal.Length)) +
  geom_point(aes(shape = "data")) +
  geom_smooth(method=loess, aes(colour="Loess", fill="Loess")) +
  geom_smooth(method=lm, aes(colour="LM", fill = "LM")) +
  scale_fill_manual(values = c("yellow", "gray"), name = "model")  +
  scale_colour_manual(values = c("red", "blue"), name = "model") +
  labs(shape = "")