R语言Excel日期导入后年份转换错误，求优雅解决方案

核心问题 #

Excel日期系统以1900年1月1日为起始点，而R的as.Date()默认以1970年1月1日为基准，直接转换Excel生成的日期序列号（44XXXX格式）会导致日期偏移，因此出现2093年的错误结果。

简洁解决方案 #

1. 导入时直接解析日期（推荐） #

使用readxl包的read_excel()函数导入文件时，直接指定日期列类型，避免生成序列号：

library(readxl)
library(dplyr)
library(here)

# 直接指定列类型为日期
df <- read_excel(here("你的文件名称.xlsx"), 
                 col_types = list(visit_date = "date"))

# 或让函数自动识别（加大样本量提升准确率）
df <- read_excel(here("你的文件名称.xlsx"), guess_max = 1000)

2. 导入后修正序列号 #

如果已得到44XXXX格式的数值，减去Excel与R起始日期的差值（25569天）即可：

df <- df %>%
  mutate(visit_date = as.Date(as.numeric(visit_date) - 25569))

验证：08-Sep-23对应的Excel序列号是44835，44835-25569=19266，as.Date(19266)结果为2023-09-08，符合预期。

3. 用lubridate包快速转换 #

lubridate提供了专门处理Excel日期的函数，一步完成转换：

library(lubridate)
library(dplyr)

df <- df %>%
  mutate(visit_date = excel_numeric_to_date(as.numeric(visit_date)))

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