更改 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)