如何用dplyr的mutate语句将Labeled+Date类变量转为仅Date类？

你可以自定义一个简单的函数移除Labeled类，然后在mutate（配合across）的链式操作里调用它，完美适配tidyverse风格：

1. 定义移除Labeled类的函数 #

如果确定目标列本质就是Date类型，直接设置类为Date即可：

strip_labeled_to_date <- function(x) {
  class(x) <- "Date"
  x
}

要是需要保留除Labeled外的其他类（比如特殊场景下的混合类），可以用更通用的版本：

strip_labeled_class <- function(x) {
  class(x) <- setdiff(class(x), "Labeled")
  x
}

2. 在链式操作中使用 #

假设你的数据框是df，需要处理date_col1、date_col2这些日期列：

library(tidyverse)
library(Hmisc)

df %>%
  mutate(
    # 单个列单独处理
    date_col1 = strip_labeled_to_date(date_col1),
    # 批量处理多列用across
    across(c(date_col2, date_col3), strip_labeled_to_date)
  )

为什么as.Date不行？ #

as.Date()处理Hmisc的Labeled+Date对象时，只会转换日期值，但会保留Labeled类属性，没法满足你移除该类的需求。而直接修改class属性的方式，能精准剔除不需要的类，同时保留Date类，让dplyr::if_else可以正常识别使用。

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