r-markdown - R Markdown Table 1000 分隔符

Question

我正在尝试发布一个包含 1000 个分隔符的表格，但我没有任何运气。我点击了这里的链接:Set global thousand separator on knitr但我没有太大的成功。

我的示例数据集在这里:https://goo.gl/G7sZhr

RMarkdown 代码在这里:

---
title: "Table Example"
author: "Krishnan Viswanathan"
date: "August 4, 2015"
output: html_document
---

加载数据
{r, results='asis', message = FALSE, tidy=TRUE}
load("i75_from_flow.RData")
library(data.table)
{r, results='asis', echo=FALSE,message = FALSE, tidy=TRUE}
i75_from_flow <- i75_from_flow[order(-Tons),]
knitr::kable(i75_from_flow)

但是，当我包含这段代码时 (knit_hook$set) 在 RMarkdown 文档中，我得到了错误。

```{r, results='asis', echo=FALSE,message = FALSE, tidy=TRUE}
i75_from_flow <- i75_from_flow[order(-Tons),]
knit_hooks$set(inline = function(x) {
prettyNum(x, big.mark=",")
})
knitr::kable(i75_from_flow)
```

错误:

# object knit_hooks not found.

任何关于我做错了什么以及如何解决这个问题的见解都非常感谢。

谢谢，

克里希南

Answer 1

使用 pander 怎么样？有一堆选项来微调你的markdown table :

> pander::pander(i75_from_flow, big.mark = ',')

----------------------------
 ORIGFIPS   TERMFIPS   Tons 
---------- ---------- ------
  12,023     12,117   5,891 

  12,119     12,105   4,959 

  12,001     12,057   3,585 

  12,001     12,113   3,083 

  12,047     12,047   1,517 
----------------------------