我找到了如何使用 cell_spec() 和一些固定規則格式化 ka??ble 中的單元格：
## coloring cell based on fixed value ranges
iris %>%
select(-Species) %>%
mutate_all(~cell_spec(.x, color = case_when(.x < 0 ~ "red",
.x >= 0 ~ "black",
is.na(.x) ~ "purple"))) %>%
kable()
不過，我想做的是根據每個單元格在該行中出現的 4 個值中的排名為每個單元格的文本著色...
## what I want, to color cells based on row-wise value rank
iris %>%
select(-Species) %>%
rowwise() %>%
mutate_all(~cell_spec(.x, color = ## largest value in row = green, 2nd is yellow, 3rd is orange, 4th is red
) %>%
kable()
我可以在我的 dplyr 鏈中做到這一點嗎？或者，如果不是，我怎么可能完成它？
uj5u.com熱心網友回復：
您可以創建一個函式來獲取一行資料，確定排名（并處理關系），然后cell_spec根據排名分配單元格的顏色。
您可以apply按行使用自定義函式。
library(tidyverse)
library(kableExtra)
library(knitr)
df <- iris[, 1:4]
my_fun <- function(x) {
rnk <- rank(x, ties.method = "first")
cell_spec(x, color = c("red", "orange", "yellow", "green")[rnk])
}
df <- t(apply(df, 1, my_fun))
df %>%
kable(escape = F) %>%
kable_styling()
輸出
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/340871.html
上一篇：如何在R中執行k均值聚類
下一篇：如何從下拉框中提取選定的值