data %>%
  ggplot(aes(x = x1, y = x)) + `geom_point(colour = "red")` geom_smooth(method = "lm", fill = NA)