使用R从多日期列中获取全局最大、最小日期（含缺失值处理）

问题背景 #

你当前的代码df$maxdate <- apply(df[1:4], 1, max, na.rm = TRUE)仅能按行计算单条记录的最大日期，但实际需求是计算所有4个日期列的全局最大、最小日期，并将这两个值作为新列maxdate和mindate添加到DataFrame中（每行均填充全局极值），同时需要处理日期列中的缺失值。

解决步骤 #

1. 转换日期格式：先将字符型日期列转为R的Date类型，否则直接计算极值会因字符串排序逻辑得到错误结果。
2. 计算全局极值：合并所有日期列的非缺失值，计算全局层面的最大、最小日期。
3. 新增全局极值列：将全局极值作为新列添加到原DataFrame，自动填充到每一行。

完整代码示例 #

# 示例数据
df <- data.frame(
  col1 = c("11/09/1999", "11/09/1999", "11/09/1999", "11/09/1999", "11/09/1999"),
  col2 = c("01/01/2000", "01/01/2000", "01/01/2000", "01/01/2000", "01/01/2000"),
  col3 = c("12/09/1961", "10/03/1995", "30/03/1992", "25/05/1992", "25/05/1992"),
  col4 = c("01/01/1930", "01/01/1939", "01/01/1942", "01/01/1936", "01/01/1937")
)

# 1. 将字符型日期转换为Date类型（缺失值会自动保留为NA）
date_cols <- c("col1", "col2", "col3", "col4")
df[date_cols] <- lapply(df[date_cols], as.Date, format = "%d/%m/%Y")

# 2. 计算全局最大、最小日期
global_max <- max(unlist(df[date_cols]), na.rm = TRUE)
global_min <- min(unlist(df[date_cols]), na.rm = TRUE)

# 3. 新增全局极值列
df$maxdate <- global_max
df$mindate <- global_min

# 查看结果
print(df)

关键说明 #

• 使用as.Date转换时，需根据实际日期格式调整format参数（示例为%d/%m/%Y，即日/月/年）。
• unlist(df[date_cols])将所有日期列合并为单个向量，确保能计算全局极值，na.rm = TRUE用于忽略缺失值。
• 新增列时，全局极值会自动广播填充到DataFrame的每一行。

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