使用gtsummary软件包的宽格式多项式逻辑回归结果表

我有一个因变量，有四个结果。我使用mlogit包进行了多项逻辑回归

当我尝试使用gtsummary软件包呈现结果时，我的多项式逻辑回归结果是相互叠加的（见下面的代码和表格）

是否有一种方法可以让结果在一行中并排排列，只使用一组级别标签，而不是像下表那样相互堆叠

# load packages
library(gtsummary)
library(nnet)

# dummy data 
crime <-data.frame(city = sample(c("SF", "AR", "NYC","MN"),13000,replace = TRUE),
                   year = sample(as.factor(c(1990, 2000, 1999, 1989)),13000,replace = TRUE)
                   )

# multinom model tabulated with gtsummary  
multinom(city ~ year, data = crime) %>%
  tbl_regression(exponentiate = T)

#加载包
图书馆（摘要）
图书馆（nnet）
#虚拟数据
犯罪率%
tbl_回归（指数=T）

---

默认情况下，多项式模型将以长格式打印

我编写了一个小函数，将结果转换为wide，并将其保存为GitHub Gist

种子集（20210511）
图书馆（摘要）
图书馆（magrittr）
multinom_pivot_wide您可以添加一段数据，这样我就可以复制输出表。您还可以添加会话中使用的所有包吗？@AbdessabourMtk和Mike dummy data plus使用的包现在包括在内。我无法复制输出。哪个包是
multinom
函数？是否来自nnet

如果是，则无法复制image@AbdessabourMtk，对不起。它来自nnet软件包，而不是multinom。我会马上改变的嗨，丹尼尔，谢谢你抽出时间回答我的问题。当我尝试运行tbl_MN的代码时，我得到以下响应：错误：无法对不存在的列进行子集。x列

groupname\u列
不存在。@MohamedYusuf您熟悉reprex吗？（）使用上面的两个代码块创建reprex，并显示结果。安装正确版本的软件包后，应该存在列
groupname\u col
。嗨，Daniel，因此在设置reprex之后，代码似乎可以正常工作。我再次运行它，现在它完全工作了。我不知道我做了什么让它继续。谢谢你的回答！！嗨，丹尼尔，我想下面的回购协议是关闭的远程：：安装github（“ddsjoberg”）/gtsummary@mice_nnet").   无法运行上述代码，因为，我得到以下响应：modify_table_body（，dplyr:：select，-groupname_col）中出错：安装时找不到函数“modify_table_body”，关闭除一个会话外的所有R会话，在新的R会话中启动，运行安装代码。仔细阅读日志以了解有关错误的注释。