具有最大值的条件格式 kableextra、组和颜色单元格

Question

我有以下格式的数据框

使用 kableExtra 我想在 yr 列上进行分组，然后为 ab 和 cd 为具有最大值的单元格着色。这样在 ab 中的第 3 和第 6 行将是红色的，在 cd 中的第 3 和第 5 行。我尝试了类似的东西

library(kableExtra)
sp %>% group_by(yr) %>%
mutate_if(is.numeric, function(x){
  cell_spec(x, "html", color  = ifelse(x >= lag(x) & x >= lead(x), "red", "green"))
} ) %>%
kable(format = "html", escape = F) %>%
kable_styling("striped", full_width = F)

但没有骰子。有什么建议吗？

可重现的数据框

yr <- c(2000, 2000, 2000, 2005, 2005, 2005)
ab <- c(1, 6, 11, 12, 3 , 14)
cd <- c(3, 7, 19, 3, 77, 4)

sp <- as.data.frame(cbind(yr, ab, cd))
sp$ab <- as.numeric(sp$ab)
sp$cd <- as.numeric(sp$cd)

谢谢！

Answer 1

将代码中的mutate_if(...) 更改为

mutate_if(is.numeric, ~ cell_spec(., "html", color=ifelse(.==max(.), "red", "green"))))

（以dplyr的现代写作方式）

mutate(across(where(is.numeric), ~ cell_spec(., "html", color=ifelse(.==max(.), "red", "green"))))

提供如下html表格

<table class="table table-striped" style="width: auto !important; margin-left: auto; margin-right: auto;">
 <thead>
  <tr>
   <th style="text-align:right;"> yr </th>
   <th style="text-align:left;"> ab </th>
   <th style="text-align:left;"> cd </th>
  </tr>
 </thead>
<tbody>
  <tr>
   <td style="text-align:right;"> 2000 </td>
   <td style="text-align:left;"> <span style="color: green !important;">1</span> </td>
   <td style="text-align:left;"> <span style="color: green !important;">3</span> </td>
  </tr>
  <tr>
   <td style="text-align:right;"> 2000 </td>
   <td style="text-align:left;"> <span style="color: green !important;">6</span> </td>
   <td style="text-align:left;"> <span style="color: green !important;">7</span> </td>
  </tr>
  <tr>
   <td style="text-align:right;"> 2000 </td>
   <td style="text-align:left;"> <span style="color: red !important;">11</span> </td>
   <td style="text-align:left;"> <span style="color: red !important;">19</span> </td>
  </tr>
  <tr>
   <td style="text-align:right;"> 2005 </td>
   <td style="text-align:left;"> <span style=" color: green !important;">12</span> </td>
   <td style="text-align:left;"> <span style="color: green !important;">3</span> </td>
  </tr>
  <tr>
   <td style="text-align:right;"> 2005 </td>
   <td style="text-align:left;"> <span style=" color: green !important;">3</span> </td>
   <td style="text-align:left;"> <span style="color: red !important;">77</span> </td>
  </tr>
  <tr>
   <td style="text-align:right;"> 2005 </td>
   <td style="text-align:left;"> <span style="color: red !important;">14</span> </td>
   <td style="text-align:left;"> <span style="color: green !important;">4</span> </td>
  </tr>
</tbody>
</table>