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

【问题标题】：How can I get the p.value of all regressions using lapply function如何使用 lapply 函数获取所有回归的 p.value
【发布时间】：2020-03-22 21:08:45
【问题描述】：

我正在使用一个带有 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)]

【问题讨论】：

标签： r lapply summary

【解决方案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

【讨论】：

谢谢！当我使用这个解决方案时，我得到 p.valueRegresiones[, lapply(Lm, function(x) coef(x)[, "Pr(>|t|)"])] [2:3] < 0.05。如何只提取 TRUE 回归？
@Pablo 当然，你能分享链接吗
link
我能做什么？我可以删除答案吗？