更改 geom_smooth 中的线边框颜色

Question

如何改变 中线条边框的颜色geom_smooth()？

library(ggplot2)
mtcars$cyl <- as.factor(mtcars$cyl)

ggplot(mtcars, aes(x=wt, y=mpg, color=cyl, shape=cyl)) +
  geom_point() + 
  geom_smooth(method=lm)

它应该看起来像这样：

感谢您的时间！

Answer 1

一种方法是先绘制更宽的黑线。请注意，您需要添加group = cyl才能使其正常工作。

ggplot(mtcars, aes(x=wt, y=mpg, group = cyl, color = cyl)) +
  geom_point() + 
  geom_smooth(method = lm, size = 2.5, color = "black", se = FALSE) + 
  geom_smooth(method = lm)