> data(mtcars)
> #首先导入数据集mtcars
> corr <- cor(mtcars)
> #将数据集中的每个列的相关系数统计出来并保存在一个corr的参数中
> corr
> #查看corr数据结果,统计出来的相互之间的相关系数
mpg cyl disp hp drat wt qsec vs am
mpg 1.0000000 -0.8521620 -0.8475514 -0.7761684 0.68117191 -0.8676594 0.41868403 0.6640389 0.59983243
cyl -0.8521620 1.0000000 0.9020329 0.8324475 -0.69993811 0.7824958 -0.59124207 -0.8108118 -0.52260705
disp -0.8475514 0.9020329 1.0000000 0.7909486 -0.71021393 0.8879799 -0.43369788 -0.7104159 -0.59122704
hp -0.7761684 0.8324475 0.7909486 1.0000000 -0.44875912 0.6587479 -0.70822339 -0.7230967 -0.24320426
drat 0.6811719 -0.6999381 -0.7102139 -0.4487591 1.00000000 -0.7124406 0.09120476 0.4402785 0.71271113
wt -0.8676594 0.7824958 0.8879799 0.65