R网格包：为图形添加图例

Question

我正在使用格子包，我想在我的身材中添加图例。 auto.key 和图例的文档非常混乱，无法找出添加图例的正确语法。这是我的代码：

xyplot(y ~ x, df, pch=19, col=rgb(0.2, 0.4, 0.8, 0.7), cex=2,
       scales=list(cex=1.7),
       xlab=list("x", cex=1.ales=list(cex=1.7),
       xlab=list("x", cex=1.7), ylab=list("y", cex=1.7),
       main=list("Linear Regression w. Polynomial Attributes", cex=1.6),
       auto.key=T,
       panel = function(x, y, ...) {
            panel.xyplot(x, y, ...)
            llines(x, predict(lm.xtend), col="purple", lwd=6, lty=3)
            llines(x, predict(ridge.lin), col="darkgreen", lwd=6, lty=2)
       })

图表如下所示，所以我只想为这些线条添加一个图例。

Answer 1

我不确切地知道你想看到它的样子，但这是一个开始。取代auto.key=T put：

key=list(space="right",
         lines=list(col=c("purple","darkgreen"), lty=c(3,2), lwd=6),
         text=list(c("Purple Line"," Dark-green Line"))
)

这会将键放在图表的右侧。您可以使用“顶部”，“底部”或“左侧”代替。如果你想要它在情节中，摆脱space而不是使用corner=c(0,1)。第一个数字是x轴上的位置（从0到1），第二个是y轴的位置。所以这将放在左上角。