Listelerden oluşan bir listeyi

Question

karakter listelerine dönüştürme Karakter listeleri listem var. Örneğin:

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

Yani bazı unsurlar uzunlukta listeleri gördüğünüz gibi> 1.

Bir karakter vektöre listelerinin bu listeyi dönüştürmek istiyorum ama uzunlukta listeleri istiyorum > 1 karakter vektöründe tek bir eleman olarak görünecektir.

unlist işlevi yerine Bunu başarmak değil,:

"A" "B" "CD" 

Answer 1

Sen atlayabilirsiniz:

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

benim istenen sonucu almak için:

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

daha hızlı bir şey var mı liste dışı adım.

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" 

: Bir çok satırlı bir yaklaşım sakıncası yoksa Burada

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

Answer 2

, @ thela önerisi varyasyonu olan: Zaten paste0 birlikte bir vektör collapse = TRUE "bağlamak" için sıralı unsur gerekiyor anladım

Alternatif olarak, bir paket kullanmayı düşünmüyorsanız, @Jota tarafından önerilen "stringi" paketine, özellikle stri_flatten'a bakın.

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 

---

Not:

---

İşte performans karşılaştırması var bu yaklaşımın nispi verimliliği birçok liste öğeleri length(x) > 1 yaşayacaksın nasıl bağlı olacaktır. Eğer birçoğu zaten > 1 olacaksa, o zaman 42'lerin yaklaşımı ile devam edin. stri_flatten sadece, yukarıdaki kıyaslama için kullanılan örnek listesinde olduğu gibi birlikte yapıştırılacak uzun karakter vektörleriniz varsa, performansı artırır, aksi takdirde yardımcı olmaz.