如何在R中转换特殊格式的字符型日期？

转换失败的核心原因是当前字符串为月.日.两位年的自定义分隔格式，R默认的日期解析规则无法匹配，需手动指定解析规则即可完成转换，两种常用实现方案如下：

方案1：基础R原生方法（无需额外安装包） #

使用as.Date()函数时手动指定格式参数format = "%m.%d.%y"即可：

• %m：匹配数字格式的月份
• %d：匹配数字格式的日期
• %y：匹配两位数字的年份，默认将00-69识别为2000-2069，70-99识别为1970-1999

代码示例 #

# 批量转换列名
names(df) <- as.Date(names(df), format = "%m.%d.%y")

# 测试示例
sample_names <- c("1.1.21", "12.31.20")
print(as.Date(sample_names, format = "%m.%d.%y"))
# 输出：[1] "2021-01-01" "2020-12-31"

方案2：lubridate包方法（代码更简洁，容错率更高） #

lubridate包的mdy()函数专门用于解析「月-日-年」顺序的日期字符串，会自动适配点、斜杠、横杠等常见分隔符，无需手动指定格式。

代码示例 #

# 首次使用需先安装：install.packages("lubridate")
library(lubridate)

# 批量转换列名
names(df) <- mdy(names(df))

# 测试示例
sample_names <- c("1.1.21", "12.31.20")
print(mdy(sample_names))
# 输出：[1] "2021-01-01" "2020-12-31"

异常排查 #

如果转换后出现NA值，可运行下方代码筛选出不符合格式的列名进行手动修正：

# 筛选不符合「数字.数字.两位数字」格式的列名
bad_names <- names(df)[!grepl("^\\d{1,2}\\.\\d{1,2}\\.\\d{2}$", names(df))]
print(bad_names)

注意：R数据框的列名本质为字符类型，转换得到的日期对象会自动转为YYYY-MM-DD格式的字符串作为列名。如果你需要保留原始的「月.日.年」显示格式，同时需要用到日期计算能力，可以单独存储一个和列名对应的日期向量备用，无需直接修改列名。

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