如何在RMarkdown的Kable中为每行最大百分比单元格着色？

你的代码错误原因是直接对带百分号的字符串进行大小比较，字符串会按首字符ASCII码排序（比如"9.1%"会被判定为比"49.2%"大），而非实际数值大小。要修正这个问题，需先将百分比转换为数值，再判断每行的最大值，最后应用着色样式。

正确代码示例 #

---
title: "Color Max Percentage"
output:
  html_document: default
  pdf_document: default
---

```{r setup, include = F}
library(tidyverse)
library(knitr)
library(kableExtra)
options(knitr.table.format = "html")

df = data.frame(
  x = c(1, 2, 3, 4, 5),
  a = c("12.7%", "14.0%", "49.2%", "20.4%", "23.2%"),
  b = c("35.6%", "19.0%", "9.1%", "25.5%", "11.2%"),
  c = c("6.9%", "54.1%", "31.3%", "15.4%", "17.5%")
)

df <- df %>%
  rowwise() %>%
  # 先将百分比列转为数值，找出每行最大值
  mutate(max_val = max(parse_number(c_across(a:c)))) %>%
  # 对每个百分比列，判断是否等于最大值，再设置样式
  mutate(across(a:c, ~cell_spec(
    .x,
    format = "html",
    color = ifelse(parse_number(.x) == max_val, "red", "blue")
  ))) %>%
  # 移除临时的max_val列
  select(-max_val)

df %>%
  kable(escape = F) %>%
  kable_styling()

### 关键步骤说明
- 使用`parse_number()`函数从百分比字符串中提取数值，规避字符串比较的逻辑错误
- 每行计算出最大数值`max_val`，作为着色判断的基准
- 对每个百分比列，将提取的数值与`max_val`对比，匹配则设置红色，否则蓝色
- 最后移除临时的`max_val`列，不影响表格最终展示

内容的提问来源于stack exchange，提问作者bdedu