在R中匹配两个DataFrame日期列并填充对应失业率数据的问题

核心问题是两个DataFrame的MthYr列格式不匹配：

• data的MthYr是带日的完整日期字符串（如"01/13/2019"）
• ratedata的MthYr是仅含年月的字符串（如"1/2019"）

直接使用merge时，字符串完全不匹配，导致大部分行无法找到对应失业率数据，出现空值。需先统一日期格式，提取年月标识后再合并。

方法1：Base R实现 #

# 1. 处理data的MthYr，提取年月部分（去掉日）
data$MthYr_match <- sub("/\\d{2}/", "/", data$MthYr)
# 示例："01/13/2019" → "01/2019"

# 2. 处理ratedata的MthYr，统一为带前导零的年月格式
ratedata$MthYr_match <- sprintf("%02d/%d",
                                as.integer(substr(ratedata$MthYr, 1, regexpr("/", ratedata$MthYr)-1)),
                                as.integer(substr(ratedata$MthYr, regexpr("/", ratedata$MthYr)+1, nchar(ratedata$MthYr))))
# 示例："1/2019" → "01/2019"

# 3. 按统一后的标识合并
data <- merge(data, ratedata, by = "MthYr_match", all.x = TRUE)

# 可选：删除临时的匹配列
data$MthYr_match <- NULL

方法2：Tidyverse + Lubridate实现（更直观的日期处理） #

先安装并加载所需包：

install.packages(c("tidyverse", "lubridate"))
library(tidyverse)
library(lubridate)

处理并合并数据：

# 处理data，提取年月
data_clean <- data %>%
  mutate(MthYr_match = floor_date(mdy(MthYr), "month") %>% format("%m/%Y"))

# 处理ratedata，统一年月格式
ratedata_clean <- ratedata %>%
  mutate(MthYr_match = mdy(paste0(MthYr, "/01")) %>% format("%m/%Y"))

# 左连接合并（保留data的所有行）
data <- data_clean %>%
  left_join(ratedata_clean, by = "MthYr_match") %>%
  select(-MthYr_match) # 可选：删除临时列

处理完成后，data的St.Unemployment和US.Unemployment列会与预期结果一致，所有行都能匹配到对应失业率数据。

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