漂亮打印数据框时如何在列之间增加 space？

Question

假设我有一个如下所示的数据框

x <- read.table(text="
  gross  net.ss      net     rate  gross.m     net.m
  12000 11141.4 10369.25 6.434592 1000.000  864.1041
  12500 11641.4 10761.75 7.037208 1041.667  896.8124
  13000 12141.4 11154.25 7.593469 1083.333  929.5208
  13500 12636.0 11542.51 8.099926 1125.000  961.8758
  14000 13104.0 11909.89 8.529357 1166.667  992.4908
  14500 13572.0 12277.27 8.929172 1208.333 1023.1058
", header = TRUE)

format 在漂亮地打印数据框方面做得很好，但我发现列之间的单个 space 是不够的。它使 table 难以阅读 IMO。

> format(x, digits = 2, nsmall = 2, big.mark = ",")
   gross    net.ss       net rate  gross.m    net.m
1 12,000 11,141.40 10,369.25 6.43 1,000.00   864.10
2 12,500 11,641.40 10,761.75 7.04 1,041.67   896.81
3 13,000 12,141.40 11,154.25 7.59 1,083.33   929.52
4 13,500 12,636.00 11,542.51 8.10 1,125.00   961.88
5 14,000 13,104.00 11,909.89 8.53 1,166.67   992.49
6 14,500 13,572.00 12,277.27 8.93 1,208.33 1,023.11

理想情况下，我希望列之间有两个 space。我找不到这样做的选项。使用 width 选项可以指定最小宽度，但这会使所有列的宽度相同，这更糟

> format(x, digits = 2, nsmall = 2, big.mark = ",", width = 9)
       gross     net.ss        net      rate    gross.m      net.m
1     12,000  11,141.40  10,369.25      6.43   1,000.00     864.10
2     12,500  11,641.40  10,761.75      7.04   1,041.67     896.81
3     13,000  12,141.40  11,154.25      7.59   1,083.33     929.52
4     13,500  12,636.00  11,542.51      8.10   1,125.00     961.88
5     14,000  13,104.00  11,909.89      8.53   1,166.67     992.49
6     14,500  13,572.00  12,277.27      8.93   1,208.33   1,023.11

有什么想法吗？

Answer 1

也许有自定义功能？

spaces <- function(x, space = 2){
  s <- rep(" ", space)
  as.data.frame(sapply(x, function(y) paste0(s, y)))
}

spaces(x)
spaces(format(x, digits = 2, nsmall = 2, big.mark = ","), 2)

漂亮打印数据框时如何在列之间增加 space？

How to increase space between colums when pretty-printing a data-frame?

r

dataframe

pretty-print