如何在Markdown中并排打印循环输出的多个summary结果？

算力阿峰

2026-7-30

解决方案

要在Markdown中并排展示mtcars各变量的summary输出，你可以通过捕获输出内容+生成多列Markdown表格的方式实现，既保留summary的原生格式，又能大幅减少PDF页数。以下是具体实现代码：

# 1. 捕获每个变量的summary完整输出，并格式化为Markdown兼容的字符串
summary_content <- lapply(names(mtcars), function(var_name) {
  # 捕获summary的控制台输出，并用<br>替换换行（保证表格内换行生效）
  stats_text <- paste(capture.output(summary(mtcars[[var_name]])), collapse = "<br>")
  # 变量名加粗，和统计内容拼接
  paste0("**", var_name, "**<br>", stats_text)
})

# 2. 设置并排的列数（可根据需求调整为2/3/4列）
col_num <- 2
# 计算需要的行数，补全空内容保证矩阵对齐
row_num <- ceiling(length(summary_content) / col_num)
summary_content <- c(summary_content, rep("", row_num * col_num - length(summary_content)))

# 3. 转换为矩阵并生成Markdown表格
summary_matrix <- matrix(summary_content, ncol = col_num, byrow = FALSE)

# 输出Markdown表格
cat("| ", paste(rep("", col_num), collapse = " | "), " |\n")
cat("| ", paste(rep("---", col_num), collapse = " | "), " |\n")
for (i in 1:row_num) {
  cat("| ", paste(summary_matrix[i, ], collapse = " | "), " |\n")
}

代码说明：

捕获输出：用capture.output()抓取summary()的控制台输出，避免直接打印导致的逐行输出；用<br>替换换行符，确保表格单元格内的内容能正确换行显示。
分组合并：通过矩阵将捕获的内容按指定列数分组，保证内容并排展示。你可以修改col_num调整列数（比如设为3列更紧凑）。
生成表格：用cat()直接输出标准Markdown表格语法，渲染后每个单元格会完整显示对应变量的summary结果，实现并排布局。