如何使圖例中的標籤對齊R？

Question

如圖所示，我該如何讓這些標籤對齊？

我使用傳說中R.

Answer 1

從?legend

## right-justifying a set of labels: thanks to Uwe Ligges 
x <- 1:5; y1 <- 1/x; y2 <- 2/x 
plot(rep(x, 2), c(y1, y2), type = "n", xlab = "x", ylab = "y") 
lines(x, y1); lines(x, y2, lty = 2) 
temp <- legend("topright", legend = c(" ", " "), 
      text.width = strwidth("1,000,000"), 
      lty = 1:2, xjust = 1, yjust = 1, 
      title = "Line Types") 
text(temp$rect$left + temp$rect$w, temp$text$y, 
    c("1,000", "1,000,000"), pos = 2) 

編輯：

我無法找到一個方法來自動對齊與傳說右邊的線條。但是，您可以使用text展示位置和選項bty="n"來生成圖例以刪除邊框。

## similar to above 
x <- 1:5; y1 <- 1/x; y2 <- 2/x 
plot(rep(x, 2), c(y1, y2), type = "n", xlab = "x", ylab = "y") 
lines(x, y1); lines(x, y2, lty = 2) 
temp <- legend("topright", legend = c(" ", " "), 
      text.width = strwidth("1,000,000"), 
      lty = 1:2, xjust = 1, yjust = 1, bty="n") 

text(4, 2,"lbl1") 
text(3.9, 1.92,"mylbl2")