New graph idea

``` r
library(tidyverse)

ggplot(data = mtcars, aes(x = mpg, y = hp)) +
geom_point()
```


^{Created on 2023-08-24 with [reprex v2.0.2](https://reprex.tidyverse.org)}