使用带有Rmarkdown的kable显示货币格式

时间:2016-10-13 13:59:33

标签: r-markdown

我正在尝试在使用R Markdown创建的HTML文件中显示R data.frame。我想以这种货币格式显示此data.frame中的数字列:800 124€

这是我的代码:

---
title: "test"
output: html_document
---


```{r,echo=FALSE}
 test=data.frame(t1=c("Pres1","Pres2"),t2=c(800124,1236545),t3=c(565473,456841))
 library(knitr)
 kable(test,format.args=list(big.mark=" "))
``` 

我尝试使用粘贴功能在每个单元格的末尾添加缺少的“€”字符串,但没有成功。

有一种简单的方法吗?谢谢

1 个答案:

答案 0 :(得分:0)

在HTML中,您可以使用€€€来表示欧元,但必须包含分号。以下适用于我。

---
title: "test"
output: html_document
---


```{r,echo=FALSE}
append_euro <- function(x, ...){
  sprintf("%s &euro;",
          format(x, ...))
}

 test=data.frame(t1=c("Pres1","Pres2"),t2=c(800124,1236545),t3=c(565473,456841))
 test[c("t2", "t3")] <- 
   lapply(test[c("t2", "t3")],
          append_euro,
          big.mark = " ")
 library(knitr)

 kable(test)
```