如何在R语言中正确合并YEAR与MONTH变量生成DATE变量？

假设你手头有一个TRADES数据表，其中YEAR是带前缀的因子类型（取值如Y2015、Y2016），MONTH是整数类型（取值如1、12等），想要把这两个字段合并成YYYY-M格式的新变量DATE（比如Y2015+1对应2015-1），这里有几种实用的实现方法：

首先先构造一个和你示例一致的测试数据框，方便你直接验证：

TRADES <- data.frame(
  YEAR = factor(c("Y2015", "Y2016", "Y2016", "Y2015")),
  MONTH = c(1, 12, 2, 5)
)

方法1：基础R字符串拼接 #

如果不需要依赖额外包，用基础R的字符串处理函数就能搞定：

# 先把YEAR因子转为字符，去掉开头的"Y"，再和MONTH拼接
TRADES$DATE <- paste0(sub("^Y", "", as.character(TRADES$YEAR)), "-", TRADES$MONTH)

这里sub("^Y", "", ...)用来精准替换掉字符串开头的"Y"，as.character()是因为因子类型直接操作会返回水平值而非原始字符，必须先转换。

方法2：tidyverse/dplyr管道式处理 #

如果你习惯用tidyverse生态的语法，用dplyr的管道会更清晰易读：

library(dplyr)

TRADES <- TRADES %>%
  # 先清理YEAR字段，去掉前缀"Y"
  mutate(YEAR_clean = sub("^Y", "", as.character(YEAR))) %>%
  # 拼接生成DATE变量
  mutate(DATE = paste0(YEAR_clean, "-", MONTH)) %>%
  # 可选：删除中间生成的YEAR_clean字段
  select(-YEAR_clean)

方法3：转为日期类型（支持后续日期运算） #

如果之后需要对DATE做排序、时间范围筛选这类操作，建议把它转为真正的日期对象，这里可以用lubridate包简化操作：

library(lubridate)
library(dplyr)

TRADES <- TRADES %>%
  # 把YEAR转为整数年份
  mutate(YEAR_num = as.integer(sub("^Y", "", as.character(YEAR)))) %>%
  # 创建日期对象（默认把日设为1，不影响格式输出）
  mutate(DATE_date = make_date(year = YEAR_num, month = MONTH)) %>%
  # 格式化为你需要的"YYYY-M"字符串
  mutate(DATE = paste0(year(DATE_date), "-", month(DATE_date)))

这种方法的好处是，如果你需要后续对日期进行操作（比如筛选2015年的所有数据），可以直接用DATE_date字段，不用再做字符串处理。

运行上述任意一种方法后，你都会得到符合预期的DATE列：

2015-1、2016-12、2016-2、2015-5

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