如何在 knitr::kable 函数中格式化数字

【问题标题】：How to format numbers within knitr::kable function如何在 knitr::kable 函数中格式化数字
【发布时间】：2019-10-25 07:58:52
【问题描述】：

有没有办法在 kable 函数中格式化数字而不将源对象中的数据转换为格式化字符串？

library(dplyr)
library(knitr)
library(kableExtra)

test.data <- data.frame(merchant = c("merchant 1",
                                     "merchant 2",
                                     "merchant 3",
                                     "merchant 4",
                                     "merchant 5"), 
                        amount = c(3158.01,
                                   2341.67,
                                   1873.24,
                                   1578.15,
                                   1273.19))

test.data %>%
  kable() %>%
  kable_styling(full_width = FALSE)

我需要将什么传递给kable 函数以将数字设置为货币样式？

【问题讨论】：

标签： r knitr kable

【解决方案1】：

这是我最终得到的结果，在将数据框传递给formattable 时使用formattable 包中的kable （可能有更好的方法，我使用R 才6 个月）：

library(dplyr)
library(knitr)
library(kableExtra)
library(formattable)

test.data <- data.frame(merchant = c("merchant 1",
                                     "merchant 2",
                                     "merchant 3",
                                     "merchant 4",
                                     "merchant 5"), 
                        amount = c(3158.01,
                                   2341.67,
                                   1873.24,
                                   1578.15,
                                   1273.19))
data.frame(test.data$merchant, currency(test.data$amount)) %>%
  kable(col.names = c("Merchant", "Amount Spent")) %>%
  kable_styling(full_width = FALSE)

【讨论】：