DT применяет цвет фона к ячейке на основе отдельного фрейма данных - PullRequest
Новая
       16

DT применяет цвет фона к ячейке на основе отдельного фрейма данных

3 голосов
/ 13 мая 2019

У меня есть таблица, к которой я хотел бы применить цвета фона к отдельным ячейкам.Цвета не имеют очевидной прямой связи с представленными данными и указываются в отдельном наборе данных.

Как бы применить цвета ячеек фона, указанные в: 

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])

Ура, Люк

1 Ответ

4 голосов
/ 13 мая 2019 
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
...