# NOT RUN {
gf_point(mpg ~ hp, color = ~cyl, size = ~wt, data = mtcars) %>%
gf_abline(color="red", slope = -0.10, intercept = 35)
gf_point(mpg ~ hp, color = ~cyl, size = ~wt, data = mtcars) %>%
gf_abline(color = "red", slope = -0.10, intercept = 33:36) %>%
gf_hline(color = "navy", yintercept = c(20, 25)) %>%
gf_vline(color = "brown", xintercept = c(200, 300))
# }
Run the code above in your browser using DataLab