在R的formattable中结合color_bar与percent格式的实现问题

我懂你遇到的问题啦——你想用formattable给A列同时实现两个效果：一是基于该行a和b的占比显示绿色进度条，二是把数字格式化为百分比，但现在percent()函数直接覆盖了进度条的效果，这确实挺让人挠头的。

其实问题出在你给同一单元格区域指定了两个独立的格式化规则，后一个规则会覆盖前一个。我们只需要把进度条渲染和文本格式化合并到同一个自定义函数里，就能让两者共存了。

解决方案代码 #

首先我们需要自定义一个组合函数，把进度条和百分比文本整合到一起，然后直接在formattable的规则里调用这个函数：

library(formattable)
library(htmltools)

# 自定义组合函数：同时生成进度条和百分比文本
bar_with_percent <- function(color = "green", digits = 1) {
  function(x) {
    # 获取当前行的b列数值，计算a在a+b中的占比
    row_total <- x + get("b", parent.frame())
    # 生成对应占比的进度条
    progress_bar <- color_bar(color)(x / row_total)
    # 把当前数值格式化为百分比文本
    percent_label <- percent(x, digits = digits)
    # 将百分比文本嵌入进度条的HTML元素中，添加边距优化显示
    tagAppendChild(progress_bar, span(percent_label, style = "margin-left: 5px;"))
  }
}

# 测试数据
tempDf <- data.frame(a = c(0.8, 0.5), b = c(0.2, 0.5), c = c(500, 500))

# 生成formattable表格
formattable(tempDf, list(
  a = bar_with_percent("green", digits = 1),
  # 如果b列也需要同样的效果，可以复用这个函数
  b = bar_with_percent("blue", digits = 1)
))

代码解释 #

1. 自定义函数bar_with_percent：

   • 先获取当前行的b列数值，计算a在a+b总和中的占比，用color_bar生成对应宽度的进度条；
   • 再把a列的原始数值格式化为指定小数位数的百分比文本；
   • 最后用htmltools的tagAppendChild把百分比文本嵌入进度条的容器中，加个小边距让文本显示更美观。

2. 简化规则指定：
   你之前用lapply遍历每一行的方式其实没必要，直接针对列指定自定义函数即可，这样既简洁又不会出现规则覆盖的问题。

运行这段代码后，A列就会同时显示绿色进度条和百分比文本了——第一行是80.0%的进度条+文本，第二行是50.0%的进度条+文本，完全符合你的需求。

内容的提问来源于stack exchange，提问作者HankSkank