2

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

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

结果看起来像这样。

带酒吧的桌子

我知道销售编号的格式已更改为货币（见下表无区域）。但是我怎样才能让数字显示正确呢？ 无栏表

4

1 回答 1

0

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

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())
                 )
于 2020-02-12T20:21:27.027 回答