Question

我有一个像这样的命名字符向量：

x <- c(a="1.000", b="10000.000", c="1.000")

我想在没有引号的情况下打印它，在值之间留下2的间隙。

print(x, quote=FALSE, print.gap=2)

给了我：

        a          b          c  
    1.000  10000.000      1.000

可以看出，所有值都填充到最宽值的宽度。我想打印它，看起来像这样：

    a          b      c  
1.000  10000.000  1.000

名字也可能更长。例如：

x <- c(aaaaaa="1.000", b="10000.000", ccccccc="1.000")

这应该打印为：

aaaaaa          b  ccccccc  
 1.000  10000.000    1.000

我看不出现有功能如何实现这一目标。我写了这个丑陋的黑客：

fun <- function(x) {

   len.n <- nchar(names(x))
   len.x <- nchar(x)
   max.len <- pmax(len.n, len.x)
   for (i in 1:length(x)) {
      cat(rep(" ", (max.len - len.n)[i]), collapse="", sep="")
      if (i > 1)
         cat("  ")
      cat(names(x)[i])
   }
   cat("\n")
   for (i in 1:length(x)) {
      cat(rep(" ", (max.len - len.x)[i]), collapse="", sep="")
      if (i > 1)
         cat("  ")
      cat(x[i])
   }
   cat("\n")

}

x <- c(a="1.000", b="10000.000", c="1.000")
fun(x)
x <- c(aaaaaa="1.000", b="10000.000", ccccccc="1.000")
fun(x)

有关更优雅解决方案的任何建议吗？

Answer 1

更新：修正了小错误

我的解决方案与你的解决方案没有什么不同，但避免了循环。

NicePrint = function(x) {
  NameW = nchar(names(x))
  ValW  = nchar(x)
  Width = pmax(NameW, ValW)
  format = sapply(Width, function(x) paste("%", x, "s", sep=""))

  L1 = paste(sprintf(format, names(x)), collapse="  ")
  L2 = paste(sprintf(format, x), collapse="  ")
  cat(L1, "\n", L2, "\n", sep="")
}

x <- c(a="1.000", b="10000.000", c="1.000") 
NicePrint(x)
    a          b      c
1.000  10000.000  1.000

x <- c(aaaaaa="1.000", b="10000.000", ccccccc="1.000")
NicePrint(x)
aaaaaa          b  ccccccc
 1.000  10000.000    1.000

打印命名向量而不填充

1 个答案: