如何处理或美化R中summary()输出的科学计数法数值？及使用原因

一、美化输出的实用方法 #

1. 手动格式化系数矩阵 #

直接提取模型摘要的系数表，用format()函数指定不使用科学计数法：

# 先拟合你的模型
my_model <- lm(your_formula, data = your_data)
# 提取系数表
coef_table <- summary(my_model)$coefficients
# 格式化Estimate和Std. Error列，保留3位小数，禁用科学计数法
coef_table[, c("Estimate", "Std. Error")] <- apply(
  coef_table[, c("Estimate", "Std. Error")], 
  2, 
  function(x) format(x, scientific = FALSE, digits = 3)
)
# 打印美化后的表格
print(coef_table)

2. 用broom包规整输出 #

broom包专门用来将模型输出转换为整洁的数据框，方便后续格式化：

library(broom)
library(dplyr)

# 生成整洁的系数表并格式化数值
tidy(my_model) %>%
  mutate(
    across(
      c(estimate, std.error, statistic),
      ~format(.x, scientific = FALSE, digits = 3)
    )
  )

这样输出的结果是标准数据框，你可以灵活调整小数位数或格式。

3. 用stargazer生成专业表格 #

如果需要更美观的文本/LaTeX表格，stargazer包是绝佳选择：

library(stargazer)
# 生成文本格式的表格，禁用科学计数法，保留2位小数
stargazer(my_model, type = "text", digits = 2, scientific = FALSE)

它会自动对齐列，输出可读性极强的表格。

二、R使用科学计数法的原因 #

• 紧凑性与可读性：当数值极大（如你的示例中的1.027e+03=1027）或极小时，科学计数法能在有限的表格宽度内清晰展示数值，避免长串数字挤占空间。
• 格式统一性：如果同一列中同时存在极大和极小值，科学计数法能让所有数值的展示风格保持一致，避免排版混乱（比如有的数是整数、有的是超长小数）。
• 默认打印规则：R的print()函数默认对绝对值小于1e-4或大于等于1e4的数值使用科学计数法，而summary(lm())的输出继承了这个规则，确保数值展示的一致性和简洁性。

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