Вот подход с dplyr
и tidyr
для обработки данных и gt
для визуализации:
Обратите внимание, что "Column2" is specified in
values_from`, но вы можете изменить это, чтобы визуализировать другие столбцы.
library(dplyr)
library(tidyr)
library(dt)
library(scales)
data %>%
separate(1, into = c("Column1","Name"),
sep = "(?<=[A-Z])(?=\\d)") %>%
pivot_wider(id_cols = 1, names_from = "Name",
values_from = "Column2") %>%
gt() %>%
data_color(columns = 2:13,
colors = col_numeric(palette = c("green","yellow","red"),
domain = c(10,1000)))
Пример данных
set.seed(3)
data <- data.frame(Column1 = paste0(rep(LETTERS[1:8],each=12),rep(1:12,time=8)),sapply(c(10,20),function(x){round(runif(12*8,x,x*100),0)}))
names(data) <- paste0("Column",1:3)