[未知用户] 为啥代码中会有中文引号呢……
library(ellipse)
corr.mtcars = cor(mtcars)
ord = order(corr.mtcars[1, ])
xc = corr.mtcars[ord, ord]
colors = c("#A50F15", "#DE2D26", "#FB6A4A", "#FCAE91",
"#FEE5D9", "white", "#EFF3FF", "#BDD7E7", "#6BAED6", "#3182BD",
"#08519C")
plotcorr(xc, col = colors[5 * xc + 6])