r - 为每个图例标签显示两个符号

Question

使用pch我可以绘制任何符号并在图例中分配任何标签。但是如何为每个图例标签绘制两个符号呢？例如，在下图中，我希望将 ■ ▲ ● 与这些红色版本配对，因此对于这六个符号，我在图例中仅显示三个标签“a”、“b”、“c”。目前，基本图例似乎允许我只为每个标签绘制一个符号:

plot(rnorm(50),pch=c(15:17),col=1:2)
legend('topleft',pch=c(15:17),col=1:2,legend=c("a","b","c"),cex=1.5)

Answer 1

这对于lattice来说并不太难，因为它的key =参数需要任意数量的列包含在图例中。

library(lattice)

myPCH <- 15:17
Data  <- rnorm(50)
Index <- seq(length(Data))

xyplot(Data ~ Index, 
       pch = myPCH, col=1:2,
       key = list(space = "right", adj=1,
                  text = list(c("a", "b", "c"), cex=1.5),
                  points = list(pch = myPCH),
                  points = list(pch = myPCH,col=2)))

我完全不知道如何将图例包含在绘图区域内，但对于这种绘图，无论如何将其放在外面似乎更好。 (编辑:注释中的 @chl 友善地指出了几种执行此操作的方法。例如，要将键绘制在图的左下角，请替换 space = "right" 上面的 corner = c(0,0) 或 x = 0, y=0.2)