# NOT RUN {
data(SAT)
if (require(ggformula)) {
gf_point(sat ~ expend, data = SAT, color = "blue", alpha = 0.5) %>%
gf_lm()
gf_text(sat ~ expend, data = SAT, label = ~ abbreviate(SAT$state, 3),
inherit = FALSE)
}
# }
Run the code above in your browser using DataLab