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

Question

R调用时创建的图例legend()左侧是符号(或行类型等),右侧是标签.我反过来喜欢它,即左侧的标签(右侧对齐)和右侧的符号.

我知道我可以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)