gpt4 book ai didi

r - DT 根据单独的数据框将背景颜色应用于单元格

转载 作者:行者123 更新时间:2023-12-01 23:27:10 25 4
gpt4 key购买 nike

我有一个表格,我想将背景颜色应用于单个单元格。颜色与呈现的数据没有明显的直接关系,并在单独的数据集中指定。

我将如何应用指定的背景单元格颜色:

set.seed(123)
colours2apply <- sample(x=c(rgb(1, 0, 0 ), rgb(1, 1, 0 ), rgb(0, 1, 1 )), 25, replace = T) %>%
matrix(nrow=5) %>%
data.frame()

> colours2apply
X1 X2 X3 X4 X5
1 #FF0000 #FF0000 #00FFFF #00FFFF #00FFFF
2 #00FFFF #FFFF00 #FFFF00 #FF0000 #00FFFF
3 #FFFF00 #00FFFF #00FFFF #FF0000 #FFFF00
4 #00FFFF #FFFF00 #FFFF00 #FF0000 #00FFFF
5 #00FFFF #FFFF00 #FF0000 #00FFFF #FFFF00

到数据表,如:
datatable(iris[1:5, 1:5])

干杯,
吕克

最佳答案

dat <- iris[1:5,1:5]
colours2apply <- sample(x=c(rgb(1, 0, 0 ), rgb(1, 1, 0 ), rgb(0, 1, 1 )), 25, replace = T) %>%
matrix(nrow=5) %>%
data.frame()

dat <- cbind(dat, colours2apply)

datatable(dat,
options = list(columnDefs = list(list(visible=FALSE, targets = 6:10)))) %>%
formatStyle(1, valueColumns = 6, backgroundColor = JS("value")) %>%
formatStyle(2, valueColumns = 7, backgroundColor = JS("value")) %>%
formatStyle(3, valueColumns = 8, backgroundColor = JS("value")) %>%
formatStyle(4, valueColumns = 9, backgroundColor = JS("value")) %>%
formatStyle(5, valueColumns = 10, backgroundColor = JS("value"))

enter image description here

或者,使用循环:
DT <- datatable(dat, 
options = list(columnDefs = list(list(visible=FALSE, targets = 6:10))))
for(i in 1:5){
DT <- DT %>%
formatStyle(i, valueColumns = i+5, backgroundColor = JS("value"))
}
DT

关于r - DT 根据单独的数据框将背景颜色应用于单元格,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/56105725/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com