宽度参数作为rollapply中的变量

我有这样一个数据帧：

df <- data.frame(width = c(1,2,2,4), values = c(10,11,13,20))

编辑：

使用十进制值： 0.1, 0.11, 0.13, 0.2

与上述宽度相同，我预计复合结果为：

0.1， 0.221, 0.254,

---

0.656

预期产量？（爱你的名字）：）谢谢。我也爱你的。在问题中添加了期望值。

rollappyr（df$values，width=df$width，sum）

？谢谢Jaap。真管用！不幸的是，我也将宽度列名作为变量传递。对不起，我之前应该提到这个。因此，当我使用语法width=df[，mycol\u name\u variable]时，它不起作用。有什么想法吗？别担心，贾普。我弄明白了，在运行rollappy函数之前，我将列重命名为static。非常感谢你的帮助。

rollapply(df[ , values_column], width = 3, function(x) rolling_compounder(x),
                                align = "right", fill = NA, partial = FALSE, by.column = FALSE)