объединение color_tile из formattable с kableExtra для каждой второй ячейки в столбце - PullRequest
0 голосов
/ 08 марта 2020

Моя цель - создать латексную таблицу, в которой каждая вторая строка условно отформатирована в зависимости от значения ячейки по сравнению с другими значениями в том же столбце.

Пример желаемого цветового кодирования с форматируемым

Я думаю, что это должно быть возможно с форматируемым и kableExtra на основе моего экспертного поиска в Google: https://cran.r-project.org/web/packages/kableExtra/vignettes/use_kableExtra_with_formattable.html и kableExtra, как использовать cell_spe c из определенного пользователем диапазона?

Пример данных:

 df <- data.frame(Group = c("1.a","1.a","2.b","2.b","3.c","3.c"),
                  Obesity = c("1(ref)",35,"0.6 (0.5,0.7)",25,"0.7 (0.6,0.9)",20),
                  stringsAsFactors = FALSE)

При использовании только форматируемого этот код работает для html вывод:

library(formattable)
 formattable(df, list(area(row = seq(2, nrow(df), by=2), col = Obesity  ) ~ 
                                      color_tile("transparent", "pink")
      ))
...