R-geom_smooth，仅将SE添加一行

Question

在geom_smooth() （来自libray ggplot2 ）中，是否有办法让一条线具有置信区间（参数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_fill_manual()这样的函数来指定不同的值。

Answer 1

这应该工作：

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)