R语言bind_rows合并Excel数据时报双精度与字符类型冲突如何解决

报错原因 #

报错的核心是mxtotpr字段在不同Excel工作表中被read_excel识别为不同数据类型：部分工作表中该字段为数值型（double），第37个工作表中该字段为字符型（character），bind_rows要求同名字段数据类型一致才能完成合并，因此触发报错。

你提到的大量空行是导致类型识别不一致的直接诱因：read_excel默认会基于列的前10行内容判断数据类型，如果某张表中mxtotpr列的前10行全为空值，read_excel会默认将该列识别为字符型；而其他表中该列前10行存在有效数值时，则会被识别为数值型，最终出现类型冲突。

解决方案 #

提供两种可直接复用的处理方案：

方案1：读取时统一指定列类型（推荐）

读取Excel文件时直接指定mxtotpr列的类型，从根源避免类型识别不一致的问题，使用purrr::map_dfr可直接完成按行合并，无需单独调用bind_rows：

library(readxl)
library(dplyr)
library(purrr)

# 仅指定mxtotpr列为数值型，其余列自动识别
df <- list.files(full.names = TRUE) %>% 
  map_dfr(~ read_excel(.x, col_types = cols(mxtotpr = "numeric")))

如果多列都存在类似类型冲突问题，可先统一将所有列读取为字符型，合并后再按需转换类型，兼容性更强：

df <- list.files(full.names = TRUE) %>% 
  # 所有列统一读为字符型
  map_dfr(~ read_excel(.x, col_types = "text")) %>% 
  # 按需转换指定列为数值型，无法转换的内容会自动转为NA
  mutate(mxtotpr = as.numeric(mxtotpr))

方案2：读取后统一列类型再合并

如果不想修改读取逻辑，可在合并前批量转换所有表的mxtotpr列类型：

df <- list.files(full.names = TRUE) %>% 
  lapply(read_excel) %>% 
  # 统一将所有表的mxtotpr列转为数值型
  lapply(function(x) {
    x$mxtotpr <- as.numeric(x$mxtotpr)
    return(x)
  }) %>% 
  bind_rows()

如果需要保留该列的字符内容，只需将上述代码中的as.numeric替换为as.character即可。

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