向后rollapply与动物园对象

Question

假设我有一个zoo对象：

> df <- data.frame(col1=c(1,2,3,4), col2=c("a","b","c","d"))
> v <- zoo(df, order.by = df$col2)
> v
col1 col2
a 1    a   
b 2    b   
c 3    c   
d 4    d   

我可以将平均值计算为：

> rollapply(v, 2, by.column = F, function(x) { mean(as.numeric(x[,"col1"])) })
 a   b   c 
1.5 2.5 3.5 

如何在DESCENDING命令中对mean进行rollapply？ （请不要在应用常规rollapply后反转结果的解决方案）

我希望我的输出看起来像：

 d   c   b 
3.5 2.5 1.5 

Answer 1

动物园中的oo代表有序观察，这些对象总是按索引排序;但是，问题中显示的内容不是由索引排序的，因此它不能是有效的zoo对象。

此外，在问题中开始v <-的行不太可能是想要的，因为它似乎要求混合数字和字符数据。修复该行并使用显示的顺序创建数据框我们有：

library(zoo)

v <- read.zoo(df, index = "col2", FUN = c)
r <- rollapplyr(v, 2, mean)
fortify.zoo(r)[length(r):1, ]

赠送：

  Index   r
3     d 3.5
2     c 2.5
1     b 1.5

Answer 2

Per G. Grothendieck：

rollapply(rev.zoo(v), 2, by.column = F, function(x) { mean(as.numeric(x[,"col1"])) })