R语言中dataframe日期列与单日期对比后输出非日期格式如何解决

问题原因 #

Date类型在R底层是存储为距1970-01-01的整数数值，额外携带Date类属性来显示为日期格式。你使用的sapply默认启用结果简化机制，合并返回值时会自动剥离元素的类属性，只保留底层整数数值，并非你的sapply用法错误，也不是日期转换步骤的问题。

最优解决方法 #

直接用R内置的向量化并行最大值函数pmax，无需循环，天然保留Date类型属性：

# 一行代码即可实现需求，无需额外转换格式
data$new_date <- pmax(data$date, compare_date)

其他可选解决方案 #

如果你需要保留sapply的写法，可以用以下两种方式修正：

• 方法1：对sapply返回的数值结果重新转换为Date类型

data$new_date <- as.Date(sapply(data$date, function(x) max(x, compare_date)), origin = "1970-01-01")

• 方法2：改用vapply指定返回值类型，避免属性丢失

data$new_date <- vapply(data$date, function(x) max(x, compare_date), FUN.VALUE = as.Date(character(1)))

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