如何从R中的GAM拟合中提取和修改单个p.table组件

我使用了for循环来运行R中的一系列gam，这些gam将一系列因变量回归到同一组自变量上。我想从每个模型中提取p.table值，但当我从模型摘要列表中打印p.table对象时，p值长得离谱（~100位），我无法理解如何在打印整个输出的同时将函数仅应用于p.table输出的该组件

下面是一个使用

mtcars

的示例。这些模型结果显然毫无意义；在这种情况下，p值可以很好地打印，但在我的数据中，p值太长了，我希望在打印输出中使用format.pval（例如）截断它们

data(mtcars)
library(mgcv)

y_vars <- c("qsec", "wt", "hp")

models <- list()

for (i in y_vars){
  models[[i]] <- gam(as.formula(paste(i, "~ cyl + s(drat) + am + gear + carb")),
method = "REML", data = mtcars)
}

models_summ <- lapply(models, summary)

lapply(models_summ, '[[', 'p.table')

数据（mtcars）
图书馆（mgcv）
y_vars我最终将输出分配给一个数据帧，并以这种方式进行操作：

df <- data.frame(lapply(models_summ, '[[', 'p.table'))

df