我是R的新手,我们知道在Excel中通过与另一列进行比较来有条件地格式化单元格(更改背景颜色)。
我尝试使用KableExtra在R中执行此操作。但我无法成功从另一行获取值并进行比较。我的任务是通过比较同一行中另一列的单元格使单元格显示为绿色,黄色或红色。
library(kableExtra)
library(dplyr)
library(knitr)
multirow_spec <- function(x, rows, ...) {
for (row in rows)
x <- kableExtra::row_spec(x, row, ...)
x
}
x <- knitr::kable(head(mtcars), "html")
multirow_spec(x, c(1, 3, 4), background="red")
x
以上代码无条件地成功更改整行的背景颜色。现在我想要的是根据下面的值将单元格颜色更改为绿色(&gt; mtcars $ gear)或黄色(= mtcars $ gear)或红色(&#39;&lt;&#39; mtcars $ gear)专栏mtcars $ gear。
有人可以帮助我吗? TIA答案 0 :(得分:2)
编写的问题有点不清楚,但是,我会尝试根据我的理解来演示解决方案。
首先,我不确定您要使用函数multirow_spec
尝试完成什么,因为包函数row_spec
已经为选项row
进行了矢量化...不适用于background
。
其次,我假设您希望颜色根据同一列(齿轮)中的先前值而变化,因为这是问题中提到的唯一值。我们将使用dplyr中的mutate
,case_when
和lag
来修改列。我们将cell_spec
用于定位单个单元格值。
library(dplyr)
library(knitr)
library(kableExtra)
mtcars %>%
slice(1:10) %>%
mutate(
gear = case_when(
gear > lag(gear) ~ cell_spec(gear, background = "green"),
gear == lag(gear) ~ cell_spec(gear, background = "yellow"),
gear < lag(gear) ~ cell_spec(gear, background = "red")
)) %>%
kable("html", escape = FALSE)
N.B。选项
escape = FALSE
是必需的,以便cell_spec
生成的 html 内容不会被转义。
<table>
<thead>
<tr>
<th style="text-align:right;"> mpg </th>
<th style="text-align:right;"> cyl </th>
<th style="text-align:right;"> disp </th>
<th style="text-align:right;"> hp </th>
<th style="text-align:right;"> drat </th>
<th style="text-align:right;"> wt </th>
<th style="text-align:right;"> qsec </th>
<th style="text-align:right;"> vs </th>
<th style="text-align:right;"> am </th>
<th style="text-align:left;"> gear </th>
<th style="text-align:right;"> carb </th>
</tr>
</thead>
<tbody>
<tr>
<td style="text-align:right;"> 21.0 </td>
<td style="text-align:right;"> 6 </td>
<td style="text-align:right;"> 160.0 </td>
<td style="text-align:right;"> 110 </td>
<td style="text-align:right;"> 3.90 </td>
<td style="text-align:right;"> 2.620 </td>
<td style="text-align:right;"> 16.46 </td>
<td style="text-align:right;"> 0 </td>
<td style="text-align:right;"> 1 </td>
<td style="text-align:left;"> NA </td>
<td style="text-align:right;"> 4 </td>
</tr>
<tr>
<td style="text-align:right;"> 21.0 </td>
<td style="text-align:right;"> 6 </td>
<td style="text-align:right;"> 160.0 </td>
<td style="text-align:right;"> 110 </td>
<td style="text-align:right;"> 3.90 </td>
<td style="text-align:right;"> 2.875 </td>
<td style="text-align:right;"> 17.02 </td>
<td style="text-align:right;"> 0 </td>
<td style="text-align:right;"> 1 </td>
<td style="text-align:left;"> <span style=" border-radius: 4px; padding-right: 4px; padding-left: 4px; background-color: yellow;">4</span> </td>
<td style="text-align:right;"> 4 </td>
</tr>
<tr>
<td style="text-align:right;"> 22.8 </td>
<td style="text-align:right;"> 4 </td>
<td style="text-align:right;"> 108.0 </td>
<td style="text-align:right;"> 93 </td>
<td style="text-align:right;"> 3.85 </td>
<td style="text-align:right;"> 2.320 </td>
<td style="text-align:right;"> 18.61 </td>
<td style="text-align:right;"> 1 </td>
<td style="text-align:right;"> 1 </td>
<td style="text-align:left;"> <span style=" border-radius: 4px; padding-right: 4px; padding-left: 4px; background-color: yellow;">4</span> </td>
<td style="text-align:right;"> 1 </td>
</tr>
<tr>
<td style="text-align:right;"> 21.4 </td>
<td style="text-align:right;"> 6 </td>
<td style="text-align:right;"> 258.0 </td>
<td style="text-align:right;"> 110 </td>
<td style="text-align:right;"> 3.08 </td>
<td style="text-align:right;"> 3.215 </td>
<td style="text-align:right;"> 19.44 </td>
<td style="text-align:right;"> 1 </td>
<td style="text-align:right;"> 0 </td>
<td style="text-align:left;"> <span style=" border-radius: 4px; padding-right: 4px; padding-left: 4px; background-color: red;">3</span> </td>
<td style="text-align:right;"> 1 </td>
</tr>
<tr>
<td style="text-align:right;"> 18.7 </td>
<td style="text-align:right;"> 8 </td>
<td style="text-align:right;"> 360.0 </td>
<td style="text-align:right;"> 175 </td>
<td style="text-align:right;"> 3.15 </td>
<td style="text-align:right;"> 3.440 </td>
<td style="text-align:right;"> 17.02 </td>
<td style="text-align:right;"> 0 </td>
<td style="text-align:right;"> 0 </td>
<td style="text-align:left;"> <span style=" border-radius: 4px; padding-right: 4px; padding-left: 4px; background-color: yellow;">3</span> </td>
<td style="text-align:right;"> 2 </td>
</tr>
<tr>
<td style="text-align:right;"> 18.1 </td>
<td style="text-align:right;"> 6 </td>
<td style="text-align:right;"> 225.0 </td>
<td style="text-align:right;"> 105 </td>
<td style="text-align:right;"> 2.76 </td>
<td style="text-align:right;"> 3.460 </td>
<td style="text-align:right;"> 20.22 </td>
<td style="text-align:right;"> 1 </td>
<td style="text-align:right;"> 0 </td>
<td style="text-align:left;"> <span style=" border-radius: 4px; padding-right: 4px; padding-left: 4px; background-color: yellow;">3</span> </td>
<td style="text-align:right;"> 1 </td>
</tr>
<tr>
<td style="text-align:right;"> 14.3 </td>
<td style="text-align:right;"> 8 </td>
<td style="text-align:right;"> 360.0 </td>
<td style="text-align:right;"> 245 </td>
<td style="text-align:right;"> 3.21 </td>
<td style="text-align:right;"> 3.570 </td>
<td style="text-align:right;"> 15.84 </td>
<td style="text-align:right;"> 0 </td>
<td style="text-align:right;"> 0 </td>
<td style="text-align:left;"> <span style=" border-radius: 4px; padding-right: 4px; padding-left: 4px; background-color: yellow;">3</span> </td>
<td style="text-align:right;"> 4 </td>
</tr>
<tr>
<td style="text-align:right;"> 24.4 </td>
<td style="text-align:right;"> 4 </td>
<td style="text-align:right;"> 146.7 </td>
<td style="text-align:right;"> 62 </td>
<td style="text-align:right;"> 3.69 </td>
<td style="text-align:right;"> 3.190 </td>
<td style="text-align:right;"> 20.00 </td>
<td style="text-align:right;"> 1 </td>
<td style="text-align:right;"> 0 </td>
<td style="text-align:left;"> <span style=" border-radius: 4px; padding-right: 4px; padding-left: 4px; background-color: green;">4</span> </td>
<td style="text-align:right;"> 2 </td>
</tr>
<tr>
<td style="text-align:right;"> 22.8 </td>
<td style="text-align:right;"> 4 </td>
<td style="text-align:right;"> 140.8 </td>
<td style="text-align:right;"> 95 </td>
<td style="text-align:right;"> 3.92 </td>
<td style="text-align:right;"> 3.150 </td>
<td style="text-align:right;"> 22.90 </td>
<td style="text-align:right;"> 1 </td>
<td style="text-align:right;"> 0 </td>
<td style="text-align:left;"> <span style=" border-radius: 4px; padding-right: 4px; padding-left: 4px; background-color: yellow;">4</span> </td>
<td style="text-align:right;"> 2 </td>
</tr>
<tr>
<td style="text-align:right;"> 19.2 </td>
<td style="text-align:right;"> 6 </td>
<td style="text-align:right;"> 167.6 </td>
<td style="text-align:right;"> 123 </td>
<td style="text-align:right;"> 3.92 </td>
<td style="text-align:right;"> 3.440 </td>
<td style="text-align:right;"> 18.30 </td>
<td style="text-align:right;"> 1 </td>
<td style="text-align:right;"> 0 </td>
<td style="text-align:left;"> <span style=" border-radius: 4px; padding-right: 4px; padding-left: 4px; background-color: yellow;">4</span> </td>
<td style="text-align:right;"> 4 </td>
</tr>
</tbody>
</table>
&#13;