在R中转换特定格式文本日期为目标日期格式的问题

核心思路 #

先清理日期字符串中干扰解析的时区后缀，再按对应格式解析为日期类型，最后转换为目标格式。

方法一：使用Base R #

# 1. 清理字符串，移除括号及内部的时区信息
clean_dates <- gsub(" \\(.*\\)", "", dfed$`POSTED DATE`)

# 2. 解析为日期时间对象，指定匹配格式
parsed_dates <- strptime(clean_dates, format = "%a, %d %b %Y %H:%M:%S", tz = "Europe/Brussels")

# 3. 转换为Date类型并格式化为dd/mm/yyyy
formatted_dates <- format(as.Date(parsed_dates), "%d/%m/%Y")

格式匹配说明：

• %a：星期缩写（如Fri、Thu）
• %d：两位日期（不足补0）
• %b：月份缩写（如Jul、Nov）
• %Y：四位数年份
• %H:%M:%S：时分秒

方法二：使用lubridate包 #

# 安装并加载lubridate（未安装则先执行install.packages("lubridate")）
library(lubridate)

# 1. 清理字符串
clean_dates <- gsub(" \\(.*\\)", "", dfed$`POSTED DATE`)

# 2. 解析为datetime对象
parsed_dates <- dmy_hms(clean_dates, tz = "Europe/Brussels")

# 3. 转换为Date类型并格式化
formatted_dates <- format(as.Date(parsed_dates), "%d/%m/%Y")

问题原因说明 #

之前使用lubridate::as_datetime失败，是因为该函数默认尝试的解析格式不包含"星期缩写, 日期 月份缩写 年份 时分秒"这种组合，需要先清理冗余信息，再指定对应格式或使用匹配的lubridate函数（如dmy_hms）。

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