根据 p 值阈值限制 tbl_uvregression() 输出

Question

我正在为模型特征选择运行单变量逻辑回归，并且希望能够仅在图表中显示重要变量。 tbl_uvregression() 中是否有一个参数允许我仅显示具有 p 值的变量< 0.05. Code below:

tbl <- df %>%
  tbl_uvregression(
    method = glm,
    y = diabetes,
    exponentiate = TRUE 
  )%>%
  add_global_p() %>%
  bold_p()

我尝试使用 include 参数手动设置粗体变量（以便用 p 值表示变量< 0.05). Surely there's a more efficient way.

Answer 1

您可以直接通过

tbl_uvregression

或使用

tbl$table_body

来修改返回的

gtsummary::modify_table_body()

对象中的表。
或者只是使用

gtsummary::filter_p()

:

library(gtsummary)

tbl <- mtcars[6:11] %>% 
  tbl_uvregression(
    method = glm,
    y = vs,
    method.args = list(family = binomial),
    exponentiate = TRUE
  ) %>% 
  add_global_p() %>%
  bold_p() 

tbl %>% 
  as_kable(format = "pipe")

特点	N	或	95% CI	p 值
重量	32	0.15	0.03, 0.49	<0.001
q秒	32	22.7	4.05, 582	<0.001
是	32	2.00	0.48、8.76	0.3
齿轮	32	1.79	0.68、5.14	0.2
碳水化合物	32	0.27	0.09, 0.58	<0.001

tbl %>% 
  filter_p() %>% 
  as_kable(format = "pipe")

特点	N	或	95% CI	p 值
重量	32	0.15	0.03, 0.49	<0.001
q秒	32	22.7	4.05, 582	<0.001
碳水化合物	32	0.27	0.09, 0.58	<0.001

^{创建于 2023-09-02，使用 reprex v2.0.2}