从glm模型摘要中按p值排序xtable（）输出

Question

我正在为不同的公司建模大量数据，对于每个公司，我需要快速识别那些最重要的模型参数。我想看到的是xtable()输出的拟合模型，它按p值的递增顺序对所有系数进行排序（即，最重要的参数首先）。

x <- data.frame(a=rnorm(100), b=runif(100), c=rnorm(100), e=rnorm(100))
fit <- glm(a ~ ., data=x)
xtable(fit)

我猜测我可能通过弄乱fit对象的结构来完成这样的事情。但我对结构不熟悉，无法自信地改变任何东西。

建议？

Answer 1

不一定是最优雅的解决方案，但这应该可以胜任：

data(birthwt, package="MASS")
glm.res <- glm(low ~ ., data=birthwt[,-10])
idx <- order(coef(summary(glm.res))[,4])  # sort out the p-values
out <- coef(summary(glm.res))[idx,]       # reorder coef, SE, etc. by increasing p
library(xtable)
xtable(out)