突出显示带有条件逻辑的单元格（对于html，R Markdown输出）

Question

我想突出显示表格中的某些单元格。

例如，突出显示total_n_obs > 5000所有单元格。

图片

我看到了大约2年前的解决方案（使用CSS或pander），但无法实现它们。

有没有一种方法可以直接将此代码编码到RMarkdown脚本中？

非常感谢，非常感谢您的帮助/想法！

Answer 1

要突出显示文本，请更改total_n_obs列的背景颜色样式，如下例所示。 （我使用plyr :: summarise命令创建了一个新列）

library(plyr)

df2 <- adply(df,1,
summarise, total_n_obs_t = ifelse(total_n_obs >= 5000,
paste('<div style="background-color: yellow; text-align: right;">',total_n_obs,'</div>',sep=""),
          paste('<div style="font-weight: bold; text-align: right;">',total_n_obs,'</div>',sep="")
                                 )