# NOT RUN {
library(AirSensor)
library(ggplot2)
df <-
pat_aggregateOutlierCounts(example_pat_failure_A)
# Plot the counts
multi_ggplot(
# A Channel
ggplot(df, aes(x = datetime, y = pm25_A_outlierCount)) + geom_point(),
# B Channel
ggplot(df, aes(x = datetime, y = pm25_B_outlierCount)) + geom_point(),
# Humidity
ggplot(df, aes(x = datetime, y = humidity_outlierCount)) + geom_point(),
# Temperature
ggplot(df, aes(x = datetime, y = temperature_outlierCount)) + geom_point()
)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab