私はそのようなバーテーブルを持っています(私が持っているもの)。私の問題は、最後の行をカラーバーなしにしたいことです(デフォルトのように:番号のみ)
data(mtcars)
library(knitr)
library(kableExtra)
library(formattable)
library(dplyr)
library(stringr)
mtcars[1:5, 1:4] %>%
mutate(
car = row.names(.),
mpg = color_bar("lightgreen")(mpg),
cyl = color_bar("lightgreen")(cyl),
disp = color_bar("lightgreen")(disp),
hp = color_bar("lightgreen")(hp)
) %>%
select(car, everything()) %>%
kable("html", escape = F) %>%
kable_styling("hover", full_width = F) %>%
column_spec(5, width = "3cm")
前もって感謝します