如何更改 Kableextra 中单个单元格的文本颜色？

Question

有没有办法改变单个单元格/多个单元格的文本颜色？

例如，我有一个表格，我将所有文本的颜色更改为红色。 但我希望对角线颜色为蓝色

有没有办法做到这一点？

我已尝试使用testStats[1, 2] <- cell_spec(testStats[1, 2], "latex", color = "blue") 更改一个单元格的颜色。

但似乎不起作用。

library(kaleExtra)

test = iris
testStats = as.data.frame(apply(iris[,1:4], 2, summary))

kable(testStats, booktabs =TRUE,caption = "Sample") %>%
  kable_styling(latex_options = c('hold_position')) %>%
  column_spec(2:5, color = "red")


  testStats[1, 2] <- cell_spec(testStats[1, 2], "latex", color = "blue")

Answer 1

您可以在循环中使用cell_spec 来更改多个单元格。对于对角线，您可以这样做 -

library(kableExtra)

test = iris
testStats = as.data.frame(round(apply(iris[,1:4], 2, summary), 2))
for(i in seq_along(testStats)) {
  testStats[i, i] <- cell_spec(testStats[i, i], "html", color = "blue")
}

kable(testStats, 'html', booktabs =TRUE,caption = "Sample", escape = FALSE) %>%
  kable_styling(latex_options = c('hold_position')) %>%
  column_spec(2:5, color = "red")