使用R语言lubridate的parse_date_time转换日期时出现错误

你的问题核心是系统locale不支持英文月份名称，导致lubridate::parse_date_time()和基础函数as.Date()无法正确识别"April"这类英文月份全称，进而错误解析日期。

解决方案一：临时切换系统locale为英文 #

先保存当前时间相关的locale，切换为英文完成解析后再恢复，避免影响其他操作：

# 保存当前时间locale
old_time_locale <- Sys.getlocale("LC_TIME")

# 切换为英文locale（Windows系统请用"English_US.1252"）
Sys.setlocale("LC_TIME", "en_US.UTF-8")

x <- c("12 April, 1971", "2015-12-20", "21/08/2021", "06/23/97", "Oct 10, 2010")
dates <- parse_date_time(x, orders = c("d B, Y", "Y-m-d", "d/m/Y", "m/d/y", "b d, Y"))
print(dates)
# 输出：[1] "1971-04-12 UTC" "2015-12-20 UTC" "2021-08-21 UTC" "1997-06-23 UTC" "2010-10-10 UTC"

# 恢复原locale
Sys.setlocale("LC_TIME", old_time_locale)

解决方案二：直接指定parse_date_time的locale参数 #

如果使用的lubridate版本足够新（建议v1.7.9+），可以直接在函数内指定locale，无需全局修改：

x <- c("12 April, 1971", "2015-12-20", "21/08/2021", "06/23/97", "Oct 10, 2010")
dates <- parse_date_time(
  x, 
  orders = c("d B, Y", "Y-m-d", "d/m/Y", "m/d/y", "b d, Y"),
  locale = "en_US.UTF-8" # Windows系统替换为"English_US.1252"
)
print(dates)

针对as.Date()的修复方法 #

R 4.0及以上版本的as.Date()支持locale参数，同样可以通过指定英文locale解决：

as.Date("12 April, 1971", format = "%d %B, %Y", locale = "en_US.UTF-8")
# 输出：[1] "1971-04-12"

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