在散点图旁边显示颜色编码的图例

Question

看这段代码：

pairs(Iris[1:3], main = "Anderson's Iris Data -- 3 species",
pch = c(21),  cex = 2,bg = c("red","green3","blue")[unclass(iris$Species)])

是否可以将组/类物种显示为图例颜色编码？

Answer 1

pairs(iris[1:3], main = "Anderson's Iris Data -- 3 species",
      pch = c(21),  cex = 2, bg = c("red","green3","blue")[unclass(iris$Species)], oma=c(4,4,6,10))
par(xpd=TRUE)
legend(0.55, 1, as.vector(unique(iris$Species)),  fill=c("red", "green3", "blue"))

来自 ?pairs： 图形参数可以作为绘图的参数给出，例如 main.除非指定，否则 par("oma") 将被适当设置。因此，任何在对之前指定 par 的尝试都会导致覆盖。

另外控制pairs中的图例位置非常复杂。

我推荐使用库（GGally）

library(GGally)
ggpairs(iris, aes(color = Species), columns = 1:4)