标签 r
<分区>
x <- as.data.frame(1:5)
我想用上面的数据框创建一个新列，其中有一个正在运行的产品，即第一个元素应该是
1*2*3*4*5 = 120 then
2*3*4*5 = 120 then
3*4*5 = 60
等等。
我如何在 R 中执行此操作？
结果应该是
> x[,"result"] <- c(120,120,60,20,5)
> x
1:5 result
1 1 120
2 2 120
3 3 60
4 4 20
5 5 5
最佳答案
我们可以使用cumprod
rev(cumprod(rev(x[[1]])))
#[1] 120 120 60 20 5
或者
rev(Reduce(`*`, rev(x[[1]]), accumulate = TRUE))
此外，accumulate 中有一个方便的包装器
library(tidyverse)
x %>%
mutate(result = accumulate(`1:5`, `*`, .dir = "backward"))
# 1:5 result
#1 1 120
#2 2 120
#3 3 60
#4 4 20
#5 5 5
关于在 R 中运行(累积)产品？，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/56044186/