如何添加不重叠的图例以将颜色与成对的类别()相关联？

Question

我pairs(iris)用来显示古老的Iris数据集中四个变量(Sepal.length,Sepal.width,Petal.length,Petal.width)之间的可能关系.

当我添加颜色参数时......

pairs(iris[, 1:4], col = iris$Species)

...我可以看到三种物种(Iris setosa,Iris virginica和Iris versicolor)之间的区别,但是代码 - 正如我所写的 - 并没有将颜色与物种联系起来.换句话说,没有任何图例或任何作为图例的功能.

所以有人建议在下面的代码行中添加以下代码......

par(xpd = TRUE)
legend( "bottomright", fill = unique(iris$Species), 
       legend = c( levels(iris$Species) ) )

...虽然我得到了一个图例框,但是图例中的数据覆盖了图例.

有没有办法创建类似于传说框的东西pairs(),它与数据表示本身不重叠？

Answer 1

您可以使用oma参数to 控制边距大小pairs.有关详细信息,请参阅oma条目?par.

pairs(iris[, 1:4], col = iris$Species, oma=c(3,3,3,15))
par(xpd = TRUE)
legend("bottomright", fill = unique(iris$Species), legend = c( levels(iris$Species)))