tbl_regression(), plm, and mice - Error: Tibble columns must have compatible sizes

tbl_regression(), plm, and mice - Error: Tibble columns must have compatible sizes

我正在尝试使用 tbl_regression() 在具有多重估算数据的 plm 对象上打印回归模型。我发现如果 plm 有一个自变量,我可以打印回归 table,但如果它有两个或更多自变量,我就不能。

我知道以下错误消息很常见,但我不明白它在 tbl_regression 和乘法估算数据的上下文中意味着什么。 gtsummary 中是否存在错误,或者我的代码有问题?

library(mice, warn.conflicts = FALSE)
library(mitools)
library(missMethods)
library(plm)
library(gtsummary)
options(scipen=999)
set.seed(12345)

data("Grunfeld")
df <- delete_MCAR(Grunfeld, p = 0.3, cols_mis = c(3:5)) 
imp <- mice::mice(df, m = 5, print = FALSE)

implist <- imputationList(
  lapply(1:imp$m, function(n) mice::complete(imp, action = n)))

fit1 <- lapply(implist$imputations, function(x){ plm(inv ~ value, data = x, model = "within", index = c("firm", "year"))})
#tbl_regression(as.mira(fit1)) # works

fit2 <- lapply(implist$imputations, function(x){ plm(inv ~ value + capital, data = x, model = "within", index = c("firm", "year"))})
tbl_regression(as.mira(fit2)) # does not work
#> pool_and_tidy_mice(): Tidying mice model with
#> `mice::pool(x) %>% mice::tidy(exponentiate = FALSE, conf.int = TRUE, conf.level = 0.95)`
#> Error: Tibble columns must have compatible sizes.
#> * Size 2: Existing data.
#> * Size 3: Column `variable`.
#> ℹ Only values of size one are recycled.

谢谢!此代码现在适用于 gtsummary.

的当前版本
library(mice, warn.conflicts = FALSE)
library(mitools)
library(missMethods)
library(plm)
library(gtsummary)
options(scipen=999)
set.seed(12345)

mice::version(pkg = "gtsummary")
#> [1] "gtsummary 1.5.1.9001  /Library/Frameworks/R.framework/Versions/4.1/Resources/library"

data("Grunfeld")
df <- delete_MCAR(Grunfeld, p = 0.3, cols_mis = c(3:5)) 
imp <- mice::mice(df, m = 5, print = FALSE)

implist <- imputationList(
  lapply(1:imp$m, function(n) mice::complete(imp, action = n)))

fit2 <- lapply(implist$imputations, function(x){ plm(inv ~ value + capital, data = x, model = "within", index = c("firm", "year"))})
tbl_regression(as.mira(fit2))
#> pool_and_tidy_mice(): Tidying mice model with
#> `mice::pool(x) %>% mice::tidy(exponentiate = FALSE, conf.int = TRUE, conf.level = 0.95)`