R语言：如何统一转换列表文件数据类型为字符型解决bind_rows报错

可以通过统一转换ID列为字符型来解决类型不兼容的问题，以下是两种实用方案：

方案一：读取时指定列类型 #

若已知ID列在Excel中的位置（比如是第1列），可直接在读取时强制指定该列为字符型：

library(readxl)
library(tidyverse)

file.list <- list.files(pattern='*.xlsx', recursive = TRUE)

# 指定ID列为字符型，其余列自动识别类型
df.list <- lapply(file.list, function(x) {
  # 先获取列数，避免手动计数
  col_count <- length(read_excel(x, sheet = "Additions", n_max = 0))
  read_excel(x, sheet = "Additions", col_types = c("text", rep("guess", col_count - 1)))
})

df_all <- bind_rows(df.list, .id = "id")

方案二：读取后统一转换列类型 #

如果不确定ID列的位置，或者需要更灵活的处理，读入每个数据框后单独转换ID列：

library(readxl)
library(tidyverse)

file.list <- list.files(pattern='*.xlsx', recursive = TRUE)

df.list <- lapply(file.list, function(x) {
  read_excel(x, sheet = "Additions") %>%
    mutate(ID = as.character(ID))  # 将ID列强制转为字符型
})

df_all <- bind_rows(df.list, .id = "id")

额外提示 #

如果除了ID列还有其他列存在类型不一致的问题，可批量转换多个列：

mutate(across(c(ID, Column2, Column3), as.character))

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