如何解决在formattable中,背景色可以由其他列确定吗?
我正在使用formattable,并且我喜欢色块的外观,但是我无法弄清楚如何在该列中的渐变以外的任何颜色上指定颜色。我希望在color_tile中看到的背景色由其他列中的值确定
col1 <- c("a","b","c","d")
col2 <- c(532,123,324,NA)
col3 <- c(532,NA)
col4 <- c(-1,+1,NA)
df <- data.frame(col1,col2,col3,col4)
formattable(df,list(col1 = formatter("span",style = ~ style(color = "black",font.weight = "bold")),col2 = color_tile("lightseagreen","lightskyblue"),col3 = formatter("span",style = ~style(color = ifelse(col4 == 1,"red",ifelse(col4 == 0,"green",ifelse(col4 == -1,"yellow","blue")))))
))
Col2具有漂亮的颜色平铺,基于第4列中的值,col3的文本是正确的颜色,我如何将二者结合起来,从而基于不同列中的值获得不错的选择背景色。还有“ span”或“ color”选项吗?
解决方法
使用以下代码为col3
设置最喜欢的后组颜色。现在,我离开了您选择的那个。
formattable(df,list(col1 = formatter("span",style = ~ style(color = "black",font.weight = "bold")),col2 = color_tile("lightseagreen","lightskyblue"),col3 = formatter("span",style = ~style(display = "block",padding = "0 4px",`border-radius` = "4px",`background-color` = ifelse(col4 == 1,"red",ifelse(col4 == 0,"green",ifelse(col4 == -1,"yellow","blue")))))))
我发现可以通过查看函数color_tile
的代码来实现:
> color_tile
function (...)
{
formatter("span",style = function(x) style(display = "block",`background-color` = csscolor(gradient(as.numeric(x),...))))
}
<bytecode: 0x00000225fccd6e08>
<environment: namespace:formattable>
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。