0

我有一个问题，我想用package openair的命令timeAverage获取降水变量的每日累积，所以我试试这个：

CovTemp <- read.table("CovPrec", header = TRUE, sep = ";", 
stringsAsFactors = FALSE, dec = ",", na.strings = "NA")

date <- ajuste_tiempos(CovPrec)
Met_CovPrec <- cbind(date, CovPrec[-c(3,4)])
Met_CovPrec$date <- as.POSIXct(strptime(Met_CovPrec$date,
                                              format = "%d/%m/%Y %H:%M", "GMT"))


Met_CovPrec_prom_day <- timeAverage(Met_CovPrec, avg.time = "day", statistic = "sum")

但结果适用于整个数据框，而不仅仅是数据列：

原始数据框CovPrec

MS_NR SS_NR 日期小时值 1 13095010 240 1/01/2014 0:00:00 NA 2 13095010 240 1/01/2014 0:10:00 NA 3 13095010 240 1/01/2014 0:20:00 NA 4 130240 2014 年 1 月 1 日 0:30:00 不适用 5 13095010 240 2014 年 1 月 1 日 0:40:00 不适用 6 13095010 240 2014 年 1 月 1 日 0:50:00 不适用

结果Met_CovPrec_prom_day：

日期 MS_NR SS_NR 值 1 2014-01-01 00:00:00 1885681440 34560 0 2 2014-01-02 00:00:00 1885681440 34560 0 3 2014-01-03 00:00:00 1885681420 1885681420 1885681420 -04 00:00:00 1885681440 34560 28 5 2014-01-05 00:00:00 1885681440 34560 2 6 2014-01-06 00:00:00 1885681440 34560 0

谢谢您的回答

4

1 回答 1

1

“timeAverage”始终适用于整个数据框。您需要选择列，尝试：

Met_CovPrec_prom_day <- timeAverage(Met_CovPrec[, c("date", "VALUE")], avg.time = "day", statistic = "sum")
于 2018-03-14T12:25:05.533 回答