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

```{.r .cell-code}
g <- ggplot(diamonds, aes(x = carat, y = price)) + geom_point()
class(g)
```

::: {.cell-output .cell-output-stdout}

```
[1] "gg"     "ggplot"
```


:::
:::