foo.md

library(ggplot2)

ggplot(mpg, aes(displ, hwy, colour = displ > 4)) +
  geom_point() +
  geom_smooth()
#> `geom_smooth()` using method = 'loess' and formula 'y ~ x'

^{Created on 2019-04-25 by the reprex package (v0.2.1)}