如何将YYYYQQ或YYYY格式的日期转换为mm/dd/yyyy格式

核心问题：as.Date()单次仅支持匹配一种日期格式，你的输入包含两种完全不同的日期编码规则，同时错误使用%y（匹配2位年份）解析4位年份，才会出现异常输出。

方案1：使用lubridate包（代码更简洁） #

library(lubridate)

# 示例输入数据
x <- c("2021", "2022Q2", "2019", "2020Q4")

processed_dates <- sapply(x, function(val) {
  if(grepl("Q", val)) {
    # 处理yyyyqq格式，示例取每个季度的最后一天，可按需调整为季度首日
    y <- substr(val, 1, 4)
    q <- substr(val, 6, 6)
    m <- as.integer(q)*3
    # 自动计算当月最后一天
    d <- days_in_month(ymd(paste0(y, "-", m, "-01")))
    ymd(paste0(y, "-", m, "-", d))
  } else {
    # 处理纯yyyy格式，示例取当年1月1日，如需年末可改为"-12-31"
    ymd(paste0(val, "-01-01"))
  }
})

# 输出mmddyyyy格式结果
formatted_output <- format(processed_dates, "%m%d%Y")

方案2：纯base R实现（无需安装第三方包） #

# 示例输入数据
x <- c("2021", "2022Q2", "2019", "2020Q4")

processed_dates <- lapply(x, function(val) {
  if(grepl("Q", val)) {
    y <- substr(val, 1,4)
    q <- as.integer(substr(val,6,6))
    m <- q*3
    # 计算当月最后一天
    last_day <- as.POSIXlt(as.Date(paste0(y, "-", m+1, "-01")) - 1)$mday
    as.Date(paste0(y, "-", m, "-", last_day))
  } else {
    # 按需调整月日参数即可
    as.Date(paste0(val, "-01-01"))
  }
})

# 输出mmddyyyy格式结果
formatted_output <- format(unlist(processed_dates), "%m%d%Y")

注意事项 #

• 4位年份匹配必须使用%Y，%y仅适配2位缩写年份（如21对应2021）
• 月、日的默认取值可根据业务需求自定义，只需修改代码中拼接日期的月、日参数即可
• 如果你的yyyyqq格式为无Q的6位纯数字（如202202代表2022年第二季度），调整正则匹配规则和字符串截取位置即可适配

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