R语言CSV导入日期格式转换问题：as.Date函数报错

你的问题很典型——BirthDate列是个混合了两种格式的Factor类型：一种是Excel风格的日期序列号（比如示例里的36473），另一种是dd-mm-yyyy格式的字符串。直接用as.Date()会报错，因为函数没法同时解析两种完全不同的格式。下面是具体的解决步骤：

步骤1：把Factor列转为字符向量 #

首先要把Factor类型转成字符，方便后续判断格式：

birth_char <- as.character(New_His_data$BirthDate)

步骤2：区分两种格式的元素 #

用正则表达式判断哪些是纯数字的序列号，哪些是日期字符串：

is_excel_num <- grepl("^\\d+$", birth_char)

步骤3：分别转换两种格式 #

• 对Excel序列号：先转成数值，再用as.Date()指定Excel的原点"1899-12-30"
• 对日期字符串：用as.Date()指定格式"%d-%m-%Y"来解析

代码如下：

# 初始化一个空的Date向量
birth_date <- as.Date(NA, origin = "1899-12-30")

# 转换Excel序列号部分
birth_date[is_excel_num] <- as.Date(as.numeric(birth_char[is_excel_num]), 
                                    origin = "1899-12-30")

# 转换日期字符串部分
birth_date[!is_excel_num] <- as.Date(birth_char[!is_excel_num], 
                                     format = "%d-%m-%Y")

步骤4：替换原数据列 #

把转换好的Date向量赋值回原数据框：

New_His_data$BirthDate <- birth_date

这样处理后，你的BirthDate列就会变成标准的Date类型，不管原来的元素是序列号还是字符串都能正确解析。如果有个别格式不正确的元素，会被设为NA，你可以后续再检查处理。

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