如何在R语言for循环中消除bind_rows合并后的NULL列表元素

你这情况是因为循环里的i从2开始，直接给df[[i]]赋值会跳过第1个位置，导致它留着初始的NULL。下面两种方法能在循环里直接避免这个问题：

方法1：用独立计数器控制索引 #

初始化一个计数器，每次循环给df的第counter位赋值，循环结束后自然不会有空元素：

library(dplyr) # 记得加载dplyr包，bind_rows依赖它

x1 <- data.frame(rnorm(5), rnorm(5))
x2 <- data.frame(rnorm(5), rnorm(5))
x3 <- data.frame(rnorm(5), rnorm(5))
list1 <- list(x1,x2,x3)

df <- list()
counter <- 1
for(i in 2:length(list1)){
  df[[counter]] <- bind_rows(list1[[1]], list1[[i]])
  counter <- counter + 1
}

这里把list1[1]改成list1[[1]]是直接提取数据框对象，比提取单元素列表更严谨。

方法2：预先设定列表长度并调整索引 #

先根据需要的结果长度初始化列表，然后用i-1作为df的索引，刚好对应非空的位置：

library(dplyr)

x1 <- data.frame(rnorm(5), rnorm(5))
x2 <- data.frame(rnorm(5), rnorm(5))
x3 <- data.frame(rnorm(5), rnorm(5))
list1 <- list(x1,x2,x3)

# 结果列表长度是原列表长度减1（只合并x1&x2、x1&x3）
df <- vector("list", length = length(list1)-1)
for(i in 2:length(list1)){
  df[[i-1]] <- bind_rows(list1[[1]], list1[[i]])
}

额外推荐：用lapply替代for循环（更简洁） #

如果不非得用for循环，lapply能一步到位，直接生成无NULL的结果列表：

library(dplyr)

x1 <- data.frame(rnorm(5), rnorm(5))
x2 <- data.frame(rnorm(5), rnorm(5))
x3 <- data.frame(rnorm(5), rnorm(5))
list1 <- list(x1,x2,x3)

df <- lapply(list1[-1], function(x) bind_rows(list1[[1]], x))

list1[-1]表示取除第一个元素外的所有元素，然后对每个元素执行和x1合并的操作。

内容的提问来源于stack exchange，提问作者Anh