Convertir une liste de listes en un vecteur de caractères

J'ai une liste de listes de caractères. Par exemple:

l <- list(list("A"),list("B"),list("C","D"))

Donc, comme vous pouvez le voir, certains éléments sont des listes de longueur > 1.

Je veux convertir cette liste de listes à un personnage, vectoriel, mais je voudrais les listes de longueur > 1 à apparaître comme un élément unique dans le caractère de vecteur.

la unlist fonction ne permet pas d'atteindre, mais plutôt:

> unlist(l)
[1] "A" "B" "C" "D"

Est-il rien de plus rapide que:

sapply(l,function(x) paste(unlist(x),collapse=""))

Pour obtenir mon résultat souhaité:

"A"  "B"  "CD"

source d'informationauteur dan | 2016-01-06

  1. 18

    Vous pouvez ignorer les unlist étape. Vous avez déjà compris que paste0 besoins collapse = TRUE pour "lier" séquentiel des éléments d'un vecteur ensemble:

    > sapply( l, paste0, collapse="")
[1] "A"  "B"  "CD"
  2. 6

    Voici une variante de @thela de la suggestion, si vous n'avez pas l'esprit d'un multi-méthode de la ligne:

    x <- lengths(l)                                     ## Get the lengths of each list
l[x > 1] <- lapply(l[x > 1], paste0, collapse = "") ## Paste only those together
unlist(l, use.names = FALSE)                        ## Unlist the result
# [1] "A"  "B"  "CD"

    Sinon, si vous n'avez pas l'esprit à l'aide d'un package, regardez les "stringi", spécifiquement stri_flattencomme suggéré par @Jota.

    Voici une comparaison des performances:

    l <- list(list("A"), list("B"), list("B"), list("B"), list("B"),
list("C","D"), list("E","F", "G", "H"), 
as.list(rep(letters,10)), as.list(rep(letters,2)))
l <- unlist(replicate(1000, l, FALSE), recursive = FALSE)
funop <- function() sapply(l,function(x) paste(unlist(x),collapse=""))
fun42 <- function() sapply(l, paste0, collapse="")
funv  <- function() vapply(l, paste0, character(1L), collapse = "")
funam <- function() {
x <- lengths(l)
l[x > 1] <- lapply(l[x > 1], paste0, collapse = "")
unlist(l, use.names = FALSE)
}
funj <- function() sapply(l, stri_flatten)
funamj <- function() {
x <- lengths(l)
l[x > 1] <- lapply(l[x > 1], stri_flatten)
unlist(l, use.names = FALSE)
}
library(microbenchmark)
microbenchmark(funop(), fun42(), funv(), funam(), funj(), times = 20)
# Unit: milliseconds
#      expr      min       lq     mean   median       uq      max neval   cld
#   funop() 78.21822 84.79588 85.30055 85.36399 86.90540 90.48321    20     e
#   fun42() 56.16938 57.35735 61.60008 58.04969 65.82836 81.46482    20    d 
#    funv() 54.64101 56.23245 60.07896 57.26049 63.96815 78.58043    20    d 
#   funam() 45.89760 46.89890 48.99810 47.29617 48.28764 56.92544    20   c  
#    funj() 28.73405 29.94041 32.00676 30.56711 31.11448 39.93765    20  b   
#  funamj() 18.64829 19.01328 21.05989 19.12468 19.52516 32.87569    20 a

    Remarque: La relative efficacité de cette approche dépend de la façon dont beaucoup d'éléments de la liste vont avoir length(x) > 1. Si la plupart d'entre eux vont être > 1 de toute façon, alors allez simplement avec @42-'s approche. stri_flatten seulement améliore les performances si vous avez longtemps caractère vecteurs pour coller ensemble comme dans l'exemple de la liste utilisée pour la référence, sinon, il ne l'aide pas.