如何在 R 中从 table object 制作漂亮的 tables

Question

我想在 R 中从 table 制作一个漂亮的 table。这是从因子变量创建的 table：

a=factor(sample(1:4, 10000, replace=TRUE))

b=factor(sample(c(0,1,NA), 10000, replace=TRUE))

table(a,b,exclude=NULL)

这是 table 命令的输出：

  b
a     0   1 <NA>
  1 855 824  851
  2 802 843  870
  3 821 868  855
  4 795 786  830

我想知道如何给这个 table 添加标题和格式来制作漂亮的 table 就像使用 gt 或其他类似的包

Answer 1

c <- table(a,b,exclude=NULL)

library(dplyr); library(tidyr); library(gt)

c %>%
  tibble::as_tibble() %>%
  tidyr::pivot_wider(names_from = b, values_from = n) %>%
  gt::gt() %>%
  gt::tab_header(
    title = "How do A and B coincide?",
    subtitle = "Such a great table"
  ) %>% gt::tab_spanner(
    label = "b",
    columns = 2:4
  )

如何在 R 中从 table object 制作漂亮的 tables

How maked beautiful tables from table object in R

r

dataframe

gt