Hiển thị hai biểu tượng cho mỗi nhãn chú thích

Question

Sử dụng pch Tôi có thể vẽ biểu tượng bất kỳ và gán bất kỳ nhãn nào vào chú giải. Nhưng làm thế nào tôi có thể vẽ hai biểu tượng cho mỗi nhãn chú giải? Ví dụ: trong cốt truyện bên dưới, tôi muốn có ■ ▲ ● được ghép nối với các phiên bản màu đỏ của những thứ đó vì vậy tôi chỉ có ba nhãn 'a', 'b', 'c' được hiển thị trong chú giải, cho sáu ký hiệu đó. Tại thời điểm này, có vẻ như huyền thoại âm mưu cơ bản cho phép tôi chỉ vẽ một biểu tượng cho mỗi nhãn:

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

Đây không phải là quá khó với lattice, như key = đối số của nó có một số tùy ý các cột được bao gồm trong chú giải.

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))) 

Tôi không biết đầu của tôi như thế nào để bao gồm truyền thuyết bên trong khu vực vẽ đồ, nhưng với loại cốt truyện này, có vẻ tốt hơn là nên để bên ngoài. (Edit: @chl trong ý kiến ​​vui lòng chỉ ra một vài cách để làm điều này Để vẽ then chốt trong góc dưới bên trái của hình, ví dụ, thay thế space = "right" ở trên với một trong hai corner = c(0,0) hoặc x = 0, y=0.2.)

Answer 2

Giống như chl được chỉ ra, bạn cũng có thể tạo chú thích tùy chỉnh. Chức năng 'huyền thoại' vô hình trả về các ranh giới của hộp chú giải cũng như tọa độ của văn bản chú giải. Người ta có thể vẽ văn bản chú giải mà không có biểu tượng, và sau đó thêm các ký hiệu bằng tay với 'điểm' vào tọa độ được trả về. Điều này sẽ không cần thêm bất kỳ gói đồ họa:

plot(rnorm(50), pch=c(15:17), col=1:2) 
# Plot legend text, inset could be used to shift legend text to the right 
pos <- legend('topleft', legend=c("a","b","c"), cex=1.5) 
# Plot symbols in two columns, shifted to the left by 3 and 1 respectively 
points(x=rep(pos$text$x, times=2) - c(3,1), 
    y=rep(pos$text$y, times=2), 
    pch=rep(c(15:17), times=2), col=rep(1:2, times=3))