任何帮助都非常感谢!
这样的东西,也许是
> round(cor(mtcars), 2) |>
+ {\(.) {.[upper.tri(., diag=TRUE)] <- ''; .}}() |>
+ as.data.frame() |> subset(select=-ncol(mtcars))
mpg cyl disp hp drat wt qsec vs am gear
mpg
cyl -0.85
disp -0.85 0.9
hp -0.78 0.83 0.79
drat 0.68 -0.7 -0.71 -0.45
wt -0.87 0.78 0.89 0.66 -0.71
qsec 0.42 -0.59 -0.43 -0.71 0.09 -0.17
vs 0.66 -0.81 -0.71 -0.72 0.44 -0.55 0.74
am 0.6 -0.52 -0.59 -0.24 0.71 -0.69 -0.23 0.17
gear 0.48 -0.49 -0.56 -0.13 0.7 -0.58 -0.21 0.21 0.79
carb -0.55 0.53 0.39 0.75 -0.09 0.43 -0.66 -0.57 0.06 0.27