R 全球技术法规汇总表包:前后汇总表和配对2样本测试?

R 全球技术法规汇总表包:前后汇总表和配对2样本测试?,r,gtsummary,R,Gtsummary,是否可以使用全球技术法规摘要包制作一个前后汇总表,其中有两列汇总了两个不同时间点的多个变量 我知道gtsummary支持这一点,但如果可能的话,我更愿意使用gtsummary,因为它支持tidyverse 例如,是否可以使用gtsummary创建一个类似于本文中表格的前后汇总表?下面是他们示例中数据集的一个更简单版本: dat <- data.frame( tp = paste0("Time Point ", c(1, 2, 1, 2, 1, 2, 1, 2, 1

是否可以使用全球技术法规摘要包制作一个前后汇总表,其中有两列汇总了两个不同时间点的多个变量

我知道gtsummary支持这一点,但如果可能的话,我更愿意使用gtsummary,因为它支持tidyverse

例如,是否可以使用gtsummary创建一个类似于本文中表格的前后汇总表?下面是他们示例中数据集的一个更简单版本:

 dat <- data.frame(
  tp = paste0("Time Point ", c(1, 2, 1, 2, 1, 2, 1, 2, 1, 2)),
  id = c(1, 1, 2, 2, 3, 3, 4, 4, 5, 6),
  Cat = c("A", "A", "A", "B", "B", "B", "B", "A", NA, "B"),
  Fac = factor(c("A", "B", "C", "A", "B", "C", "A", "B", "C", "A")),
  Num = c(1, 2, 3, 4, 4, 3, 3, 4, 0, NA),
  stringsAsFactors = FALSE)

dat是,从gtsummary v1.3.6开始,有一个名为
add_difference()
的函数用于此明确目的。该函数支持成对(例如,预响应和后响应)和未成对数据。方法在
test=
参数中指定

这里的工作示例:

下面是一个未配对的示例:

试用%>%
选择(trt、年龄、标记、反应、死亡)%>%
tbl_摘要(
by=trt,
统计数字=
名单(
all_continuous()~“{mean}({sd})”,
全二分法()“{p}%”
),
missing=“否”
) %>%
添加\u n()%>%
添加_差异()

谢谢你,丹尼尔。我也不理解他们示例中的“差异”列。当我使用Arsential R包制作前后汇总表时,我总是删除此列。不确定分类数据发生了什么,但对于连续数据,“差异”支持中间值之间的差异不是差异中值的情况。例如,如果时间点A的值为1、2和10,而时间点B的相应值为1、12、10,则tp A的中值为2,时间点B的中值为10,但从A到B的中值变化为0(中值为1-1、12-2和10-10)