# NOT RUN {
airnow_loadAnnual(2017) %>%
monitor_subset(stateCodes='MT', tlim=c(20170701,20170930)) %>%
monitor_dailyStatistic() %>%
monitor_timeseriesPlot(style = 'gnats', ylim=c(0,300), xpd=NA)
addAQIStackedBar()
addAQILines()
title("Montana 2017 -- AirNow Daily Average PM2.5")
# }
Run the code above in your browser using DataLab