如何交替提取两个列表元素合并为新列表（适配R语言不同长度场景）

通用实现方案 #

1. 无依赖极简写法（适配等长列表，推荐） #

你当前场景下两个列表长度相同、位置一一对应，用base R的原生语法就能实现自动交替拼接，完全不需要手动指定索引：

plot_list <- c(rbind(LD, SD))

实现逻辑：rbind(LD, SD)会将两个列表按行堆叠为2行N列的矩阵结构，每一列依次为LD[[i]]、SD[[i]]，再用c()对矩阵做扁平化处理时会按列优先遍历，最终得到LD[1], SD[1], LD[2], SD[2]...的交替顺序，列表长度变化时不需要修改代码。

2. 不等长列表兼容写法 #

如果后续两个列表可能出现长度不一致的情况，超出长度的元素会自动追加到列表末尾：

max_len <- max(length(LD), length(SD))
plot_list <- list()
for (i in seq_len(max_len)) {
  if (i <= length(LD)) plot_list <- c(plot_list, LD[i])
  if (i <= length(SD)) plot_list <- c(plot_list, SD[i])
}

3. purrr 生态写法 #

如果你的项目已经在使用tidyverse体系的purrr包处理列表，可以用以下写法：

library(purrr)
plot_list <- map2(LD, SD, list) %>% flatten()

内容的提问来源于stack exchange，提问作者David Viridifolius Boiss