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

```{.r .cell-code  code-line-numbers="1"}
library(patchwork)

p1 <- ggplot(diamonds) + geom_point(aes(x = carat, y = price))

p2 <- ggplot(diamonds) + geom_boxplot(aes(x = cut, y = price))

p3 <- ggplot(diamonds) + geom_boxplot(aes(x = color, y = price))

p4 <- ggplot(diamonds) + geom_boxplot(aes(x = clarity, y = price))
```
:::