相关疑难解决方法(0)

我想在以下数据框中为特定单元格着色.例如,在inputval列中,我想要突出显示[0.8, 0.9)洋红色范围内的单元格,以及[0.7, 0.8)蓝色范围内同一列中的单元格.同样,我希望值为1的输出列单元格为洋红色,而值为4的输出列单元格为蓝色.对于数据框中的其余单元格,我希望它们保持白色.

我有以下可重现的代码,仅按行突出显示,并且仅限于使用洋红色和白色进行着色.如何添加其他颜色并按单元格添加？

set.seed(123)
df <- data.frame(id       = sample(1:100, 20, replace = TRUE),
                 inputval = sample(seq(0, 1, by=0.01), 20, replace = TRUE),
                 outcome  = sample(1:4, 20, replace = TRUE))

cols <- with(df, ifelse(outcome == 1, 'magenta', 'white'))

library('htmlTable')
htmlTable(as.matrix(df), col.rgroup = cols)

我意识到添加不同颜色的问题在于ifelse调用,with这限制了我只有洋红色和白色.我怎样才能在这里添加另一个条件？

虽然我知道是什么导致了多种颜色问题,但我对于如何仅为特定细胞着色非常无能为力.

这是与此问题的接受答案相同的示例.谢谢!

如何在xtable表中添加颜色间距？

我按照以下说明生成表:

test.table<-xtable(summary(test),caption='test', floating = FALSE)
align(test.table) <- "|c|l|"
print(test.table,caption.placement='top')

谢谢你的回答