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

Question

我正在尝试在使用 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=" "))
```

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

有没有简单的方法可以做到这一点？谢谢

Answer 1

在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)
```

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

Display currency format using kable with Rmarkdown

r-markdown