如何在HTML格式的R Markdown中为文本设置条件颜色？

当然可以实现，核心思路是让函数返回带HTML行内样式的内容，让R Markdown渲染成带颜色的文本，具体步骤如下：

方法一：返回HTML字符串并解析 #

修改你的check_status函数，让它返回包含<span>标签的HTML字符串，每个状态对应不同的颜色样式：

{r setup, include=FALSE, echo=FALSE}
library(htmltools)
check_status <- function(fig1){
  if(is.na(fig1)){
    "<span style='color: black;'>not run</span>"
  } else if(fig1 == 1){
    "<span style='color: green;'>passed</span>"
  } else if(fig1 == 0){
    "<span style='color: red;'>failed</span>"
  }
}                           
x <- 1
y <- 0
z <- NA

在文档中调用时，用htmltools::HTML()包裹函数输出，确保R Markdown解析HTML代码而非显示原始字符串：

# 测试不同状态
- 状态1（通过）：`r HTML(check_status(x))`
- 状态0（失败）：`r HTML(check_status(y))`
- 状态NA（未运行）：`r HTML(check_status(z))`

方法二：直接返回HTML对象（更简洁） #

借助htmltools包的span()函数直接生成HTML元素对象，函数内部返回该对象后，R Markdown会自动渲染样式：

{r setup, include=FALSE, echo=FALSE}
library(htmltools)
check_status <- function(fig1){
  if(is.na(fig1)){
    span("not run", style = "color: black;")
  } else if(fig1 == 1){
    span("passed", style = "color: green;")
  } else if(fig1 == 0){
    span("failed", style = "color: red;")
  }
}                           
x <- 1
y <- 0
z <- NA

调用时直接使用函数即可：

# 测试不同状态
- 状态1（通过）：`r check_status(x)`
- 状态0（失败）：`r check_status(y)`
- 状态NA（未运行）：`r check_status(z)`

两种方法都能在HTML格式的R Markdown报告中，让"passed"显示绿色、"failed"显示红色、"not run"显示黑色。

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