如何在R中提取特殊格式日期的年月并转换为日期时间格式？

我来帮你搞定这个日期处理的问题！针对你提到的"d-Mon-y hh:mm:sec AM"格式（比如"1-Feb-05 12:00:00 AM"），下面提供两种实用的解决方案，分别适合不同的使用场景：

方法一：使用Base R（无需额外包） #

Base R自带的日期工具就能完成需求，步骤清晰明了：

1. 先解析原始日期字符串，识别出完整的日期时间信息
2. 提取月份和年份，重新构造成以当月第一天为基准的日期时间（因为你不需要具体日期）
3. 转换为标准的日期时间类型

示例代码：

# 你的示例日期字符串
date_str <- "1-Feb-05 12:00:00 AM"

# 第一步：解析原始日期，注意格式符要完全匹配
parsed_date <- strptime(date_str, format = "%d-%b-%y %I:%M:%S %p")

# 第二步：提取年月，构造为当月第一天的日期时间
month_year_date <- as.POSIXct(format(parsed_date, "%Y-%m-01"))

# 查看结果
month_year_date
# 输出示例："2005-02-01 UTC"

格式符说明：

• %d：两位数字的日（解析时必须对应，后续会丢弃）
• %b：缩写的月份名称（比如Feb）
• %y：两位数字的年份
• %I：12小时制的小时数
• %M：分钟
• %S：秒
• %p：AM/PM标识

方法二：使用lubridate包（更简洁高效） #

如果你经常处理日期数据，推荐用lubridate包，语法更直观，代码量更少：

library(lubridate)

date_str <- "1-Feb-05 12:00:00 AM"

# 一步解析日期，自动识别格式
parsed_date <- dmy_hms(date_str, tz = "UTC")

# 直接将日期向下取整到当月第一天，完美保留年月信息
month_year_date <- floor_date(parsed_date, unit = "month")

# 或者手动构造年月日期：make_year_month(year(parsed_date), month(parsed_date)) %>% as_date()
month_year_date
# 输出示例："2005-02-01"

解释：

• dmy_hms()：lubridate的专属函数，自动匹配日-月-年 时:分:秒格式，对AM/PM也能完美识别
• floor_date()：一键将日期调整到当月第一天，刚好满足你只保留年月的需求
• 如果只需要日期类型而非日期时间，用as_date()转换即可

两种方法都能达到你的目标：如果不想依赖第三方包，选Base R方案；如果追求代码简洁易读，lubridate会更顺手。

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