r - 将上面一行按下面一行划分

Question

我有以下输入数据框:

df1 <- data.frame(row.names=c("AA","BB","CC","DD","EE"), A=c(0.90,0.75,0.65,0.55,0.45), B=c(0.80,0.75,0.60,0.60,0.45))

Row  A   B
AA   0.90 0.80
BB   0.75 0.75
CC   0.65 0.60
DD   0.55 0.60
EE   0.45 0.45

有没有办法将 AA 行中的值除以 BB 行中的值(0.90/0.75 = 1.200)。然后，我希望将 BB 行中的这个新值除以 CC 行中的值(1.2/0.65 = 1.846)等，以生成以下输出数据帧:

Row  A     B
A   0.900 1.067
B   1.200 1.067
C   1.846 1.778 
D   3.357 2.963
E   7.459 6.584

我真的很头疼这个，所以非常感谢任何帮助。

谢谢你们!

Answer 1

你可以使用一个简单的 for循环或 cumprod :

df2 <- df1
for (i in 2:nrow(df2)) {
  df2[i, ] <- df2[i-1,]/df2[i,]
}

根据您的列数， cumprod方法应该快很多:

df3 <- df1
df3$A <- cumprod(c(df3[1, "A"], 1/df3[-1, "A"]))
df3$B <- cumprod(c(df3[1, "B"], 1/df3[-1, "B"]))

all.equal(df2, df3)
# TRUE