Как позвонить или использовать форматируемый на столе

Question

У меня есть фрейм данных my_df, содержащий две колонки: пол (м / ж) и больной (да / нет). Я создал таблицу сопряженности из этих двух, используя:

my_table <- addmargins(table(my_df$gender, my_df$sick))

Теперь я хочу стилизовать этот самый базовый c вывод с помощью функции formattable :: formattable (), которую я только что нашел, но у меня не получается на одном из первых шагов, когда вызов formattable(my_table) возвращает то же самое, что и my_table. Чего мне не хватает?

В настоящее время пытаюсь с этим руководством: https://www.littlemissdata.com/blog/prettytables

Первый раз после нескольких недель скрытности, чтобы как-то начать с Р. Надеюсь, я остался в рамках этикета.

С уважением, Толори

Answer 1

Я посмотрел в документах. formattable работает с data.frames, а не с табличными объектами. Для работы с таблицей вы должны преобразовать ее в data.frame. Поскольку преобразование нарушает макет таблицы, вы должны изменить результирующий df, например, на spread из tidyr.

library(dplyr)
library(tidyr)
library(formattable)

# example data = mtcars
my_table <- addmargins(table(factor(mtcars$cyl), factor(mtcars$gear))) %>% 
  as.data.frame() %>% 
  spread(Var2, Freq)

formattable(my_table)