如何转换字符型日期格式？解决R语言数据框日期列转换NA问题

嗨，刚好我之前也踩过类似的日期转换坑，给你详细说说这两个问题的解决方案：

一、通用字符型日期转指定日期格式的方法 #

要把像February 12, 1931这样的字符型日期转成YYYY/mm/dd（比如1931/2/12）格式，核心是匹配正确的日期格式符，常用的函数有as.Date()或strptime()，推荐用as.Date()更轻量：

• 第一步：将字符转成日期类型

  # 示例字符日期
  date_str <- "February 12, 1931"
  # 格式符说明：%B对应英文月份全称，%d是两位日，%Y是四位年
  date_obj <- as.Date(date_str, format = "%B %d, %Y")
  

• 第二步：将日期类型转成目标字符串格式

  # 输出为1931/02/12格式
  formatted_date <- format(date_obj, "%Y/%m/%d")
  # 如果想要去掉日/月的前导零（变成1931/2/12）：
  # Windows系统用这个格式
  formatted_date_no_zero <- format(date_obj, "%Y/%#m/%#d")
  # Linux/macOS系统用这个格式
  formatted_date_no_zero <- format(date_obj, "%Y/%-m/%-d")
  

如果用strptime()，逻辑类似，只是它返回的是POSIXlt类型，用法如下：

date_obj <- strptime(date_str, format = "%B %d, %Y")
formatted_date <- format(date_obj, "%Y/%m/%d")

二、解决读取TXT后转日期出现NA的问题 #

你用strptime()后得到NA，大概率是系统locale不识别英文月份，或者原数据中有不符合格式的脏数据，给你一步步排查解决：

1. 先排查数据是否有异常 #

先确认ReleaseDate列的所有行都符合February 12, 1931的格式：

# 查看前10行数据
head(movie_df$ReleaseDate, 10)
# 定位转换失败的行
which(is.na(strptime(movie_df$ReleaseDate, "%B %d, %Y")))

如果发现有异常行（比如是缩写月份Feb 12, 1931），那格式符要改成%b %d, %Y（%b对应英文月份缩写）。

2. 解决locale导致的英文月份识别问题 #

如果你的系统是中文环境，默认的时间locale是中文，strptime()和as.Date()可能识别不了英文月份，需要临时切换成英文locale：

• Windows系统：

  # 临时设置时间locale为英文
  Sys.setlocale("LC_TIME", "English")
  

• Linux/macOS系统：

  Sys.setlocale("LC_TIME", "en_US.UTF-8")
  

设置完成后重新执行转换：

movie_df$ReleaseDate_clean <- as.Date(movie_df$ReleaseDate, format = "%B %d, %Y")
# 转成你需要的1931/2/12格式
movie_df$ReleaseDate_formatted <- format(movie_df$ReleaseDate_clean, "%Y/%#m/%#d") # Windows
# Linux/macOS替换成：
# movie_df$ReleaseDate_formatted <- format(movie_df$ReleaseDate_clean, "%Y/%-m/%-d")

3. 更省心的替代方案：用lubridate包 #

如果你不想折腾locale和格式符，推荐用lubridate包的mdy()函数，它能自动识别英文的"月-日-年"格式（不管是全称还是缩写）：

# 先安装包（如果没装过）
install.packages("lubridate")
library(lubridate)

# 自动识别格式并转换为日期类型
movie_df$ReleaseDate_clean <- mdy(movie_df$ReleaseDate)
# 转成目标格式
movie_df$ReleaseDate_formatted <- format(movie_df$ReleaseDate_clean, "%Y/%m/%d")

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