对多个列执行dplyr group by stats，将结果表存储在一个列表中，并将该列表组合为一个数据帧

install.packages("dplyr")
library(dplyr)

# 创建示例数据框
df <- data.frame(col1 = c("A", "A", "B", "B", "C", "C"),
                 col2 = c("X", "Y", "X", "Y", "X", "Y"),
                 col3 = c(1, 2, 3, 4, 5, 6))

# 使用dplyr进行group by操作，并计算每个组的统计量
result <- df %>%
  group_by(col1, col2) %>%
  summarise(mean_col3 = mean(col3),
            sum_col3 = sum(col3),
            max_col3 = max(col3))

# 将结果存储在一个列表中
result_list <- list(result)

# 将列表组合为一个数据帧
final_result <- bind_rows(result_list)