如何将Excel导入的混合数值与dmY格式字符日期列统一转为Ymd格式

核心思路 #

当前日期列是字符型，包含两类格式：纯数字字符串（Excel日期序列号）、dd/mm/yyyy格式的日期字符串，分别解析后合并即可。

实现代码 #

# 加载依赖包
library(dplyr)
library(lubridate)

# 示例数据
dates <- c(25678, 34758, 32474, 23443, "02/06/1999")
date_data <- data.frame(data = dates)

# 日期处理
date_data <- date_data %>%
  mutate(
    # 统一转为Date类型
    date = if_else(
      # 匹配纯数字的Excel序列号
      grepl("^\\d+$", data),
      # 解析Excel数值日期，使用指定基准
      as.Date(as.numeric(data), origin = "1899-12-30"),
      # 解析dmY格式的日期
      dmy(data)
    ),
    # 如需转为Ymd格式的字符列，添加这一步
    formatted_date = format(date, "%Y-%m-%d")
  )

结果验证 #

运行后查看formatted_date列，输出结果与预期一致：

print(date_data$formatted_date)
# 输出：[1] "1970-04-20" "1995-02-28" "1988-11-27" "1964-03-07" "1999-06-02"

说明 #

之前使用parse_date_time失败的原因是该函数仅支持解析日期字符串的文本格式，无法自动识别纯数字字符串为Excel日期序列号，因此需要手动分类处理。

注意事项 #

• 如果是Mac版Excel导出的数据，基准日期需要替换为1904-01-01
• 如果后续需要做日期计算，直接使用date列（Date类型）即可，无需转为字符格式

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