如何在R中批量将Excel数字格式日期列转换为日期格式

方法一：用dplyr + janitor批量处理 #

先加载依赖包，通过正则表达式精准匹配目标列，结合mutate()+across()完成批量转换。如果目标列是字符型存储的Excel数字，记得先转成数值型：

library(dplyr)
library(janitor)

# 假设数据集名为df，匹配B_Date_*和V_Date_*格式的列
df <- df %>%
  mutate(across(
    .cols = matches("^(B|V)_Date_\\d+$"),
    .fns = ~ excel_numeric_to_date(as.numeric(.x), date_system = "modern")
  ))

• date_system参数：默认是"modern"（对应Windows Excel的1900日期系统），如果是Mac旧版Excel（2011年前），改成"mac pre-2011"。
• 若目标列已是数值型，可去掉as.numeric()，直接用~excel_numeric_to_date(.x, date_system = "modern")。

方法二：Base R + janitor实现批量转换 #

适合习惯base R语法的场景，先筛选目标列名，再用lapply()批量处理：

library(janitor)

# 筛选符合命名规则的目标列名
target_cols <- grep("^(B|V)_Date_\\d+$", colnames(df), value = TRUE)

# 批量转换列
df[target_cols] <- lapply(df[target_cols], function(col) {
  excel_numeric_to_date(as.numeric(col), date_system = "modern")
})

常见问题排查 #

1. 列匹配失败：用colnames(df)确认列名格式，比如如果列名是B_Date1而非B_Date_1，需要调整正则表达式为"^(B|V)_Date\\d+$"。
2. 转换报错：如果提示输入不是数值，说明目标列是字符型，必须保留as.numeric()转换步骤。
3. 日期偏差：检查date_system参数是否匹配你的Excel版本，比如Mac旧版Excel会用1904日期系统，对应参数"mac pre-2011"。

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