如何从r中的多个列表中追加到列表？

Question

我有4个列表：3个大小相同的填充列表和1个空列表，例如：

list1<-as.list(c(1:10))
list2<-as.list(c(101:110))
list3<-as.list(c(1001:1010))
list4<-list()

我想将前3个列表中每个列表的第i个元素附加到第4个列表中。 列表4应如下所示：

[1,101,1001,2,102,1002,....,10,110,1010]

我该怎么做呢？ 我的代码目前看起来像这样：

for (i in length(list1)){
  local({
    i<-i
    list4.append(list1[i])
    list4.append(list2[i])
    list4.append(list3[i])

  })
}

但我收到错误：

could not find function "list4.append"

Answer 1

您可以使用mapply将多个列表合并为一个。 mapply使用的函数是c

list4 <- mapply(c, list1, list2, list3, SIMPLIFY = F)

样本数据：

list1 <- as.list(c(1:10))
list2 <- as.list(c(101:110))
list3 <- as.list(c(1001:1010))

Answer 2

使用for循环中的方法，需要一些调整。

list1<-as.list(c(1:10))
list2<-as.list(c(101:110))
list3<-as.list(c(1001:1010))
list4<-list()

for (i in seq_along(list1)){
    list4 <<- append(list4, list1[i])
    list4 <<- append(list4, list2[i])
    list4 <<- append(list4, list3[i])
}

• 不要使用local ，否则你将无法修改list4
• 使用<<-分配给for循环外的list4
• append是您在对象上指定的函数。 它不能被称为python-like作为对象obj.method的方法

虽然For循环是我们可以习惯的，但在R中最好尽可能避免使用它们。

---

另一个解决方案是使用purrr包来帮助处理列表和函数编程。 你可以得到你的结果

library(purrr)
pmap(list(list1, list2, list3), c) %>% simplify()
#>  [1]    1  101 1001    2  102 1002    3  103 1003    4  104 1004    5  105
#> [15] 1005    6  106 1006    7  107 1007    8  108 1008    9  109 1009   10
#> [29]  110 1010

pmap按顺序将函数应用于列表的每个元素。 （list1的第1个，list2和list3，然后是list1的第2个，list2，list3，...） simplify就是在这里得到一个向量，_简化列表结果。