R语言中应用as.Date转换日期为何输出天数而非日期格式

• 空值识别失效：数据框中的缺失值是无内容的空字符串""，并非R标准缺失值NA，直接用is.na()判断完全无法匹配目标行，导致替换逻辑错位。
• 类型属性丢失：base R内置ifelse在返回结果时会剥离所有类属性，Date类型本质是存储距离1970-01-01天数的数值向量，经过ifelse处理后会直接退化为纯数值，和示例中出现的9112、15419这类无意义数字完全对应。
• 参数使用错误：as.Date的origin参数仅用于数值型数据转日期的场景，对字符型格式的日期字符串传入origin参数不会产生任何转换效果，反而干扰逻辑。

首先需要统一空值规则，将所有空字符串替换为标准NA，再修复ifelse的属性丢失问题，最后调整为目标展示格式。

base R 无依赖实现代码 #

# 空字符串统一替换为标准NA
p[p == ""] <- NA
# 分别转换两列的日期格式
dc <- as.Date(p$date_contact, format = "%d.%m.%Y")
fu <- as.Date(p$mr_daterd_fu1, format = "%d.%m.%Y")
# 用ifelse完成值判断（此时返回的是无类属性的数值向量）
fu1_raw <- ifelse(!is.na(dc), dc, fu)
# 重新转换为Date类，修复属性丢失问题
p$fu1_date <- as.Date(fu1_raw, origin = "1970-01-01")
# 按要求调整为年.月.日的展示格式
p$fu1_date <- format(p$fu1_date, "%Y.%m.%d")

dplyr 简洁实现代码 #

library(dplyr)
p <- p %>%
  # 批量将空字符串转为标准NA
  mutate(across(everything(), ~ na_if(.x, ""))) %>%
  mutate(
    # 转换两列日期格式（生成临时中间变量）
    dc = as.Date(date_contact, format = "%d.%m.%Y"),
    fu = as.Date(mr_daterd_fu1, format = "%d.%m.%Y"),
    # 按优先级填充生成fu1_date，coalesce会自动保留Date类属性
    fu1_date = coalesce(dc, fu),
    # 调整为目标展示格式
    fu1_date = format(fu1_date, "%Y.%m.%d")
  ) %>%
  # 移除临时中间变量
  select(-dc, -fu)

date_contact mr_daterd_fu1    fu1_date
1                  11.10.2012 2012.10.11
2                                      <NA>
3                                      <NA>
4                                      <NA>
5    13.12.1994                1994.12.13
6                                      <NA>
7    20.03.2012    20.03.2012 2012.03.20
8    25.08.1999                1999.08.25
9    25.05.2012    25.05.2012 2012.05.25
10   19.10.2007                2007.10.19

注意：如果不需要修改原date_contact和mr_daterd_fu1列的字符格式，直接在生成fu1_date的环节做转换即可，无需改动原始列的存储类型。

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