如何将字符串格式的两位年份日期正确转换为Date对象

嘿，这个问题我之前也踩过坑！你遇到的情况是因为R基础包的Date()函数在解析两位年份（yy格式）时，会直接把数字当成公元年份的后两位，不会自动推断世纪——所以17就变成了公元17年，也就是0017-01-27，这显然不是你想要的结果。

下面给你两种靠谱的解决方案：

方法一：使用lubridate包（推荐，更灵活） #

lubridate是R中处理日期时间的神器，它的函数会自动处理世纪推断，还支持自定义推断规则：

首先安装并加载包：

install.packages("lubridate")
library(lubridate)

然后用dmy()函数直接解析（默认会把00-69的两位年份推断为2000-2069，70-99推断为1970-1999）：

t2 <- "27/01/17"
dmy(t2)  # 输出："2017-01-27"

如果你的数据里两位年份的范围特殊（比如全部是2000年后的），可以手动指定pivot_year参数来调整推断规则：

# 把所有两位年份都推断为2000年及以后
dmy(t2, pivot_year = 2000)

方法二：基础R实现 #

如果你不想额外安装包，可以用strptime()先解析成POSIXlt对象，它会自动应用世纪推断规则，再转成Date对象：

t2 <- "27/01/17"
# 先解析为POSIXlt，再转Date
as.Date(strptime(t2, "%d/%m/%y"))  # 输出："2017-01-27"

或者，如果你需要手动控制世纪（比如明确要把两位年份加上2000），也可以这样处理（注意：这种方式要考虑闰年问题，不如lubridate稳妥）：

dt <- Date(t2, "dd/mm/yy")
# 给年份小于2000的日期加上2000年的天数
dt <- ifelse(as.POSIXlt(dt)$year < 100, dt + 365*2000, dt)

总结一下，lubridate的方法更简洁可靠，尤其是处理大量日期数据时，能避免很多手动调整的麻烦。

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