data(mtcars)
corr <- round(cor(mtcars), 1)
我希望具有相同的输出,但应用此功能:
所以我们可以使用
matrix(apply(expand.grid(1:11,1:11),1, function(r)cor(mtcars[r[1]],mtcars[r[2]])),11)
(几乎等于cor(mtcars)。
这里的事情是,我需要输出与mtcars类似,即添加列名和行名,知道吗?
添加这样的行和列名称:
mat <- matrix(apply(expand.grid(1:11,1:11),1, function(r)cor(mtcars[r[1]],mtcars[r[2]])),11)
rownames(mat) <- names(mtcars)
colnames(mat) <- names(mtcars)