I have a problem with my data being useable, but not quite as good as I would like it. This will become clear as we go on. But first, let’s look at the AQE 2020 data for PM10:

Using ggplot I have created a vector called pm10: pm10 <- ggplot(data=aqe2020, mapping = aes(x=PM10)) and plot that with pm10+geom_bar() we get the following chart:

The geom_bar() chart is fine, but it’s not telling us anything we haven’t seen before. The best way for now is to add some colour. The next chart will have the same shape and it will be filled by month.

pm10_month <- ggplot(data=aqe2020, mapping = aes(x=PM10, fill=month))

pm10_month + geom_bar() + labs(title=”AQE 2020 PM10 geom_bar() filled by month”)

This is improving. As I’m not colour blind, I can…