如何使用 lapply 函数获得所有回归的 p.value

Question

我正在使用 mtcars 示例，以便稍后在我的数据分析中使用它。我可以获得每个回归的摘要列表和 coef 函数。我的问题是如何使用 lapply 函数获取列表中所有回归的 p.value？

这是我的代码

    library(data.table)
    regressions <- 
    data.table(mtcars)[, 
          .(Myregressions = lapply(.SD, function(x) summary(lm(mpg ~ x)))), 
          .SDcols = -1]

Regressions$MyRegressions
Regressions[, lapply(MyRegressions, coef)]

Answer 1

我们可以遍历 'MyRegressions' 并提取列

regressions[, lapply(Myregressions, function(x) coef(x)[, "Pr(>|t|)"])]

如果我们只需要提取选定的值

regressions[, list(lapply(Myregressions, function(x) {
      x1 <- coef(x)[, "Pr(>|t|)"]
      x1[x1 < 0.05]}))]$V1

如何使用 lapply 函数获得所有回归的 p.value

How can I get the p.value of all regressions using lapply function

r

summary

lapply