MPG

library(tidyverse)

OrchardSprays %>% ggplot(aes(rowpos, decrease, color = treatment))+ geom_point(size = 1, alpha =0.7)+ geom_smooth(method = lm, se = T)+ facet_wrap(~treatment)+ labs(title = “Pesticide Efficiency in Relation to the Decrease of Concentration Volume”)