::: {.cell}

```{.r .cell-code}
ggplot()+
  theme_bw()+
  geom_abline(slope=1, intercept=0, color="grey")+
  geom_point(aes(
    Petal, Sepal),
    data=iris.long.parts)+
  facet_grid(. ~ dim, labeller=label_both)+
  coord_equal()
```

::: {.cell-output-display}
![](index_files/figure-html/iris-scatter-1.png){width=672}
:::
:::