localOldExamples/styleGrid_dailyBarplot.R

library(AirMonitorPlots)
library(gridExtra)

mon <- PWFSLSmoke::Carmel_Valley
id <- mon$meta$monitorID[1]
start1 <- "2016-06-01"
start2 <- "2016-07-01"
start3 <- "2016-08-01"
end1 <- "2016-08-08"
end2 <- "2016-08-15"
end3 <- "2016-08-25"
dbp1 <- dailyBarplot(mon, start3, end1, "pwfsl",
                     title = "Carmel Valley\n2016")
dbp2 <- dailyBarplot(mon, start3, end2, "pwfsl",
                     title = "Carmel Valley\n2016")
dbp3 <- dailyBarplot(mon, start2, end2, "pwfsl",
                     title = "Carmel Valley\n2016")
dbp4 <- dailyBarplot(mon, start1, end3, "pwfsl",
                     title = "Carmel Valley\n2016")
dbp5 <- dailyBarplot(mon, start2, end2, "month",
                     aqiStyle = "bars_lines",
                     title = "Carmel Valley\n2016")
dbp6 <- dailyBarplot(mon, start1, end3, "month",
                     aqiStyle = "bars_lines",
                     title = "Carmel Valley\n2016")
gridExtra::grid.arrange(dbp1, dbp2, dbp3, dbp4, dbp5, dbp6, nrow = 3)
MazamaScience/PWFSLSmokePlots documentation built on Oct. 11, 2019, 11:03 p.m.