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)