如何调用或使用表上的formattable

Question

我得到了一个数据帧my_df，其中包含性别(m/f)和病态(yes/no)两列。我在这两个表中创建了一个列联表，使用：

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

现在，我想通过使用我刚刚找到的formattable::formattable()函数来样式化这个非常基本的输出，但是在第一步中我失败了，因为调用formattable(my_table)确实返回了与my_table相同的结果。我遗漏了什么？

目前正在尝试使用本指南：https://www.littlemissdata.com/blog/prettytables

第一次发布后，潜伏了几个星期，开始以某种方式与R。希望，我留在礼仪。

致以最好的问候

Answer 1

我看过文件了。formattable适用于data.frames而不是表对象。要使用您的表，您必须将其转换为data.frame。当转换破坏表格布局时，您必须重塑生成的df，例如通过来自tidyr的spread。

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)