如何用FOR循环在R的sqldf中批量生成列统计并导出Excel？

核心实现思路 #

遍历指定列名向量，动态拼接sqldf查询语句生成对应列的统计数据框，最后批量将每个列的统计结果存入Excel的不同工作表，实现全自动化——更换列或数据源时仅需修改列名向量即可。

完整代码示例 #

先安装并加载所需工具包：

# 首次运行需安装包
install.packages(c("sqldf", "openxlsx"))

# 加载包
library(sqldf)
library(openxlsx)

假设你的原始数据框为raw_data，待统计的列名向量为target_columns，代码如下：

# 定义待统计列名（更换列仅需修改此处）
target_columns <- c("category", "region", "product_type")

# 初始化Excel工作簿
result_wb <- createWorkbook()

# 遍历列名生成统计结果并写入Excel
for (col_name in target_columns) {
  # 动态拼接sqldf查询语句（这里以分组统计计数、求和、均值为例，可按需修改统计逻辑）
  sql_stmt <- sprintf(
    "SELECT `%s`, 
            COUNT(*) AS record_count, 
            SUM(`%s`) AS total_value, 
            AVG(`%s`) AS avg_value 
     FROM raw_data 
     GROUP BY `%s`",
    col_name, col_name, col_name, col_name
  )
  
  # 执行查询生成统计数据框
  col_stats <- sqldf(sql_stmt)
  
  # 将统计结果添加到Excel对应工作表
  addWorksheet(result_wb, sheetName = col_name)
  writeData(result_wb, sheet = col_name, x = col_stats, rowNames = FALSE)
}

# 导出最终Excel文件
saveWorkbook(result_wb, "列统计自动化结果.xlsx", overwrite = TRUE)

关键细节说明 #

• 动态SQL拼接：用sprintf替代直接字符串拼接，语法更清晰，避免引号、空格导致的语法错误；列名用反引号`包裹，兼容含特殊字符（空格、中文等）的列名。
• Excel批量写入：借助openxlsx的工作簿对象，将每个列的统计结果存入独立工作表，无需生成多个文件，便于管理。
• 可扩展性：如需调整统计逻辑（比如增加中位数、最大值），仅需修改sql_stmt中的SELECT语句，无需改动循环结构。

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