AirMonitorPlots provides functions to easily generate stylized plots of current data.

library(AirMonitor)
library(AirMonitorPlots)
# Load current Data
mts_monitor <- monitor_loadLatest()
# Set parameters
deviceDeploymentID <- "9f7489899d373324_840060431001"
enddate <- lubridate::now()
startdate <- enddate - lubridate::ddays(7)

Timeseries

monitor_ggTimeseries(
  mts_monitor,
  startdate = startdate,
  enddate = enddate,
  id = deviceDeploymentID
)

Daily Barplots

monitor_ggDailyBarplot(
  mts_monitor,
  startdate = startdate,
  enddate = enddate,
  id = deviceDeploymentID
)

Diurnal (dailyByHour)

monitor_ggDailyByHour(
  mts_monitor,
  startdate = startdate,
  enddate = enddate,
  id = deviceDeploymentID
)