knitr::opts_chunk$set( collapse = TRUE, comment = "#>", warning = FALSE, message = FALSE, fig.width = 7, fig.height = 7 )
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)
monitor_ggTimeseries( mts_monitor, startdate = startdate, enddate = enddate, id = deviceDeploymentID )
monitor_ggDailyBarplot( mts_monitor, startdate = startdate, enddate = enddate, id = deviceDeploymentID )
monitor_ggDailyByHour( mts_monitor, startdate = startdate, enddate = enddate, id = deviceDeploymentID )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.