在R中修改列表内数据框列类型及解决bind_rows合并报错问题

方法1：读取文件时统一转换列类型 #

直接在读取Excel文件的环节，就把ride_length列统一转换成数值型（如果是时间格式，先转成时间对象再转成秒数）。

首先安装并加载hms包（用于处理时间字符串）：

install.packages("hms")
library(hms)

修改读取代码：

files <- list.files(pattern=".xlsx")
# 遍历文件读取并统一处理列类型
combined_2023 <- setNames(lapply(files, function(file) {
  df <- read.xlsx(file)
  # 统一将ride_length转换为秒数的数值型
  if (is.character(df$ride_length)) {
    df$ride_length <- as.numeric(hms(df$ride_length))
  } else {
    df$ride_length <- as.numeric(df$ride_length)
  }
  df
}), files)
# 再合并
combined_23 <- bind_rows(combined_2023)

方法2：合并前批量处理所有数据框 #

如果已经读取了文件，也可以先遍历列表中的每个数据框，统一修正ride_length的类型后再合并：

library(hms)
# 清理每个数据框的ride_length列
combined_2023_cleaned <- lapply(combined_2023, function(df) {
  # 处理字符型的ride_length
  if (is.character(df$ride_length)) {
    # 先清理可能的异常字符（比如空格、文字）
    df$ride_length <- gsub("[^0-9:.]", "", df$ride_length)
    # 转成时间后再转成数值（秒数）
    df$ride_length <- as.numeric(hms(df$ride_length))
  }
  # 确保所有列都是数值型
  df$ride_length <- as.numeric(df$ride_length)
  df
})
# 合并处理后的数据框
combined_23 <- bind_rows(combined_2023_cleaned)

方法3：排查Excel中的异常值 #

你在Excel里改格式没用，大概率是该列存在异常内容（比如空格、文字、空单元格格式不对）。打开那个有问题的Excel文件，筛选ride_length列，检查是否有非时间/数值的单元格，清理后再导入R，能从源头避免问题。

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