Alberta Air Monitoring Stations

Map of sampling locations

Annual Nitrogen Dioxide Bar Chart

Daily Average Nitrogen Dioxide Charts broken into airzone

Annual Ozone Bar Chart

Daily Average Ozone Charts broken into airzone

mydata = read.csv(“C:/_R/_R/PM2.5_2022.csv”, header=T) PM2.5o <- mutate(mydata, date = lubridate::ymd_hm(date)) PM2.5org <- PM2.5o PM2.5d <- timeAverage(PM2.5o, avg.time = “24 hour”, statistic = “mean”, type = “Site”) PM2.5 <- timeAverage(PM2.5o, avg.time = “year”, statistic = “mean”, type = “Site”)

mydata = read.csv(“C:/_R/_R/SO2_2022.csv”, header=T) SO2o <- mutate(mydata, date = lubridate::ymd_hm(date)) SO2org <- SO2o SO2d <- timeAverage(SO2o, avg.time = “24 hour”, statistic = “mean”, type = “Site”) SO2 <- timeAverage(SO2o, avg.time = “year”, statistic = “mean”, type = “Site”)

Annual Fine Particulate Matter Bar Chart

Daily Average Fine Particulate Matter Charts broken into airzone

Annual Sulphur Dioxide Bar Chart

Daily Average Sulphur Dioxide Charts broken into airzone