R语言使用aggregate函数聚合数据如何保留原始数据的顺序？

你的date列当前为字符串格式，aggregate函数对字符串类型的分组列默认会转为普通因子，因子的排序规则默认是字典序："2000.12"的首字符是1，会排在首字符为2的"2000.2"前面，日期位的1、10、11同理，都是字典序排序的结果，不符合实际时间顺序。

分两种场景可选，都不需要大幅修改现有代码：

• 方案1：聚合后排序（最简便，无需修改原有聚合逻辑）
  聚合完成后将date列转为标准日期格式再按日期排序即可：

# 适配你的日期格式转为Date类型
agg$date <- as.Date(agg$date, format = "%Y.%m.%d")
# 按日期正序重排
agg <- agg[order(agg$date), ]

• 方案2：提前指定分组顺序，让aggregate直接返回正确排序结果
  先将原始数据的date列转为有序因子，水平顺序和原始数据中的日期出现顺序一致，再执行原有聚合操作即可：

# 按原始数据的日期出现顺序设置因子水平
original_data$date <- factor(original_data$date, levels = unique(original_data$date), ordered = TRUE)
# 执行你原有的聚合代码，返回结果就是正确的时间顺序
agg <- aggregate(sapply(original_data[,3:4], as.numeric) ~ date, data = original_data, mean, na.rm = T)

小提示：日常处理时间类数据时，建议导入数据后第一时间将时间列转为Date/POSIXct标准时间类型，可避免后续排序、计算时的绝大多数格式坑。

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