如何将R数据框导出为指定列宽与对齐方式的文本文件？

问题场景 #

你有如下R数据框：

c1 <- c("Stop", "Go", "Stop", "Go", "Go")
c2 <- c(300,6,800000,20,7000)
df <- data.frame(c1, c2)

原本尝试用write.table()导出，但需要实现特定格式：列1每个元素左对齐占4字符（不足补空格在后），列2每个元素右对齐占6字符（不足补空格在前），列间用1个空格分隔，最终导出文本格式如下：

Stop    300
Go        6
Stop 800000
Go       20
Go     7000

解决方案 #

方法1：sprintf() + writeLines()

sprintf()能精准控制字符串格式，是实现这类需求的首选：

1. 先格式化每一行内容：

   # %-4s：左对齐字符串，占4位；%6d：右对齐整数，占6位，中间用1个空格分隔
   formatted_rows <- sprintf("%-4s %6d", df$c1, df$c2)
   

2. 将格式化后的内容写入文件：

   writeLines(formatted_rows, "test.txt")
   

方法2：formatC() + paste() + writeLines()

如果需要分别对列做格式化控制，formatC()也能实现：

1. 分别格式化两列：

   # 格式化列1：左对齐，宽度4，字符串类型
   col1 <- formatC(df$c1, width = 4, format = "s", flag = "-")
   # 格式化列2：右对齐，宽度6，整数类型，补空格
   col2 <- formatC(df$c2, width = 6, format = "d", flag = " ")
   

2. 拼接列内容并写入文件：

   formatted_rows <- paste(col1, col2, sep = " ")
   writeLines(formatted_rows, "test.txt")
   

说明 #

write.table()本身无法直接实现这种精细的固定列宽+对齐控制，它的列宽默认随内容自适应，因此需要先手动完成每行的格式化，再导出到文件。

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