为输出添加逗号

我通过xtable输出一个数据xtable到html。 我想在表格的几列添加逗号。 我想我做我自己的粘贴黑客我会检查是否有内置的方式来做到这一点。

Answer 1

您可能需要考虑使用formatC转换列

 > formatC(1:10 * 100000, format="d", big.mark=",") [1] "100,000" "200,000" "300,000" "400,000" "500,000" "600,000" [7] "700,000" "800,000" "900,000" "1,000,000" 

Answer 2

非常感谢Jonathan Chang的回答。 formatC看起来是一个非常有用的function。 这启发了我阅读它的文档，其中我发现prettyNum ，这是我遇到类似问题的一个非常优雅的解决scheme。 这是我做了一个最小的可行的例子，用来给名为enrollment.summary的数据框中的数字添加逗号。

xtable(prettyNum(enrollment.summary,big.mark=","))

Answer 3

你也可以尝试使用函数参数'format.args'

  ## Demonstration of additional formatC() arguments. print(fm1.table, format.args = list(big.mark = "'", decimal.mark = ",")) 

从这里

web/packages/xtable/xtable.pdf

Answer 4

这是一个迟到的答案，但你也可以使用scales::comma_format如下：

 library(scales) values <- c(1000000.789, 8888.23) comma_format(digits = 12)(values) ## [1] "1,000,000.789" "8,888.230" 

对于整数值，你可以使用逗号：

 int_vals <- c(1234, 5678) comma(int_vals) ## [1] "1,234" "5,678" 

Answer 5

从dplyr格式化一些摘要，这里是样板代码：

df %>% summarise(mu=mean(big_values), min=min(big_values), max=max(big_values)) %>% mutate_each(funs(prettyNum(., big.mark=",")))