不使用库：如何将R中回归系数矩阵行名转为字符串并正确制表？

问题根源 #

rownames(coef)返回的本身就是字符向量，无需用deparse或substitute转换——之前的多余引号、重复列名问题，都是因为误用了不必要的转换函数，以及手动拼接空格时的逻辑错误。

方案1：用sprintf快速格式化（推荐） #

sprintf是R基础包自带的格式化函数，能轻松实现对齐和数值格式控制，无需第三方库：

train <- read.csv("Regression_train.csv")
lm.fit <- lm(mytarget ~ ., train) 
s <- summary(lm.fit) 
coef_matrix <- s$coefficients  # 重命名避免与base R的coef()函数冲突
n <- nrow(coef_matrix)
v_names <- rownames(coef_matrix)

for (i in 1:n) {
  # 格式化规则：行名左对齐占40位，系数保留4位小数（可按需调整）
  line <- sprintf("%-40s %.4f %.4f %.4f", 
                  v_names[i], 
                  coef_matrix[i, 1], 
                  coef_matrix[i, 2], 
                  coef_matrix[i, 3])
  cat(line, "\n")
}

关键说明：

• %-40s：指定行名左对齐，固定占用40个字符宽度，不足时自动补空格
• %.4f：将系数格式化为保留4位小数的浮点数，可修改数字调整精度（如%.3f保留3位）
• 直接使用v_names[i]获取行名字符串，完全避免转换错误

方案2：手动处理空格（适配原有逻辑） #

如果坚持沿用手动计算空格的思路，修正原有代码的逻辑错误即可：

train <- read.csv("Regression_train.csv")
lm.fit <- lm(mytarget ~ ., train) 
s <- summary(lm.fit) 
coef_matrix <- s$coefficients
n <- nrow(coef_matrix)
v_names <- rownames(coef_matrix)

for (i in 1:n) {
  c_name <- v_names[i]  # 直接取行名字符串，无需额外转换
  numchars <- nchar(c_name)
  npad <- max(0, 40 - numchars)  # 防止行名过长导致空格数为负
  s_pad <- strrep(" ", npad)  # 生成连续空格字符串，替代rep的向量拼接
  x <- paste0(c_name, s_pad, " ")
  # 对系数做格式化，保证输出整齐
  cat(x, sprintf("%.4f", coef_matrix[i,1]), sprintf("%.4f", coef_matrix[i,2]), sprintf("%.4f", coef_matrix[i,3]), "\n")
}

关键修正：

• 用strrep(" ", npad)替代rep(' ', npad)：前者直接生成包含npad个空格的单字符串，避免paste时把空格拆成多个元素导致格式混乱
• 增加max(0, ...)确保空格数非负，防止行名过长时出现异常
• 移除多余的paste(v_names[i])和deparse操作，直接使用原始行名字符串

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