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

Question

我在一个R标记文档中有下面这行代码。变量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"))`