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)