Я использую пакет KableExtra
для отображения таблицы. Мне нужно отобразить фрейм данных, свернув строки, а также изменить цвет линии сетки.
Используемый кадр данных выглядит следующим образом:
marksDF <- data.frame(
Staff = c("Henry","Henry","Clay","Clay","Clay","Clay","Clay","David","Jensen","Jensen","Jensen","Alex","Alex","Alex","Alex","Alex","Alex","Alex"),
Grade = c("9","10","11","11","12","12","8","9","9","9","9","9","9","9","9","9","10","11"),
Term1 = c("0","0","4","3","1","3","0","2","0","40","0","0","10","3","3","0","5","2"),
stringsAsFactors = FALSE
)
Код, используемый для отображения кадра данных в табличном формате:
kable(marksDF, "html", booktabs = T, align = rep('c',2)) %>%
kable_styling(latex_options = "striped", stripe_color = "red") %>%
kableExtra::kable_styling(full_width = T) %>%
column_spec(1)%>%
collapse_rows(columns = 1:2) %>%
row_spec(1:2, align = "c", color = 'black')
Полученный вывод:
Ожидаемый результат для каждого персонала, должна отображаться оценка. Но я получаю 9 класс для сотрудников Дэвид, Дженсен, Алекс.
Как этого добиться с помощью пакета kableExtra?