R语言处理m/d/yyyy格式日期：提取年月结果异常的解决方法

问题原因 #

你的代码出错是因为as.Date()默认未正确识别m/d/yyyy格式的日期字符串，误将输入的日当作月、月当作年，导致解析出错误的年份（比如0003）；而像1/17/2023这类日期，因17超出月份范围（1-12），直接返回NA。

解决方案 #

方法1：基础R实现 #

先通过指定format参数让as.Date()正确解析日期，再按需生成目标格式：

# 正确解析日期（指定输入格式为月/日/年）
data$Start_Date <- as.Date(data$Start, format = "%m/%d/%Y")

# 生成不带前导零的"m/yyyy"格式（匹配需求）
data$MthYr <- paste(as.integer(format(data$Start_Date, "%m")), 
                    format(data$Start_Date, "%Y"), 
                    sep = "/")

测试示例数据：

data <- data.frame(Start = c("3/6/2023", "3/6/2023", "3/6/2023", "3/6/2023", "1/17/2023", "1/9/2023"))
data$Start_Date <- as.Date(data$Start, format = "%m/%d/%Y")
data$MthYr <- paste(as.integer(format(data$Start_Date, "%m")), format(data$Start_Date, "%Y"), sep = "/")
head(data$MthYr)
# 输出：[1] "3/2023" "3/2023" "3/2023" "3/2023" "1/2023" "1/2023"

方法2：用lubridate包简化操作 #

lubridate包对日期格式的识别更直观，适合快速处理：

library(lubridate)

# 直接识别月/日/年格式解析日期
data$Start_Date <- mdy(data$Start)

# 拼接生成"m/yyyy"格式
data$MthYr <- paste(month(data$Start_Date), year(data$Start_Date), sep = "/")

运行后同样会得到符合要求的结果。

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