如何批量处理多列字符时间，统一转换为24小时制？

针对你的需求，我们可以通过批量筛选目标列+统一时间转换函数的方式高效处理，具体步骤如下：

1. 加载必要工具包 #

使用lubridate包处理时间格式，它能自动识别不同格式的字符时间：

# 若未安装先执行安装
install.packages("lubridate")
library(lubridate)

2. 编写时间转换函数 #

根据你的规则（早于12:00的时间加12小时），编写通用转换函数：

convert_to_24h <- function(time_str) {
  # 将字符时间解析为时间对象
  time_obj <- hm(time_str)
  # 对12点前的时间追加12小时
  if (hour(time_obj) < 12) {
    time_obj <- time_obj + hours(12)
  }
  # 格式化为标准24小时制字符串（若需保留时间类型可去掉format）
  format(time_obj, "%H:%M")
}

3. 筛选目标列 #

自动匹配所有以weekdays或weekend结尾的列：

target_cols <- grep("weekdays$|weekend$", colnames(data), ignore.case = TRUE, value = TRUE)

4. 批量转换时间 #

将转换函数应用到所有目标列：

data[target_cols] <- lapply(data[target_cols], convert_to_24h)

效果验证 #

以你提供的示例数据为例：

• 原数据中的"8:00"会转换为"20:00"
• "7:30"转换为"19:30"
• "07:00"转换为"19:00"
• 原本的24小时制时间（如"20:00"）保持不变

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