矩阵的列名和行名？

Question

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，即添加列名和行名，知道吗？

Answer 1

添加这样的行和列名称：

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)