在 R 中创建一个发布就绪表，将组作为嵌套列

发布于05月02日

我使用R已经有很多年了，但我越来越需要为出版物制作优雅的表格.我更喜欢让R为我做这件事，但我从来没有花时间来学习这一点，最终总是在Word中编辑表格.

我目前正在try 使用gtsum包生成一个外观美观的事件报告摘要统计表.我的数据几乎有15万行，它包含以下内容(简化):

Year <- c('2016','2017','2018','2016','2017','2018')
Type <- c('Fall','Concussion','Fall','Burn','Burn','Laceration')
Service <- c('Hospital','Hospital','Nursing home','Hospital','Trauma centre','Hospital')
Risk <- c(6,10,3,15,3,6)
dat <- cbind.data.frame(Year,Type,Service,Risk)

我想要生成的是一个使用gtsum的表格，其中行是‘Type’，列是按服务分组，然后是按年，表格单元格中显示的数据是平均风险.

到目前为止，我已经能够以我想要的确切 struct 生成表格，但我不知道如何指定单元格中的值应该是风险的平均值.以下是将产生上述结果的代码:

data %>%
  select(c(Type,Service,Risk,Year)) %>%
  tbl_strata(
    strata = Service,
    ~ .x %>%
      tbl_summary(by = Year, missing = "no")))

为了清楚起见，我希望该表具有以下 struct :

我已经try 了所有的方法，非常感谢大家对我的指点！

library(gtsummary) #> #BlackLivesMatter packageVersion("gtsummary") #> [1] '1.7.1' Year <- c('2016','2017','2018','2016','2017','2018') Type <- c('Fall','Concussion','Fall','Burn','Burn','Laceration') Service <- c('Hospital','Hospital','Nursing home','Hospital','Trauma centre','Hospital') Risk <- c(6,10,3,15,3,6) dat <- cbind.data.frame(Year,Type,Service,Risk) |> # filling in so each cell has at least one value tidyr::complete(Year,Type,Service, fill = list(Risk = 1)) tbl <- dat %>% tbl_strata( strata = Service, ~ .x %>% tbl_continuous( by = Year, variable = Risk, include = Type, statistic = ~"{mean}" ) |> modify_header(all_stat_cols() ~ "**{level}**") )

在 R 中创建一个发布就绪表，将组作为嵌套列

推荐答案

R相关问答推荐

使用ggcorrplot在相关性矩阵上标注supertitle和index标签

Highcharter多次钻取不起作用，使用不同方法

如何在modelsummary中重命名统计数据？

如何直接从R中的风险分数计算c指数？

错误：非常长的R行中出现意外符号

如何得到每四个元素向量R？

R中的时间序列(Ts)函数计数不正确

如何使用tryCatch执行语句并忽略警告？

如何删除仅在数据集顶部和底部包含零的行

如何在R库GoogleDrive中完全删除预先授权的Google帐户？

在R函数中使用加号

当我添加美学时，geom_point未对齐

WRS2包中带有bwtrim的简单ANOVA抛出错误

如何计算每12行的平均数？

层次树图的数据树

如何将宽格式的患者信息数据高效地转换为患者计数的时间序列？

在具有条件的循环中添加行

如何在一个GGPLATE中绘制多个灰度平滑？

通过不完全重叠的多个柱连接

如何在类应用函数中访问函数本身