R ggplot2 在有组的情况下将平滑线拟合到所有数据

Question

以下代码使每个组在散点图上具有不同颜色的点。

df = mtcars

df$cyl = factor(df$cyl)

ggplot(df, aes(x = mpg, y = disp, colour = cyl, group = cyl)) + 
  geom_point(size = 5) + 
  geom_smooth()

但是，当我添加平滑线时 - 会为每个组创建一条平滑线。如何为所有数据添加平滑线，同时保留不同的组颜色？

Answer 1

更改颜色和组的位置即可

    df %>%
    ggplot( aes(x = mpg, y = disp)) + 
      geom_point(size = 5, aes(colour = cyl, group = cyl)) + 
      geom_smooth()