r - 合并两个 tbl_regression 表时不合并列

Question

在 gtsummary 包中使用tbl_regression函数我试图堆叠两个线性回归表。一个有一个额外的列，另一个没有。尝试使用该tbl_merge()功能时，会并排创建两个表，而不是完全堆叠的表（见下图）。

无论如何堆叠两个回归表，以便合并列，并且只有以下四列之一Beta， 95% CI1，p-value，p-trend？

# load packages
library(gtsummary)
theme_gtsummary_compact()

# model 1 ------------------------------------------------------------------
# model cyl as a categorical 
mod1 <- lm(mpg ~ cyl, data = mtcars %>% dplyr::mutate(cyl = factor(cyl)))
# model cyl as continuous (p-trend)
mod2 <- lm(mpg ~ cyl, data = mtcars)

# summarize primary model
tbl1 <- tbl_regression(mod1)
# summarize model with p-trend, and hide the estimate and CI
tbl2 <- tbl_regression(mod2) %>%
  modify_table_header(c(estimate, ci), hide = TRUE) %>%
  modify_header(p.value ~ "**p-trend**")

# merge primary model and p-trend
tbl3 <- tbl_merge(list(tbl1, tbl2)) %>%
  # remove spanning header
  modify_spanning_header(everything() ~ NA)


# model 2 ------------------------------------------------------------------

# model cyl as a categorical 
mod3 <- lm(mpg ~ carb, data = mtcars)

# summarize primary model
tbl4 <- tbl_regression(mod3) %>%
  # remove spanning header
  modify_spanning_header(everything() ~ NA)


# merge model 1 and 2 ------------------------------------------------------
bl3 <- tbl_merge(
  tbls = list(tbl3, tbl4)
  )

bl3