données données à ressembler à:
new.names <- sort(unique(DT$x)) DT[, paste0('col', new.names) := lapply(new.names, function(i) DT$x==i), with=FALSE]
3 Réponses :
Comment sur Apparemment, vous pouvez mettre Model.Matrix Code>?
modèle.matrix code> dans
[. Données. Tableau code> pour donner les mêmes résultats. Je ne sais pas si ce serait plus rapide: p>
Il y a aussi nnet :: classer.ind.ind code>
library(data.table) DT <- data.table(x=rep(1:5, 2)) # add column with id DT[, id := seq.int(nrow(DT))] # cast long table into wide DT.wide <- dcast(DT, id ~ x, value.var = "x", fill = 0, fun = function(x) 1)
Quelque chose comme
modèle.matrix code> être utile?
modèle.matrix (~ cols-1) code>