由于R中的数据集大小而需要聚合时，如何访问未聚合的结果

# 保存原始数据的副本
write.csv(original_dataset, "path_to_save/original_dataset.csv", row.names = FALSE)
# 或者使用saveRDS
saveRDS(original_dataset, "path_to_save/original_dataset.rds")

# 使用R连接数据库
library(RMySQL)
con <- dbConnect(MySQL(), user="user", password="password", dbname="database", host="host")
# 执行SQL查询
query <- "SELECT column1, AVG(column2) FROM table GROUP BY column1"
aggregated_data <- dbGetQuery(con, query)
# 关闭连接
dbDisconnect(con)

# 分块读取和处理数据
chunk_size <- 10000
chunks <- list()
for (i in seq(0, nrow(original_dataset), by=chunk_size)) {
  chunk <- original_dataset[i:(i + chunk_size - 1), ]
  # 对每个块进行聚合操作
  chunk_agg <- aggregate(column2 ~ column1, data=chunk, FUN=mean)
  chunks[[length(chunks) + 1]] <- chunk_agg
}
# 合并所有块的结果
final_aggregated_data <- do.call(rbind, chunks)