访问列表中存储的对象的属性

Question

我在列表中存储了许多对象（例如htest或lm）。我想访问存储在此列表中的每个对象的属性（如p值）。

我可以使用l[[1]]$p.value访问一个属性。是否有解决方案并访问一种类型的所有属性并使用sapply或类似的东西将它们存储在向量中？

data <- data.frame(x1 = runif(n = 100),
                   x2 = runif(n = 100),
                   x3 = sample(x = c(0,1), size = 100, replace = T))  

l <- list()

for(i in 1:2){
    l[[i]] <- t.test(data[,i] ~ data[,3])
}    

l[[1]]$p.value