r - 用两个字符 pch 符号绘制图例

Question

我有一张标有数字 1:200 的形状 map 。我想创建一个对这些数字进行解码的图例。所以我尝试了(保持为 20 以便于阅读)。

plot(c(1,20), c(0,3), type="n")
xx <- c(0,1,1,0)
thelabels <- paste(LETTERS[1:20], LETTERS[1:20], sep="")
for (i in 1:20){
  polygon(xx, c(0,0,1,1))
  text(mean(xx), 0.5, i)
  xx <- xx + 1
}
legend("topleft", "groups", 
  legend = thelabels, pch=as.character(c(1:20)),
  ncol=4
)

但是，这不起作用，因为 pch只允许长度为 1 的字符串。如何创建一个图例，其中 key 基于数字 1:200 而不仅仅是每个数字的第一个数字？或者做一些相当于强制的事情 pch接受多长度字符串？ (请注意， thelabels 包含更长的文本，所以我不能直接用 thelabels 标记形状。)

Answer 1

这是一个完整的kludge解决方法:

plot(c(1,20), c(0,3), type="n")
xx <- c(0,1,1,0)
thelabels <- paste(1:20, " ", LETTERS[1:20], LETTERS[1:20], sep="")
for (i in 1:20){
  polygon(xx, c(0,0,1,1))
  text(mean(xx), 0.5, i)
  xx <- xx + 1
}
legend("topleft", "groups", 
       legend = thelabels, pch="",
       ncol=4)