如何在带彩色条的格式化表格中将数字显示为美元金额

Question

所以我正在尝试制作其中一个很酷的表格，其中一个数值将显示为彩色条，而数字则显示为可格式化表格中的文本。 我有整数的销售编号，我知道我可以使用 currency() 函数将它们更改为货币格式，而不会将它们作为数值丢失。但是，一旦我添加了normalize_bar 函数，数字就不再显示为货币格式。谁能告诉我如何正确格式化？

prod$Sales<-currency(prod$Sales,digits=0L)
table<-formattable(prod, list(
area(col=Sales)~normalize_bar("green",0.2)
))

结果如下所示。

Table with bars

我知道销售编号的格式已更改为货币格式（请参阅下面没有区域的表格）。但是我怎样才能让数字显示正确呢？ Table without bars

Answer 1

您可以编写自己的函数来格式化可格式化的输出。在这里，我展示了一个示例，其中默认输出是带有和不带有规范化条的货币。

currencyout <- function(fun="currency"){
  fun <- match.fun(fun)
  formatter("span", x ~ fun(x, digits = 2))
}
currencybarout <- function(color = "violet", fun = "currency") {
  fun <- match.fun(fun)
  formatter("span", x ~ fun(x, digits = 2),
            style = function(y) style(
              display = "inline-block",
              direction = "rtl",
              "border-radius" = "4px",
              "padding-right" = "2px",
              "background-color" = csscolor(color),
              width = percent(proportion(as.numeric(y), na.rm = TRUE))
            )
  )
}

您可以实现这一点，例如在数据框 df 中为第一列之后的所有列（我假设是描述）

formattable(df,
            list(area(col = 2:ncol(df)) ~ currencyout())
                 )
formattable(df,
            list(area(col = 2:ncol(df)) ~ currencybarout())
                 )