对函数中使用的数据帧的动态引用

Question

我有一个数据框架"MyFrame“，我想创建一个函数来动态引用这个数据框架中的一些元素。

A B  
1 11
2 12
3 13
4 14

我希望该函数执行以下计算

myfunction(rownumber)=(B[rownumber]-B1)/sum(B1:B[rownumber])

我正在尝试这样的方法，但它不起作用。

myfunction <- function(x) {
    myfunction <- (MyFrame$B[x]-MyFrame$B[1])/(sum(MyFrame$B[2:x])
return(myfunction)}

myfunction(4)=(14-11)/(11+12+13+14)=0.06

我想是因为引用不正确。这是怎么做到的？

Answer 1

这就是你所期望的吗？

library(data.table)
setDT(MyFrame)
MyFrame[,C:=(B[x]-B[1L])/sum(B[1:x])]