# NOT RUN {
library(ggplot2)
ggplot(MA_schools, aes(x = perc_disadvan, y = average_sat_math, color = size)) +
geom_point() +
geom_smooth(method = "lm", se = FALSE) +
labs(y = "Math SAT score", x = "Percentage economically disadvantaged", color = "School size")
# }
Run the code above in your browser using DataLab