Контроль ровнее и доверительный интервал

Question

Я ссылаюсь на этот вопрос SO 2 года назад, с ggplot: Adjust Transparency (alpha) of stat_smooth lines, not just transparency of Confidence Interval

Первый метод, предложенный позволяет установить альфа-прозрачность только доверительный интервал:

ggplot(head(airquality, 60), aes(x=Day, y=Temp, color=factor(Month))) + 
    geom_point() + stat_smooth(method = "lm", se=TRUE, alpha=1.0) 

Второй метод позволяет установить альфа-прозрачность для самой линии, но вы свободно доверительный интервал в Тем временем, даже с se=TRUE:

ggplot(head(airquality, 60), aes(x=Day, y=Temp, color=factor(Month))) + 
    geom_point() + geom_line(stat='smooth', method = "lm", se=TRUE, alpha=0.3) 

Мой вопрос: Как контролировать прозрачность как сглаживающий линии и доверительного интервала?

Answer 1

Это вычисляет модель в два раза. Но обычно это не должно быть проблемой производительности.

ggplot(head(airquality, 60), aes(x=Day, y=Temp, color=factor(Month))) + 
    geom_point() + 
    geom_ribbon(stat='smooth', method = "lm", se=TRUE, alpha=0.1, 
       aes(color = NULL, group = factor(Month))) + 
    geom_line(stat='smooth', method = "lm", alpha=0.3)