使用data.table計算新列

Question

，我有以下數據

set.seed(5) 
dt <- data.table(ID=letters, x = rnorm(26), y = rnorm(26), z = c(rep(15, 13), rep(20,13))) 

回報，

ID   x   y z 
1: a -0.84085548 1.41858907 15 
2: b 1.38435934 1.49877383 15 
3: c -1.25549186 -0.65708209 15 
4: d 0.07014277 -0.85279544 15 
5: e 1.71144087 0.31591504 15 
6: f -0.60290798 1.10969417 15 
7: g -0.47216639 2.21546057 15 
8: h -0.63537131 1.21710364 15 
9: i -0.28577363 1.47922179 15 
10: j 0.13810822 0.95157383 15 
11: k 1.22763034 -1.00953265 15 
12: l -0.80177945 -2.00047274 15 
13: m -1.08039260 -1.76218587 15 
14: n -0.15753436 -0.14260813 20 
15: o -1.07176004 1.55006037 20 
16: p -0.13898614 -0.80242318 20 
17: q -0.59731309 -0.07457892 20 
18: r -2.18396676 1.89566795 20 
19: s 0.24081726 -0.45656894 20 
20: t -0.25935541 0.56222336 20 
21: u 0.90051195 -0.88700851 20 
22: v 0.94186939 -0.46024458 20 
23: w 1.46796190 -0.72432849 20 
24: x 0.70676109 -0.06921116 20 
25: y 0.81900893 1.46324856 20 
26: z -0.29348185 0.18772610 20 

我將嘗試都與z將更新列x和y，在同一時間，保留列ID。也就是說，最終的輸出應包含列ID，x/z，並y/z

我嘗試下面的代碼，但它返回我的錯誤

dt[,c('x', 'y'):=lapply(.SD, function(x) x/z), .SDcols = names(dt)] 

僅供參考，有超過100列在實際數據必須除以列z。

您能否給我建議？

Answer 1

更新：問題#495與this recent commit現在問題解決了，我們現在可以做到這一點就好了：

require(data.table) # v1.9.7+ 
nam <- setdiff(names(dt), c("ID", "z"))  
dt[, (nam) := lapply(.SD, `/`, z), .SDcols = nam] 

---

nam <- setdiff(names(dt), c("ID", "z"))  
dt[, (nam) := lapply(.SD, `/`, dt[,z]), .SDcols = nam] 

請注意，我用dt[, z]內lapply由於這個data.table錯誤#495。
如果您使用.SDcols，則不能在函數調用中使用其他列。

作爲一種變通方法，直到＃495完成後，您可以使用mget()如下：

dt[, (nam) := lapply(mget(nam), `/`, z)] 

Answer 2

這不工作？

dt$x <- dt$x/dt$z 
dt$y <- dt$y/dt$z 

dt <- dt[ , seq(1, 3)] 

編輯：如果你有你有Z到分多列，可以改爲嘗試這個辦法：

dt[, seq(2, 101)] <- sapply(dt[, seq(2, 101)], '/', dt$z) 
dt <- dt[, seq(1, 101)] #replace with boundaries of your choosing 

Answer 3

如何

dt[, `:=`(x=x/z, y=y/z, z=NULL)] 

編輯：添加後到原來的問題，有超過數據表中的兩列我會與Floo0的回答