在R markdown中创建逻辑回归结果表

Question

我想在R Markdown中创建一个回归表，其中包括指数系数，指数上限和下限95％置信区间以及逻辑回归模型中每个变量的p值。

```{r}
#basic table
  library(knitr)
  x1 <- rnorm(100,0,1)
  x2 <- rpois(100,5)
  y1 <- rbinom(100,1,0.33)
  df <- data.frame(x1,x2,y1)
  modelx <- glm(y1 ~ x1 + x2, data = df ,family = "binomial")
  kable(summary(modelx)$coef)

#maneuvers to obtain OR and 95% CI
  orx <- exp(c(OR = coef(modelx), confint(modelx)))
  kable(orx)
```

我已经尝试过如上所述，它创建了值，但丢失了标签和一般kable友好形式。我已经尝试将指数系数直接替换为glm对象modelx。但是，此对象不能轻易保持95％CI。

是否有一种简单的方法可以完成此任务，而无需在tables或其他kable友好包中手动构建表格？

Answer 1

此过程需要将summary(modelx)转换为data.frame，在向data.frame添加结果的同时执行必要的计算，最后使用{{1}移植到kable }选项来完成格式化。

kableExtra