[英]Column name in variable using data.table and lapply
我有類似的數據:
set.seed(1)
testing1 <- data.table(type=c("stock","stock","bond","bond"),a=rnorm(4),b=rnorm(4),c=rnorm(4),d=rnorm(4),e=rnorm(4))
type a b c d e
1: stock -0.6264538 0.3295078 0.5757814 -0.62124058 -0.01619026
2: stock 0.1836433 -0.8204684 -0.3053884 -2.21469989 0.94383621
3: bond -0.8356286 0.4874291 1.5117812 1.12493092 0.82122120
4: bond 1.5952808 0.7383247 0.3898432 -0.04493361 0.59390132
這正是我想要的:
result1 <- testing1[,c(list(type=type),lapply(.SD, `-`, a)), .SDcols = b:e]
type b c d e
1: stock 0.9559616 1.2022352 0.00521323 0.6102635
2: stock -1.0041117 -0.4890317 -2.39834321 0.7601929
3: bond 1.3230577 2.3474098 1.96055953 1.6568498
4: bond -0.8569561 -1.2054376 -1.64021441 -1.0013795
問題是列a
是動態命名的。 我想做這樣的事情:
cn <- "a"
result2 <- testing1[,c(list(type=type), lapply(.SD, `-`, get(cn))), .SDcols = b:e]
但我收到錯誤消息: Error in FUN(X[[i]], ...) : non-numeric argument to binary operator
。
任何想法將不勝感激。 謝謝。
我們可以利用[[
從 'testing1' 中提取列。 這里.SD
將不起作用,因為該列未在.SDcols
指定
testing1[,c(list(type=type),lapply(.SD, `-`, testing1[[cn]])), .SDcols = b:e]
# type b c d e
#1: stock 0.9559616 1.2022352 0.00521323 0.6102635
#2: stock -1.0041117 -0.4890317 -2.39834321 0.7601929
#3: bond 1.3230577 2.3474098 1.96055953 1.6568498
#4: bond -0.8569561 -1.2054376 -1.64021441 -1.0013795
如果我們使用get
,請確保環境與lapply
相同,環境來自.SD
,它沒有列“a”。 而是使用Map
testing1[, Map(`-`, .SD, list(get(cn))), .SDcols = b:e]
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.