我有一张桌子,上面有数字1-10。看起来像这样:
现在,我想为每个整数用不同的颜色填充单元格。例如,所有值为1的单元格应为红色,2为黑色..依此类推。您对如何实现这一点有什么建议吗?非常感谢。
确实存在可以执行此操作的软件包。当前具有最直接接口的程序包可能正在condformat
使用该condformat::rule_file_discrete
功能。不幸的是,我没有一个有效的示例,因为我condformat
需要使用rJava
,但它与我的系统配合得不好。
该pixiedust
程序包(完全公开,我是作者)可以完成此操作,但目前还不是很直接。
library(pixiedust)
library(scales)
library(magrittr)
# Make the table (as a matrix, but a data frame would work as well)
set.seed(pi)
X <- matrix(sample(1:10,
size = 100,
replace = TRUE),
nrow = 10)
# Define 10 colors
background <- hue_pal()(10) %>%
setNames(1:10)
show_col(background)
# Convert X to a dust object
X_dust <- dust(X)
# Apply the background colors
for (i in sort(unique(as.vector(X)))){
X_dust <-
sprinkle(X_dust,
rows = X_dust$body$row[X_dust$body$value == i],
cols = X_dust$body$col[X_dust$body$value == i],
bg = background[i],
fixed = TRUE)
}
# Print the HTML code
X_dust %>%
sprinkle_print_method("html")
我目前正在开发代码,仅用几行代码即可完成此操作,但是该功能尚未发布。
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句