web-dev-qa-db-fra.com

Noms de colonne dynamiques dans les données.Table

J'essaie d'ajouter des colonnes à mon data.table, où les noms sont dynamiques. J'en plus utiliser l'argument by lors de l'ajout de ces colonnes. Par exemple:

test_dtb <- data.table(a = sample(1:100, 100), b = sample(1:100, 100), id = rep(1:10,10))
cn <- parse(text = "blah")
test_dtb[ , eval(cn) := mean(a), by = id]

# Error in `[.data.table`(test_dtb, , `:=`(eval(cn), mean(a)), by = id) : 
#  LHS of := must be a single column name when with=TRUE. When with=FALSE the LHS may be a vector of column names or positions.

Une autre tentative:

cn <- "blah"
test_dtb[ , cn := mean(a), by = id, with = FALSE]
# Error in `[.data.table`(test_dtb, , `:=`(cn, mean(a)), by = id, with = FALSE) : 'with' must be TRUE when 'by' or 'keyby' is provided

Mise à jour de Matthew:

Cela fonctionne maintenant dans V1.8.3 sur R-forge. Merci d'avoir mis en évidence!
[.____] Voir cette question similaire pour de nouveaux exemples:

Attribuez plusieurs colonnes à l'aide de données.Table, par groupe

rdata.table
34
Alex

De data.table 1.9.4, Vous pouvez simplement faire ceci:

## A parenthesized symbol, `(cn)`, gets evaluated to "blah" before `:=` is carried out
test_dtb[, (cn) := mean(a), by = id]
head(test_dtb, 4)
#     a  b id blah
# 1: 41 19  1 54.2
# 2:  4 99  2 50.0
# 3: 49 85  3 46.7
# 4: 61  4  4 57.1

Voir Détails In ?:=:

DT[i, (colvector) := val]

[...] Maintenant préféré la syntaxe [...]. Les parens suffisent pour arrêter le LHS étant un symbole; idem c(colvector)

Réponse originale :

Vous étiez sur exactement la bonne voie: Construire une expression à évaluer dans l'appel à [.data.table Est la data.table façon de faire ce genre de chose. Aller un peu plus loin, pourquoi ne pas construire une expression qui évalue vers le entier j argument (plutôt que de son côté gauche) ?

Quelque chose comme ça devrait faire l'affaire:

## Your code so far
library(data.table)
test_dtb <- data.table(a=sample(1:100, 100),b=sample(1:100, 100),id=rep(1:10,10))
cn <- "blah"

## One solution
expr <- parse(text = paste0(cn, ":=mean(a)"))
test_dtb[,eval(expr), by=id]

## Checking the result
head(test_dtb, 4)
#     a  b id blah
# 1: 30 26  1 38.4
# 2: 83 82  2 47.4
# 3: 47 66  3 39.5
# 4: 87 23  4 65.2
30
Josh O'Brien