r - 在每次迭代后跳过元素时，将列元素相乘

我在R中有一个带有一列的数据框，如下所示，我想创建一个带有一列的新数据框，其中包含现有列的元素的乘积。

Column   result
2        2*3*4*5*8*6
3        3*4*5*8*6
4        4*5*8*6
5        5*8*6
8        8*6
6        6

最佳答案

我们可以使用rev和cumprod

df$y <- rev(cumprod(rev(df$x)))
df

#  x    y
#1 2 5760
#2 3 2880
#3 4  960
#4 5  240
#5 8   48
#6 6    6

数据

df <- data.frame(x = c(2,3,4,5,8,6))