在数据框中逐行计算比率

Question

这是我的数据框：

ID<-c(rep("A",3),rep("B",3),rep("C",3))
Var1<-sample(1:100, 9, replace=TRUE)
Var2<-sample(1:100, 9, replace=TRUE)
Var3<-sample(1:100, 9, replace=TRUE)
df<-data.frame(ID, Var1, Var2, Var3)

我想用

列明智地应用这个功能

fun<-df[7:9 , 2]/df[4:6 ,2 ]

我想对每个复制使用apply(df,2..，但我不确定如何做到这一点。

Answer 1

如果你想为每个变量按行4：6划分7：9行，你可以尝试这样的事情：

test.txt-old

Answer 2

当/被矢量化时，我们可以在不循环

的情况下执行此操作

df[7:9,-1]/df[4:6, -1]
#      Var1      Var2     Var3 
#7  0.57692308 1.0444444 1.888889
#8  0.08988764 0.4677419 1.548387
#9  0.61797753 2.6363636 0.281250