In this vignette I want to show how easy and useful it is to use the openair package with Open AQ data.

library("ropenaq")
library("openair")
library("dplyr")

Timeplot

# useful timeplot
timePlot(mydata = measurementsNL, pollutant = "pm25")

Calendarplot

# cool calendar plot 
if(as.numeric(format(Sys.Date(), "%m")) < 2){
  calendarPlot(mydata=measurementsNL, pollutant = "pm25",
             year = as.numeric(format(Sys.Date(), "%Y")) - 1)
}else{
  calendarPlot(mydata=measurementsNL, pollutant = "pm25",
             year = as.numeric(format(Sys.Date(), "%Y")))
}