R语言中如何不使用summary()，对齐自定义函数的统计输出排版

要实现不调用summary()的自定义统计输出、和参考图一致的严格对齐排版，核心是提前为每一行的标签和数值分配固定的显示宽度，避免字符串拼接后位置错位，全程可通过R原生功能实现，无需依赖第三方包。

核心实现逻辑 #

• 用R原生的sprintf() 生成固定宽度的格式化字符串：可指定标签部分的对齐方向、占位宽度，数值部分统一保留固定小数位数，保证每行的数值位置完全纵向对齐。
• 用cat() 做最终输出：相比默认的print()函数，cat()不会自动添加行号、字符串引号等多余格式，输出效果更简洁规整。
• 所有统计量通过独立的基础函数计算，完全不涉及summary()的调用。
• 禁止直接用paste("标签", 数值)的方式拼接输出：不同标签的字符串长度存在差异，会导致后续数值位置错位，无法实现对齐效果。

完整可运行的自定义函数 #

custom_stat_output <- function(numeric_vec) {
  # 输入合法性校验
  if (!is.numeric(numeric_vec)) {
    stop("函数仅支持输入数值类型的c()向量")
  }
  # 独立计算所有目标统计量，完全不使用summary()
  stat_mean <- mean(numeric_vec, na.rm = TRUE)
  stat_var  <- var(numeric_vec, na.rm = TRUE)
  stat_min  <- min(numeric_vec, na.rm = TRUE)
  stat_max  <- max(numeric_vec, na.rm = TRUE)

  # 逐行生成对齐格式：标签占12字符宽度左对齐，数值占10字符宽度右对齐、保留4位小数
  output_lines <- c(
    sprintf("%-12s %10.4f", "Mean:", stat_mean),
    sprintf("%-12s %10.4f", "Var:",  stat_var),
    sprintf("%-12s %10.4f", "Min:",  stat_min),
    sprintf("%-12s %10.4f", "Max:",  stat_max)
  )

  # 逐行打印输出
  cat(paste(output_lines, collapse = "\n"), "\n")
}

可以根据实际排版需求，调整sprintf中的占位宽度、小数保留位数，适配不同长度的标签内容。

效果测试 #

执行以下测试代码即可看到对齐效果：

# 构造测试向量
test_vec <- c(2, 4, 6, 8, 10, 12)
# 调用自定义函数
custom_stat_output(test_vec)

输出示例：

Mean:              7.0000
Var:              14.0000
Min:               2.0000
Max:              12.0000

所有标签左对齐、所有数值严格纵向对齐，和参考排版要求完全一致。

其他可选实现方式 #

如果对sprintf的格式符不熟悉，也可以通过手动给字符串补空格的方式实现对齐，或是用stringr::str_pad()函数完成宽度填充，不过该方法需要额外安装第三方依赖，相比之下原生的sprintf方案零依赖、运行更稳定。

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