如何将数据集字符型日期列的两位年份转为四位年份并转为日期格式？

推荐方法：用lubridate包快速处理 #

lubridate的dmy()函数专门适配日/月/年格式的字符日期，能自动识别两位年份并按规则补全（00-69转为20xx，70-99转为19xx），刚好匹配你的需求：

# 安装并加载包（首次使用需安装）
install.packages("lubridate")
library(lubridate)

# 转换日期列
y2k_clean$Date <- dmy(y2k_clean$Date)

执行后，Date列会直接变成标准的日期类型，年份自动转为四位。

原生Base R实现 #

如果不想依赖第三方包，用as.Date()配合格式字符串即可：

# 直接转换，%y对应两位年份，自动补全为四位
y2k_clean$Date <- as.Date(y2k_clean$Date, format = "%d/%m/%y")

或者用strptime()再转成Date类型，效果一致：

y2k_clean$Date <- as.Date(strptime(y2k_clean$Date, format = "%d/%m/%y"))

你之前代码的问题 #

• 错误地用y2k_clean$Date[7:8]取列的第7-8个元素，而非每个日期字符串的第7-8位字符，正确提取每个日期的两位年份应该用substr(y2k_clean$Date, 7, 8)。
• replace()无法批量处理整个列，需要结合向量化操作才能实现批量替换，但这种方式远不如上面的日期转换函数高效。

手动替换年份的方式（不推荐） #

如果一定要用gsub()手动替换年份，可参考以下代码（仅适用于所有两位年份都需转为20xx的场景）：

# 替换末尾两位年份为20开头的四位
y2k_clean$Date <- gsub("(\\d{2})$", "20\\1", y2k_clean$Date)
# 转换为日期格式
y2k_clean$Date <- as.Date(y2k_clean$Date, format = "%d/%m/%Y")

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