Comment initialiser le vide de la trame de données (beaucoup de colonnes en même temps) dans la R

J'ai trouvé comment initialiser un vide de la trame de données avec 3 ou 4 dimensions. C'est comme

df <- data.frame(Date=as.Date(character()),
             File=character(), 
             User=numeric(), 
             stringsAsFactors=FALSE)

Cependant, Ce qui est le moyen le plus efficace pour initialiser des données vides.cadre avec beaucoup de noms de colonne. comme

mynames <- paste("hello", c(1:10000))

Le mauvais sens, j'ai essayé est:

df <- data.frame(mynames=numeric())

Merci beaucoup d'avance

InformationsquelleAutor Wilmer E. Henao | 2013-12-10
  1. 30

    Peut-être que cela -

    df <- data.frame(matrix(ncol = 10000, nrow = 0))
colnames(df) <- paste0("hello", c(1:10000))

    Et @joran la suggestion de - df <- setNames(data.frame(matrix(ncol = 10000, nrow = 0)),paste0("hello", c(1:10000)))

    • ouais. Cela sonne juste. Je suppose que ce que j'ai besoin est une matrice et non pas un ensemble de données.cadre. Merci
    • Si vous avez vraiment envie de le forcer dans une seule ligne, vous pouvez utiliser setNames.
    • envisager d'accepter la réponse si elle résout le problème. joran, bonne idée, mise à jour de la réponse.
    InformationsquelleAutor TheComeOnMan
  2. 0

    Je voudrais faire cela à l'aide de setDF (ou setDT, si vous préférez data.table en sortie) et setnames:

    library(data.table)

DF <- setnames(setDF(lapply(integer(1e4), function(...) character(0L))),
               paste0("hello", 1:1e4))
head(names(DF))
# [1] "hello1" "hello2" "hello3" "hello4" "hello5" "hello6"

    Les deux étapes (setnames et setDF) sont plus efficaces que les base homologues, car aucun des copies sont faites.

    Un indice:

    library(microbenchmark)

microbenchmark(times = 1000,
               base = {df <- data.frame(matrix(ncol = 10000, nrow = 0))
               colnames(df) <- paste0("hello", c(1:10000))},
               DT = setnames(setDF(lapply(integer(1e4), 
                                          function(...) character(0L))),
                             paste0("hello", 1:1e4)))
# Unit: milliseconds
#  expr      min       lq     mean   median       uq      max neval cld
#  base 26.77218 30.94223 37.30173 36.76721 37.80338 102.2379  1000   b
#    DT 16.68004 23.18865 30.60573 29.18421 36.03590 178.1045  1000  a
    InformationsquelleAutor MichaelChirico