r - RMarkdown文档中的条件格式表

Question

例如，我可能要使用以下规则为单元格着色:

(编辑以平凡)

如果> 4

，则为蓝色

如果<= 4和> = 3.5

，则不填充

如果> = 3并且<3.5

，则为黄色

如果<3

，则为橙色

Create tables with conditional formatting with RMarkdown + knitr
这对我没有帮助，因为我不只是想要突出显示满足一组条件的单元格。

rmd示例:

---
title: "Untitled"
output: html_document
---

```{r, message = FALSE, results = "asis"}
library(knitr)
library(dplyr)
head(iris) %>% kable
```

如果需要的话，我将采用 DataTables解决方案

Answer 1

您好，这里是使用FlexTable包中的函数ReporteRs的解决方案。该函数旨在创建Word表，但您可以使用as.html从FlexTable对象获取html代码:

---
title: "Untitled"
output: html_document
---


```{r, results='asis', warning=FALSE, message=FALSE}
library(ReporteRs)
data(iris)
irisFT = FlexTable( iris )

vars <- c("Sepal.Length", "Sepal.Width", "Petal.Length", "Petal.Width")
for (i in vars) {
  irisFT[iris[, i] < 3, i] = cellProperties( background.color = "orange" )
  irisFT[iris[, i] >= 3 & iris[, i] < 3.5, i] = cellProperties( background.color = "yellow" )
  irisFT[iris[, i] > 4, i] = cellProperties( background.color = "#81DAF5" )
}

cat(as.html(irisFT))
```

有关更多示例，请访问 https://davidgohel.github.io/ReporteRs/articles/FlexTable.html