我正在尝试同时使用formattable和kableExtra来创建一个具有color_bar的表。但是似乎当我使用某些数字向量时，列文本会随机溢出到其他列中。这是我生成的表的样子：

您可以看到前两列存在对齐问题，但最后一列由于某些原因没有。

在此链接上有一个如何使用mtcars数据集执行此操作的示例： http://haozhu233.github.io/kableExtra/use_kableExtra_with_formattable.html

对我来说很好。但是，如果我将hp列中的值之一随机设置为一个相对较低的值，则我开始看到文本溢出问题。这是一段可复制的代码：

df <- mtcars[1:5,1:4]
df[2,4] <- 2
df[4,4] <- 0.04
df %>%
  mutate(
    car = row.names(.),mpg = color_tile("white","orange")(mpg),cyl = cell_spec(cyl,"html",angle = (1:5)*60,background = "red",color = "white",align = "center"),disp = ifelse(disp > 200,cell_spec(disp,color = "red",bold = T),color = "green",italic = T)),hp = color_bar("lightgreen")(hp)
  ) %>%
  select(car,everything()) %>%
  kable("html",escape = F) %>%
  kable_styling("hover",full_width = T) %>%
  add_header_above(c(" ","Hello" = 2,"World" = 2))

这是下面的样子：