如何将R语言data.frame保存为多空格分隔的对齐表格？

要实现将data.frame保存为列宽一致、用可变空格分隔的对齐文本表格，你可以用基础R函数手动格式化每一列的宽度，具体操作如下：

步骤1：准备数据 #

创建示例数据时建议加上stringsAsFactors = FALSE，避免字符自动转为因子类型：

table <- data.frame(col1 = c("abc", "ab", "a"),
                    col2 = c("a", "ab", "c"), 
                    stringsAsFactors = FALSE)

步骤2：计算每列的最大宽度 #

确保列宽能容纳对应列名和该列最长的内容：

# 取列名长度、列内容最大长度中的较大值作为列宽
col_widths <- pmax(nchar(colnames(table)), sapply(table, function(x) max(nchar(x))))

步骤3：格式化列内容与表头 #

用format()函数将每一列（包括列名）统一调整为固定宽度，设置左对齐：

# 格式化表格内容
formatted_cols <- lapply(seq_along(table), function(i) {
  format(table[[i]], width = col_widths[i], justify = "left")
})

# 格式化表头（列名）
formatted_header <- sapply(seq_along(table), function(i) {
  format(colnames(table)[i], width = col_widths[i], justify = "left")
})

步骤4：合并并输出/保存表格 #

将格式化后的表头和内容按行合并，用单个空格分隔后，即可打印或保存：

# 合并表头与内容
formatted_table <- rbind(do.call(paste, c(formatted_header, sep = " ")),
                         do.call(paste, c(formatted_cols, sep = " ")))

# 打印到控制台
cat(paste(formatted_table, collapse = "\n"), "\n")

# 保存到文本文件
writeLines(formatted_table, "aligned_table.txt")

运行后会得到预期的对齐格式：

col1 col2
abc  a
ab   ab
a    c

如果需要右对齐或居中对齐，只需修改format()函数的justify参数为"right"或"centre"即可。

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