R语言dplyr分组聚合为列表时日期格式异常问题

• 日期转换格式写错：你提到原始Date字段格式是yyyy-mm-dd，但原代码里as.Date()指定的格式参数是%Y%m%d，该参数仅适配无分隔符的日期格式（如20200914），格式不匹配会导致日期转换逻辑异常。
• 日期类型属性丢失：R中Date类型的底层存储是数值（记录距1970-01-01的天数），直接用list做聚合时会丢失Date类属性，直接暴露底层数值，就会出现18788这类数字结果。
• 聚合逻辑不符合需求：你需要的是逗号分隔的字符串结果，原代码用list聚合得到的是R原生列表列，不是逗号拼接的文本。
• 额外细节错误：你描述的字段名是大写开头的Status，原代码分组时写的是小写status，运行时会触发找不到对象的报错。

直接调整日期转换格式，聚合时用字符串拼接函数生成逗号分隔结果，代码如下：

library(dplyr)

g1 <- df1 %>% 
  # 修正日期转换格式，匹配原始yyyy-mm-dd结构
  mutate(Date = as.Date(Date, format = "%Y-%m-%d")) %>%
  # 字段名和实际保持一致，用大写Status
  group_by(Status) %>% 
  # 直接拼接为逗号分隔字符串，避免类型丢失
  summarise(
    ID = paste(ID, collapse = ","),
    Date = paste(format(Date, "%Y-%m-%d"), collapse = ","),
    .groups = "drop"
  ) %>%
  # 显式指定输出列顺序
  select(Status, ID, Date)

基于你给出的样例数据，运行后输出结果如下：

如果你确实需要保留列表列、而非逗号分隔的字符串，可以在聚合后重新给列表内的数值添加Date类属性，示例写法：

g1 <- df1 %>% 
  mutate(Date = as.Date(Date, format = "%Y-%m-%d")) %>%
  group_by(Status) %>% 
  summarise(
    ID = list(ID),
    Date = list(Date)
  ) %>%
  # 恢复Date列的类型属性
  mutate(Date = lapply(Date, as.Date, origin = "1970-01-01"))

从你的需求描述看，逗号分隔字符串的方案更匹配预期。

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