Atribuir várias colunas usando: = em data.table, por grupo

Qual é a melhor maneira de atribuir várias colunas usando data.table ? Por exemplo:

 f <- function(x) {c("hi", "hello")} x <- data.table(id = 1:10) 

Eu gostaria de fazer algo assim (claro que esta syntax está incorreta):

 x[ , (col1, col2) := f(), by = "id] 

E para estender isso eu posso ter muitas colunas com nomes em uma variável (digamos column_names ) e gostaria de fazer:

 x[ , col_names := another_f(), by = "id", with = FALSE] 

Qual é a maneira correta de fazer algo assim?

Isso agora funciona na v1.8.3 no R-Forge. Obrigado por destacá-lo!

 x < - data.table(a = 1:3, b = 1:6) f <- function(x) {list("hi", "hello")} x[ , c("col1", "col2") := f(), by = a][] # ab col1 col2 # 1: 1 1 hi hello # 2: 2 2 hi hello # 3: 3 3 hi hello # 4: 1 4 hi hello # 5: 2 5 hi hello # 6: 3 6 hi hello x[ , c("mean", "sum") := list(mean(b), sum(b)), by = a][] # ab col1 col2 mean sum # 1: 1 1 hi hello 2.5 5 # 2: 2 2 hi hello 3.5 7 # 3: 3 3 hi hello 4.5 9 # 4: 1 4 hi hello 2.5 5 # 5: 2 5 hi hello 3.5 7 # 6: 3 6 hi hello 4.5 9 mynames = c("Name1", "Longer%") x[ , (mynames) := list(mean(b) * 4, sum(b) * 3), by = a] # ab col1 col2 mean sum Name1 Longer% # 1: 1 1 hi hello 2.5 5 10 15 # 2: 2 2 hi hello 3.5 7 14 21 # 3: 3 3 hi hello 4.5 9 18 27 # 4: 1 4 hi hello 2.5 5 10 15 # 5: 2 5 hi hello 3.5 7 14 21 # 6: 3 6 hi hello 4.5 9 18 27 

 x[ , mynames := list(mean(b) * 4, sum(b) * 3), by = a, with = FALSE][] # same # ab col1 col2 mean sum Name1 Longer% # 1: 1 1 hi hello 2.5 5 10 15 # 2: 2 2 hi hello 3.5 7 14 21 # 3: 3 3 hi hello 4.5 9 18 27 # 4: 1 4 hi hello 2.5 5 10 15 # 5: 2 5 hi hello 3.5 7 14 21 # 6: 3 6 hi hello 4.5 9 18 27 x[ , get("mynames") := list(mean(b) * 4, sum(b) * 3), by = a][] # same # ab col1 col2 mean sum Name1 Longer% # 1: 1 1 hi hello 2.5 5 10 15 # 2: 2 2 hi hello 3.5 7 14 21 # 3: 3 3 hi hello 4.5 9 18 27 # 4: 1 4 hi hello 2.5 5 10 15 # 5: 2 5 hi hello 3.5 7 14 21 # 6: 3 6 hi hello 4.5 9 18 27 x[ , eval(mynames) := list(mean(b) * 4, sum(b) * 3), by = a][] # same # ab col1 col2 mean sum Name1 Longer% # 1: 1 1 hi hello 2.5 5 10 15 # 2: 2 2 hi hello 3.5 7 14 21 # 3: 3 3 hi hello 4.5 9 18 27 # 4: 1 4 hi hello 2.5 5 10 15 # 5: 2 5 hi hello 3.5 7 14 21 # 6: 3 6 hi hello 4.5 9 18 27 

A seguinte notação abreviada pode ser útil. Todo o crédito vai para Andrew Brooks, especificamente este artigo .

 dt[,`:=`(avg=mean(mpg), med=median(mpg), min=min(mpg)), by=cyl]