如何让 R 包 Openair 中的 rollingMean 函数工作？答案

【问题标题】：How to get rollingMean function in R package Openair to work?如何让 R 包 Openair 中的 rollingMean 函数工作？
【发布时间】：2020-02-07 02:15:53
【问题描述】：

我正在尝试使用以下代码使用 rollingMean 函数获取 o3 的 8 小时滚动平均值：

mydata <- rollingMean(mydata, pollutant = "o3", hours = 8)
breaks <- c(0, 34, 66, 100, 121, 141, 160, 188, 214, 240, 500)
labels <- c("Low.1", "Low.2", "Low.3", "Moderate.4", "Moderate.5", "Moderate.6",
"High.7", "High.8", "High.9", "Very High.10")
calendarPlot(mydata, pollutant = "rolling8o3",breaks = breaks, labels = labels, cols = "jet", statistic = "max"

但我不断收到此错误消息：

Error in strsplit(interval, split = " ") : non-character argument
In addition: Warning message:
In diff(as.numeric(unique(dates[order(dates)]))) :
  NAs introduced by coercion

如果我对 R 很陌生，我将不胜感激。谢谢

【问题讨论】：

标签： r openair

【解决方案1】：

如果您使用 data(mydata) 从包中附加 mydata，它应该可以工作。

library(openair)
data(mydata)
mydata <- rollingMean(mydata, pollutant = "o3", hours = 8)
breaks <- c(0, 34, 66, 100, 121, 141, 160, 188, 214, 240, 500)
labels <- c("Low.1", "Low.2", "Low.3", "Moderate.4", "Moderate.5", "Moderate.6",
            "High.7", "High.8", "High.9", "Very High.10")
calendarPlot(mydata, pollutant = "rolling8o3",breaks = breaks, labels = labels, cols = "jet", statistic = "max")

【讨论】：