R gtsummary 包:如何在摘要中操作/隐藏行 Table
R gtsummary package: How to Manipulate / Hide Rows in Summary Table
我正在使用 gtsummary 进行一个项目。对于其中一个 table,我必须构建一个很长的 table 列表协变量前后的 matchit 过程。
我的问题是,对于所有协变量(例如,肥胖),它读取一行,肥胖,然后是下一行行,肥胖,然后是下一个,不肥胖。那是三个 table,我只想显示一个:糖尿病 N (%).
我试过编辑二分变量,引入Null
,试图找到一个row_hide
函数,但无济于事
这是我的代码:
创建试验
trialCAS1 <- index_CAS %>%
select(TopDecile, Gender, Obesity, Diabetes, Diabetes_Complex, etc)
表摘要
CAStable1 <- tbl_summary(trialCAS1,
by = TopDecile,
missing = "no") %>%
add_n() %>%
modify_header(label = "**Variable**") %>%
bold_labels()
我收录了我得到的第一个table。
tbl_summary()
函数会尽力猜测传递的数据类型(分类、二分和连续)。它并不总能猜出我们想看到什么,但始终可以使用 tbl_summary()
中的参数更改默认值!我将使用 {gtsummary} 包中的 trial
数据集作为示例。
这是默认输出:
library(gtsummary)
trial %>%
select(trt, grade, stage) %>%
tbl_summary(by = trt)
默认情况下,等级和阶段的汇总统计显示在多行中。然而,想象一下,我们只对 I 级疾病的发生率和 T1 期癌症的发生率感兴趣。我们可以使用 tbl_summary(value=)
参数来指定这些是我们想要显示的唯一值(然后默认将它们打印为二分变量)。在下面的示例中,我还更新了显示的标签以指示这些仅为 I 级和 T1 阶段费率。
trial %>%
select(trt, grade, stage) %>%
tbl_summary(
by = trt,
value = list(grade ~ "I",
stage ~ "T1"),
label = list(grade ~ "Grade I",
stage ~ "Stage T1")
)
根据我从您的代码和输出中看到的内容,我认为这段代码适用于您的数据集:
tbl_summary(
trialCAS1,
by = TopDecile,
missing = "no".
value = Obesity ~ "Obese",
label = Obesity ~ "Obese"
)
我正在使用 gtsummary 进行一个项目。对于其中一个 table,我必须构建一个很长的 table 列表协变量前后的 matchit 过程。
我的问题是,对于所有协变量(例如,肥胖),它读取一行,肥胖,然后是下一行行,肥胖,然后是下一个,不肥胖。那是三个 table,我只想显示一个:糖尿病 N (%).
我试过编辑二分变量,引入Null
,试图找到一个row_hide
函数,但无济于事
这是我的代码:
创建试验
trialCAS1 <- index_CAS %>%
select(TopDecile, Gender, Obesity, Diabetes, Diabetes_Complex, etc)
表摘要
CAStable1 <- tbl_summary(trialCAS1,
by = TopDecile,
missing = "no") %>%
add_n() %>%
modify_header(label = "**Variable**") %>%
bold_labels()
我收录了我得到的第一个table。
tbl_summary()
函数会尽力猜测传递的数据类型(分类、二分和连续)。它并不总能猜出我们想看到什么,但始终可以使用 tbl_summary()
中的参数更改默认值!我将使用 {gtsummary} 包中的 trial
数据集作为示例。
这是默认输出:
library(gtsummary)
trial %>%
select(trt, grade, stage) %>%
tbl_summary(by = trt)
默认情况下,等级和阶段的汇总统计显示在多行中。然而,想象一下,我们只对 I 级疾病的发生率和 T1 期癌症的发生率感兴趣。我们可以使用 tbl_summary(value=)
参数来指定这些是我们想要显示的唯一值(然后默认将它们打印为二分变量)。在下面的示例中,我还更新了显示的标签以指示这些仅为 I 级和 T1 阶段费率。
trial %>%
select(trt, grade, stage) %>%
tbl_summary(
by = trt,
value = list(grade ~ "I",
stage ~ "T1"),
label = list(grade ~ "Grade I",
stage ~ "Stage T1")
)
根据我从您的代码和输出中看到的内容,我认为这段代码适用于您的数据集:
tbl_summary(
trialCAS1,
by = TopDecile,
missing = "no".
value = Obesity ~ "Obese",
label = Obesity ~ "Obese"
)