R markdown 如何有条件地设置内联代码中的字体颜色

Question

我在 R markdown 文档中有以下代码行。变量 uplift_all 和 bench 是预先确定的。该行应该测试 uplift_all 是否大于 bench，如果是，我想以绿色字体显示 uplift_all 的值，如果不是，我想以红色字体显示。谁能建议我如何修改代码以使字体颜色按需要显示？

<font size="15">***`r if(uplift_all > bench){ uplift_all} else{ uplift_all}` %***</font>

Answer 1

您可以定义一个方便的函数来设置字体颜色：

textcolor <- function(text, color){
  sprintf("<span style='color: %s;'>%s</span>", color, text)
}

然后做

`r textcolor(uplift_all, ifelse(uplift_all > bench, "green", "red"))`