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

Question

I want to highlight certain cells in a table.

For example, highlight all cells where total_n_obs > 5000 .

Image

I have seen solutions from ~2 years ago (which use CSS or pander) but have not been able to implement them.

Is there a way to code this directly into an RMarkdown script?

Thanks a lot, I really appreciate any help/ideas!

Answer 1

To highlight text change the background-color style of total_n_obs column, as shown in the example below. (I have created a new column using the plyr::summarise command)

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="")
                                 )