alpa ribbons

alpha_ribbon.R

head(mtcars)

a <- 0.1
ggplot(mtcars, aes(mpg, disp)) + 
  geom_smooth(method = 'lm', level = 0.99, alpha = a) +
  geom_smooth(method = 'lm', level = 0.97, alpha = a) +
  geom_smooth(method = 'lm', level = 0.94, alpha = a) +
  geom_smooth(method = 'lm', level = 0.92, alpha = a) +
  geom_smooth(method = 'lm', level = 0.90, alpha = a) +
  geom_smooth(method = 'lm', level = 0.88, alpha = a) +
  geom_smooth(method = 'lm', level = 0.86, alpha = a) +
  geom_smooth(method = 'lm', level = 0.84, alpha = a) +
  geom_smooth(method = 'lm', level = 0.82, alpha = a) +
  geom_smooth(method = 'lm', level = 0.80, alpha = a) +
  geom_smooth(method = 'lm', level = 0.78, alpha = a) +
  geom_smooth(method = 'lm', level = 0.76, alpha = a) +
  geom_smooth(method = 'lm', level = 0.74, alpha = a) +
  geom_smooth(method = 'lm', level = 0.72, alpha = a) +
  geom_smooth(method = 'lm', level = 0.70, alpha = a) +
  
  geom_point()