Блог

Главная - Вопросы по программированию - В R DT datatable, как создать сложную таблицу заголовков

В R DT datatable, как создать сложную таблицу заголовков

#r

Вопрос:

Как перенести «данные слева» в «данные справа» (я хочу перенести переменные «фабрика» и «цвет» в заголовок (сложный заголовок) )

 library(DT)
library(tidyverse)

factory <- c("F1", "F1", "F1", "F1", "F1", "F1", "F1", "F1", "F1", "F1", "F1", "F1", "F1", "F1", "F2", "F2", "F2", "F2", "F2", "F2", "F2")
color <- c("A", "A", "A", "A", "A", "A", "A", "B", "B", "B", "B", "B", "B", "B", "C", "C", "C", "C", "C", "C", "C")
category <- c("cat1", "cat1", "cat1", "cat2", "cat2", "cat2", "cat2", "cat2", "cat2", "cat2", "cat3", "cat3", "cat3", "cat3", "cat3", "cat3", "cat3", "cat4", "cat4", "cat4", "cat4")
amount <- c(279, 185, 43, 249, 17, 63, 243, 71, 286, 41, 271, 285, 138, 109, 123, 258, 174, 114, 177, 30, 32)
my_data <- data.frame(factory,color,category,amount)
my_data$ID <- seq_len(nrow(my_data))
my_data <- my_data %>% select('ID',everything())

datatable(my_data)

введите описание изображения здесь

Комментарии:

1. Вам это нужно для демонстрации ? Так tidyr::pivot_wider(my_data, names_from = c(color, factory), values_from = amount) что бы не получилось?

2. Спасибо, я хочу отобразить его в HTML-файле (в настоящее время я использую DT::datatable() для создания HTML-файла, есть ли способ показать результат ‘pivot_wider’ в DT::datatable ? )

3. Да, если вы сохраните вывод pivot_wider in df1 , вы можете это сделать DT::datatable(df1) .

4. спасибо, может быть, это такой же простой способ для моей цели

Метки: ,