使用 R Markdown 进行交叉制表

Question

我很难为 PDF 编织的 R Markdown 文档创建一个简单美观的交叉表。我有一个类似于此示例的数据集：

library(tidyverse)
fakeData <- tibble(id = c(1,2,3,4,5,6,7,8,9,10),
                   bmi = c("normal", "overweighted", "underweighted", "normal", "normal", "overweighted",
                           "normal", "overweighted", "underweighted","normal"),
                   gender = c("M", "F", "M", "M", "F", "F", "M", "F", "F", "F"))

我想要这样的输出：

有没有人有技巧/已知的好包来做到这一点？非常感谢！

Answer 1

我认为 janitor-package 可以帮助你...

注意：'total' 列中的百分比与您想要的输出不匹配...那是因为您在输出中混合了 colwise 和 rowwise 百分比计算。这真的是您想要的吗？

library( janitor )

fakeTable <- fakeData %>% 
  tabyl( gender, bmi ) %>% 
  adorn_totals( where = c("row", "col") ) %>%
  adorn_percentages("row") %>%
  adorn_pct_formatting() %>%
  adorn_ns( position = "front" ) %>%
  adorn_title("combined")

# gender/bmi    normal overweighted underweighted       Total
#          F 2 (33.3%)    3 (50.0%)     1 (16.7%)  6 (100.0%)
#          M 3 (75.0%)    0  (0.0%)     1 (25.0%)  4 (100.0%)
#      Total 5 (50.0%)    3 (30.0%)     2 (20.0%) 10 (100.0%)

针织

library(knitr)
library(kableExtra)
fakeTable %>%
  kable() %>%
  kable_styling(bootstrap_options = c("condensed", "striped", "bordered"))

Answer 2

我认为包 summarytools 可以产生所需的输出。使用你的假数据：

library(summarytools)
print(ctable(x = fakeData$gender, y = fakeData$bmi, prop = "t"),
      method = "render")

使用 R Markdown 进行交叉制表

Cross Tabulation with R Markdown

markdown

r

crosstab

r-markdown