Simplified ggplot2
ggplot(data = faithful, mapping = aes(x = eruptions)) +
geom_freqpoly(binwidth = 0.25)
![](bookclub-r4ds_files/figure-html/12-ggplot-simplified-1.png)
ggplot(faithful, aes(eruptions)) +
geom_freqpoly(binwidth = 0.25)
![](bookclub-r4ds_files/figure-html/12-ggplot-simplified-2.png)
# Or Jon's crazy way
ggplot(faithful) +
aes(eruptions) +
geom_freqpoly(binwidth = 0.25)
![](bookclub-r4ds_files/figure-html/12-ggplot-simplified-3.png)