::: {.cell layout-align="center"}

```{.r .cell-code}
ggplot(tidy_anscombe, aes(x = x, y = y, color = as.factor(group))) +
  geom_point(size=2) +
  facet_wrap(vars(group)) +
  geom_smooth(method="lm", se=FALSE, fullrange=TRUE) +
  guides(color=FALSE)
```

::: {.cell-output-display}
![](ggplot2_basics_slides_files/figure-revealjs/unnamed-chunk-36-1.png){fig-align='center' width=672}
:::
:::