R 嵌套列表的元素级连接

我有一个嵌套列表

l1 <- letters
l2 <- 1:26
l3 <- LETTERS
list <- list(l1,l2,l3)

尝试：

---

user20650的解决方案可能和您将要得到的一样优雅。但无论如何，这里有一个dplyr的快速破解：

library(dplyr)

ll <- list(l1,l2,l3) # I try not to use "list" as a name. Gets confusing sometimes.

as.data.frame(ll) %>% 
  mutate(x = paste0(.[[1]], .[[2]], .[[3]])) %>% 
  .$x

# returns
 [1] "a1A"  "b2B"  "c3C"  "d4D"  "e5E"  "f6F"  "g7G"  "h8H"  "i9I"  "j10J" "k11K" "l12L"
[13] "m13M" "n14N" "o15O" "p16P" "q17Q" "r18R" "s19S" "t20T" "u21U" "v22V" "w23W" "x24X"
[25] "y25Y" "z26Z"

库（dplyr）
ll%
突变（x=0（[1]]，[2]]，[3]]）%>%
.$x
#返回
[1] “a1A”“b2B”“c3C”“d4D”“e5E”“f6F”“g7G”“h8H”“i9I”“j10J”“k11K”“l12L”
[13] “m13M”“n14N”“o15O”“p16P”“q17Q”“r18R”“s19S”“t20T”“u21U”“v22V”“w23W”“x24X”
[25]“y25Y”“z26Z”

do.call（粘贴0，列表）

这个很好。谢谢更简单：

purrr:：pmap（ll，paste0）

（）。

apply(sapply(list,paste0),1,paste0,collapse="")
[1] "a1A"  "b2B"  "c3C"  "d4D"  "e5E"  "f6F"  "g7G"  "h8H"  "i9I"  "j10J" "k11K" "l12L" "m13M" "n14N" "o15O" [16] "p16P" "q17Q" "r18R" "s19S" "t20T" "u21U" "v22V" "w23W" "x24X" "y25Y" "z26Z"

library(dplyr)

ll <- list(l1,l2,l3) # I try not to use "list" as a name. Gets confusing sometimes.

as.data.frame(ll) %>% 
  mutate(x = paste0(.[[1]], .[[2]], .[[3]])) %>% 
  .$x

# returns
 [1] "a1A"  "b2B"  "c3C"  "d4D"  "e5E"  "f6F"  "g7G"  "h8H"  "i9I"  "j10J" "k11K" "l12L"
[13] "m13M" "n14N" "o15O" "p16P" "q17Q" "r18R" "s19S" "t20T" "u21U" "v22V" "w23W" "x24X"
[25] "y25Y" "z26Z"