r - 如何从 r 中的多个列表 append 到列表？

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 个元素 append 到第 4 个列表中。 list 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))