在case_when()中使用lubridate解析函数为何出现解析失败警告？

问题说明 #

拥有季度、月度混合的数据集，日期为字符格式。单独拆分后用yq()解析季度日期、ym()解析月度日期均正常，但通过case_when()根据freq字段选择解析函数时，触发16条解析失败警告（对应两年的5-12月月度数据），最终结果看似符合预期，需明确警告根源。

警告根源 #

case_when()是全量计算所有分支表达式后，再根据条件筛选结果：

• 执行时，ym(date)会遍历所有行（包括季度行），yq(date)也会遍历所有行（包括月度行）；
• 月度行中YYYY:05至YYYY:12的格式，不符合yq()仅支持1-4季度的要求，因此被判定为无效格式，触发解析警告；
• 最终case_when()会根据freq选择正确的解析结果，但全量执行分支导致了不必要的警告。

解决方法 #

方法1：逐行判断解析 #

通过rowwise()实现逐行逻辑，仅对符合条件的行调用对应解析函数，避免无效解析：

mixed_tbl %>%
  rowwise() %>%
  mutate(date_new = if_else(freq == "monthly", ym(date), yq(date))) %>%
  ungroup()

方法2：拆分处理后合并 #

保留单独解析的可靠逻辑，拆分数据集分别处理后再合并：

bind_rows(
  qtr_tbl %>% mutate(date_new = yq(date)),
  mnth_tbl %>% mutate(date_new = ym(date))
)

方法3：自动匹配格式解析 #

使用lubridate::parse_date_time()，指定所有可能的日期格式，让函数自动识别解析：

mixed_tbl %>%
  mutate(date_new = parse_date_time(date, orders = c("%Y:%q", "%Y:%m")))

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