R Formattable 将两种格式应用于一个区域答案

【问题标题】：R Formattable apply two format to an areaR Formattable 将两种格式应用于一个区域
【发布时间】：2018-02-19 17:12:58
【问题描述】：

我正在尝试使用 formattable Awesome 包并获得一个表格，其中包含在多列上缩放的百分比和颜色。

这里是代码

set.seed(123)
df <- data.frame(id = 1:10, 
                 a = rnorm(10), b = rnorm(10), c = rnorm(10))

df$a <- percent(df$a)
df$b <- percent(df$b)
df$c <- percent(df$c)


table_with_percent_but_color_not_scaled <- formattable(df, list(a = color_tile("transparent", "pink")
                     , b= color_tile("transparent", "pink")
                     , c= color_tile("transparent", "pink")))

table_with_color_scaled_but_not_percent <- formattable(df, list(area(col = 2:4)  ~  color_tile("transparent","pink")))

问题是table_with_color_scaled_but_not_percent 没有保留百分比格式：

和table_with_percent_but_color_not_scaled不要保持相同的颜色着色比例：

理想情况下，我想使用area 功能，因为我的 df 列数和名称将在我的最终代码中发生变化。任何的想法？谢谢！

【问题讨论】：

标签： r formattable

【解决方案1】：

不久前我遇到了同样的问题，不得不创建自己的格式化程序。这是用于创建类似于您的表的代码的格式化程序。只需调整样式内的标签即可。

library(tidyverse)
library(formattable)

colorbar <- function(color = "lightgray", fun = "comma", digits = 0) {
  fun <- match.fun(fun)
  formatter("span", x ~ fun(x, digits = digits),
            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))
            )
  )
}

set.seed(123)
df <- data.frame(id = as.factor(1:10), 
                 a = rnorm(10), b = rnorm(10), c = rnorm(10)) %>%
  mutate_if(is.numeric, percent)

tbl <- df %>%
  formattable(list(area(col = 2:4) ~ colorbar(color = "pink", fun = "percent", digits = 2))) %>%
  as.htmlwidget()

如果您有任何问题，请告诉我！

【讨论】：