如何将自定义图例添加到R中的图形？

我一直在为pairs()工作，因此我花费了一段令人尴尬的漫长时间尝试添加传奇或使用幻影符号来改变标题中物种的颜色以与点相关...任何见解都将不胜感激！这是个问题。如何将自定义图例添加到R中的图形？

# original code 
pairs(iris[1:4], 
    main = "Width and Length (cm) of Iris's Petals and Sepals: Setosa, Veriscolor, Virginica", 
    pch = 24, bg = c("mediumorchid4", "mediumpurple1", "lightpink1")[unclass(iris$Species)], 
    upper.panel=NULL, labels=c("Sepal Length","Sepal Width","Petal Length","Petal Width"), 
    font.labels=1, cex.labels=2)

来源

2013-10-14 user2879909

请参阅'？legend'。为了正确定位，你可能需要使用'locator（）'来获取（x，y）坐标（右键单击以将其转义并返回到命令行）。然后使用返回的坐标来放置图例，例如'legend（x = 0.7，y = 0.8，...）' –

这里有一个更好的选择，公正的情况下（不太好）接受的答案消失：

pairs(iris[1:4], 
    main = "Width and Length (cm) of Iris's Petals and Sepals: Setosa, Veriscolor, Virginica", 
    pch = 24, bg = c("mediumorchid4", "mediumpurple1", "lightpink1")[unclass(iris$Species)], 
    upper.panel=NULL, labels=c("Sepal Length","Sepal Width","Petal Length","Petal Width"), 
    font.labels=1, cex.labels=2) 

legend(x = "topright",legend = levels(iris$Species), 
     pch = 24,pt.bg = c("mediumorchid4", "mediumpurple1", "lightpink1"), 
     inset = 0.1)

而不是使用locator作为乔希的建议，我只是直勾勾一个体面的设置为inset。

来源

2013-10-14 21:44:08 joran

如何将自定义图例添加到R中的图形？

回答

相关问题