如何正确打印多列的summary()结果并优化输出格式

问题原因 #

你之前用print(cat('\n', summary(df[col])))的写法存在两个核心问题：

1. summary()返回的是专属的summary对象，cat()会强制将其转换为字符串输出，破坏了原有的格式化样式；
2. cat()函数本身的返回值是NULL，外层的print()会把这个NULL额外打印出来。

解决方案 #

直接循环目标列并调用summary()，用换行分隔不同表格即可，无需嵌套print()和cat()：

# 加载数据集
df <- cars
# 指定要生成summary的列
target_cols <- c("speed", "dist")

# 循环输出每个列的summary
for (col in target_cols) {
  # 直接调用summary，会自动以专属格式打印
  summary(df[[col]])
  # 用两个换行分隔不同表格，提升可读性
  cat("\n\n")
}

效果说明 #

运行上述代码后，每个列的summary格式会和单独调用summary(cars$speed)完全一致，不会出现NULL，且表格之间有清晰的空行分隔。

替代写法（函数式风格） #

如果偏好函数式写法，也可以用lapply实现：

lapply(target_cols, function(col) {
  s <- summary(df[[col]])
  print(s)
  cat("\n\n")
})

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