如何使用gtsummary包实现有序多分类逻辑回归的批量单因素分析

我尝试使用gtsummary包的tbl_uvregression函数进行批量单因素分析，采用MASS包中的polr函数实现有序多分类逻辑回归，代码如下：

library(gtsummary)

tbl_uv_ex2 <-
  tbl_uvregression(
    housing[c("Infl", "Type")],
    method = polr,
    y = Sat,
    exponentiate = TRUE,
    pvalue_fun = function(x) style_pvalue(x, digits = 2)
  )

str(housing) 

附数据结构截图：

内容的提问来源于stack exchange，提问作者samll fat