假设在最后的注释中可重复显示的数据创建每周均值, zm ,然后将其合并 z 。
zm
z
(在计算它们时合并手段似乎更有意义,即 merge(z, zm) 代替标记为##的行,但为了与问题中显示的输出保持一致,它们放在下面数据的开头。)
merge(z, zm)
library(zoo) z <- read.zoo(text = Lines, header = TRUE, format = "%m/%d/%Y") zm <- rollapplyr(z, 7, by = 7, mean) merge(z, zm = zoo(coredata(zm), head(time(z), length(zm)))) ##
赠送:
z zm 1950-01-01 3.11 4.081429 1950-01-02 3.25 9.642857 1950-01-03 4.81 11.517143 1950-01-04 7.07 NA 1950-01-05 4.25 NA 1950-01-06 3.11 NA 1950-01-07 2.97 NA 1950-01-08 2.83 NA 1950-01-09 2.72 NA 1950-01-10 2.72 NA 1950-01-11 2.60 NA 1950-01-12 2.83 NA 1950-01-13 17.00 NA 1950-01-14 36.80 NA 1950-01-15 42.40 NA 1950-01-16 17.00 NA 1950-01-17 7.07 NA 1950-01-18 3.96 NA 1950-01-19 3.54 NA 1950-01-20 3.40 NA 1950-01-21 3.25 NA
的 注意: 强>
Lines <- "Date Prec 1/1/1950 3.11E+00 1/2/1950 3.25E+00 1/3/1950 4.81E+00 1/4/1950 7.07E+00 1/5/1950 4.25E+00 1/6/1950 3.11E+00 1/7/1950 2.97E+00 1/8/1950 2.83E+00 1/9/1950 2.72E+00 1/10/1950 2.72E+00 1/11/1950 2.60E+00 1/12/1950 2.83E+00 1/13/1950 1.70E+01 1/14/1950 3.68E+01 1/15/1950 4.24E+01 1/16/1950 1.70E+01 1/17/1950 7.07E+00 1/18/1950 3.96E+00 1/19/1950 3.54E+00 1/20/1950 3.40E+00 1/21/1950 3.25E+00"