r - color_bar {formattable} 内のテキストの書式設定

Question

formattable:color_bar を使用してテーブルの書式を設定しています。3 桁ごとの区切り記号としてコンマを追加し、フォントの色を調整したいと考えています。

color_bar を使用しないセルの場合、cell_spec を使用してフォントの色を変更する方法はわかりますが、color_bar を使用しているセルでそれを行う方法がわかりません。

library(tidyverse)
library(knitr)
library(kableExtra)
library(formattable)

df <- tibble (
  rank = c(1,2,3),
  tree = c("Norway Maple", "Honey Locust", "Colorado Blue Spruce"),
  number = c(74688, 24286, 21917)
)

df %>% 
  mutate(
    tree = cell_spec(tree, "html", color = "black"),
    number = color_bar()(number)) %>% 

  kable("html", escape = F,  align = c("l", "l")) %>%
  kable_styling(bootstrap_options = c("hover", "responsive", "condensed"), full_width = F, position = "float_left")  %>%
  column_spec(3, width = "10cm")