r - 每次迭代后跳过元素乘以列的元素

Question

我在 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

Answer 1

我们可以使用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))