如何在 table 上调用或使用 formattable

Question

我有一个数据框 my_df，其中包含两列性别 (m/f) 和生病 (yes/no)。我使用以下两个方法创建了一个应急 table：

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

现在我想通过使用我刚刚找到的 formattable::formattable() 函数来设计这个非常基本的输出，但是我在调用的第一步中失败了 formattable(my_table) 与 my_table 的作用相同 return。我错过了什么？

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

在潜伏数周以某种方式开始使用 R 后第一次发帖。希望我遵守礼仪。

此致索洛里

Answer 1

我查看了文档。 formattable 适用于 data.frames 而不是 table 对象。要使用您的 table，您必须将其转换为 data.frame。由于转换破坏了 table 布局，您必须重塑生成的 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)

如何在 table 上调用或使用 formattable

How to call or use formattable on a table

r

formattable