library(AirMonitor)
layout(matrix(seq(2)))
Carmel_Valley %>% monitor_dailyBarplot()
title("(pre-2024 PM NAAQS)", line = 0)
Carmel_Valley %>% monitor_dailyBarplot(NAAQS = "PM2.5_2024")
title("(updated PM NAAQS)", line = 0)
layout(1)
Run the code above in your browser using DataLab