访问列表中的变量

Question

如何从以下内容中提取所有p值？

data(mtcars)
n<-names(mtcars)[-1]
i<-names(mtcars)[1]
ll<-lapply(n,function(x) cor.test(mtcars[[i]],mtcars[[x]],method="spearman"))

lapply(ll,function(x) print(x$p.value)) - 有效，但非常麻烦。必须有一种更简单的方法。

Answer 1

正如@konvas指出的，你可以做到

lapply(ll, "[[", "p.value")

从列表中的每个对象获取“p.value”元素，但如果您只想要以p值开头，则可以

sapply(n,function(x) cor.test(mtcars[[i]],mtcars[[x]],method="spearman")$p.value)

从一开始。