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

Question

我正在使用格子包,我想为我的身材添加一个图例.auto.key和legend的文档非常混乱,无法找出添加图例的正确语法.这是我的代码:

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:

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轴的位置.所以这将放在左上角.