我在 R 中有一个很大的 data.table,其中有几个带有美元值的列。在另一列中,我有一个通货膨胀调整数字。我试图弄清楚如何用它乘以通货膨胀调整栏来更新我的每个货币栏。假设我有数据:
DT <- data.table(id=1:1000,year=round(runif(1000)*10),
inc1 = runif(1000), inc2 = runif(1000), inc3 = runif(1000),
deflator = rnorm(1000))
给出输出:
id year inc1 inc2 inc3 deflator
1: 1 8 0.4754808 0.6678110 0.41533976 -0.64126988
2: 2 2 0.6568746 0.7765634 0.70616373 0.39687915
3: 3 6 0.8192947 0.9236281 0.90002534 -0.69545700
4: 4 4 0.7781929 0.1624902 0.17565790 0.05263055
5: 5 7 0.6232520 0.8024975 0.86449836 0.70781887
---
996: 996 2 0.9676383 0.2238746 0.19822000 0.78564836
997: 997 9 0.9877410 0.5783748 0.57497438 -1.63365223
998: 998 8 0.2220570 0.6500632 0.19814932 1.00260174
999: 999 3 0.4793767 0.2830457 0.54835581 1.04168818
1000: 1000 8 0.2003476 0.6121637 0.02921505 0.34933690
事实上我有inc1
- inc100
,而不仅仅是三个变量,我想找出一种执行此操作的方法:
DT[, inc1 := inc1 * deflator]
对于我的 100 个收入列中的每一个(上面的假数据中的 inc1、inc2、inc3)。我将来会有超过 100 个列,所以我想找到一种方法来在列上循环操作。有没有办法同时对所有收入栏执行此操作?
我想做这样的事情:
inc_cols = c(inc1, inc2, inc3)
DT[, inc_cols := lapply(inc_cols,function(x)= x * deflator),]
or
DT[, inc_cols := lapply(.SD,function(x)= x * deflator),.SDcols = inc_cols]
但这些似乎都不起作用。我也尝试使用get()
功能要明确deflator
是对列的引用,例如:
DT[, inc_cols := lapply(.SD,function(x)= x * get(deflator)),.SDcols = inc_cols]
但没有运气。我还尝试使用以下内容循环遍历变量:
for (var in inc_cols) {
print(var)
DT[, get(var) := get(var) *infAdj2010_mult]
}
返回
[1] "inc1"
Error in get(var) : object 'inc1' not found
我意识到这可能是一个直接的问题,我尝试在这里搜索其他问题以及各种在线指南和教程,但我找不到与我的具体问题相匹配的示例。与此类似question https://stackoverflow.com/questions/16919998/subtract-every-column-from-each-other-column-in-a-r-data-table,但不完全是。
感谢您的帮助!