r - 如何在R中的图例中交换标签和符号？

Question

当您调用legend()时，R创建的图例在左侧带有符号(或线型等)，在右侧带有标签。我想反过来，即左侧的标签(右对齐)和右侧的符号。

我知道我可以使用adj来调整标签的位置，但与此同时它们不再正确对齐。例如，如果我设置adj=2，则标签在符号的左侧，但文本的末尾与符号未对齐。

任何使用标准legend()函数或软件包来执行此操作的指针，将不胜感激。

Answer 1

如果设置trace = TRUE然后保存输出，则可以绘制图例，然后使用text()给定的坐标添加对trace的调用标签，并将pos = 2设置为右对齐。这是一个例子:

    set.seed(1)
    plot(1:10,runif(min=0,max=10,10),type='l',ylim=c(0,10),xlim=c(0,10),col=1)
    lines(1:10,runif(min=0,max=10,10),col=2,lty=2)
    lines(1:10,runif(min=0,max=10,10),col=3,lty=2)
    a <- legend(1,10,lty=1:3,col=1:3,legend=c("","",""),bty="n",trace=TRUE)
    text(a$text$x-1,a$text$y,c("line 1","line 2","line 3"),pos=2)