geom_smooth() adds a linear regression line, and I also tweak a couple of ggplot design defaults. The graph is stored in a variable called ma_graph. ma_graph <- ggplot(ma_data, aes(x ...