R-几何平滑，仅为一条线添加se

在

geom_smooth（）

（来自Libraryggplot2）中，是否有一种方法可以获得一条线的置信区间（参数

se=T

），而不是另一条线的置信区间

mpg %>% 
   filter(class %in% c('compact', 'midsize')) %>% 
   ggplot(aes(x = displ, y = as.numeric(hwy), color = class)) + 
      geom_smooth(se = T)

在下图中，我希望保留蓝线的置信区间，但删除红线的置信区间。由于

se

参数不在

aes（）

函数中，因此我无法在其中传递不同的值。 此外，没有像

scale\u fill\u manual（）

这样的函数来指定不同的值

这应该可以：

mpg %>% 
  filter(class %in% c('compact', 'midsize')) %>% 
  ggplot(aes(x = displ, y = as.numeric(hwy), color = class)) + 
  geom_smooth(data = . %>% filter(class == "compact"), method = "loess", se = F) +
  geom_smooth(data = . %>% filter(class == "midsize"), method = "loess", se = T)