含空元素、重复列名的嵌套列表合并为单个tibble的R实现问题

初始问题：空tibble/列表导致行绑定失败 #

存在包含多层嵌套列表的数据集，其中混杂空tibble和空列表，尝试用bind_rows()合并时出现错误：

Argument x must have names.

简化数据结构示例：

a <- tibble(1:7, letters[7:1])
b <- tibble(1:7)
c <- tibble(.rows=2)

riddle <- list(list(a,b,c), list(list(a,b,c)), list(c), c)

bind_rows(riddle)

要求：无法手动编辑原始数据，优先使用purrr工具链解决。

解决方案 #

先递归扁平化嵌套列表，再过滤掉空tibble和空列表，最后合并：

library(purrr)
library(dplyr)

# 递归扁平化所有嵌套层级
flattened <- flatten(riddle, recursive = TRUE)
# 过滤空元素：排除空tibble（无行无列）和空列表
filtered <- keep(flattened, ~ !(is_tibble(.) && nrow(.) == 0 && ncol(.) == 0) && length(.) > 0)
# 合并为单个DataFrame
result <- bind_rows(filtered)

后续问题1：同名列数据类型不一致 #

解决空元素问题后，出现类型不兼容错误：

Error in `.f()`:
! Can't combine `..1$b` <character> and `..2$b` <double>.

复现代码：

a <- tibble(a=numeric(7), b=letters[7:1], c=integer(length=1))
b <- tibble(a=integer(length=1), b=as.numeric(8), c=letters[7:1])
c <- tibble(.rows = 2)

riddle <- list(list(a,b,c), list(list(a,b,c)), list(b,c), c)

map_dfr(riddle, bind_rows)

解决方案 #

先将每个tibble的所有列统一转换为字符类型，再进行合并：

# 定义函数：将tibble所有列转为字符型
tibble_to_char <- function(tbl) {
  if(is_tibble(tbl) && ncol(tbl) > 0) {
    mutate_all(tbl, as.character)
  } else {
    tbl
  }
}

# 整合处理流程：扁平化→转字符→过滤空元素→合并
result <- riddle %>%
  flatten(recursive = TRUE) %>%
  map(tibble_to_char) %>%
  keep(~ !(is_tibble(.) && nrow(.) == 0 && ncol(.) == 0) && length(.) > 0) %>%
  bind_rows()

后续问题2：重复列名处理 #

原始数据存在重复列名，需用make.unique()处理后再合并。

解决方案 #

在合并前为每个tibble的重复列名添加唯一后缀，整合所有处理步骤：

# 定义函数：处理重复列名
make_unique_cols <- function(tbl) {
  if(is_tibble(tbl) && ncol(tbl) > 0) {
    colnames(tbl) <- make.unique(colnames(tbl))
    tbl
  } else {
    tbl
  }
}

# 完整处理流程
result <- riddle %>%
  flatten(recursive = TRUE) %>%
  map(tibble_to_char) %>%
  map(make_unique_cols) %>%
  keep(~ !(is_tibble(.) && nrow(.) == 0 && ncol(.) == 0) && length(.) > 0) %>%
  bind_rows()

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