2 sütunlu R efsanesi nasıl yapılır?

Question

plot() işleviyle oluşturulan grafiğimde bir gösterge yapmak istiyorum. Orijinal legend() işlevi, yalnızca 1 sütuna sahip bir liste oluşturur. 2 sütun içeren bir efsaneyi nasıl yapabilirim?

Answer 1

Ben standart araziler için legend tek bir çağrı içinde bunu yapmak için bir yol bulamadı.

İki tane farklı efsane çizen bir seçenek var: bir tane çizgiler ve noktalar, bir tanesi etiketli. Etiket ve çizgiler arasındaki mesafeyi düzeltmek için x.intersp kullanılabilir.

plot(cumsum(runif(n = 100))) 

# draw legend with lines and point but without labels and box. x.intersp controls horizontal distance between lines 
L = legend(x = 'bottom', legend = rep(NA,4), col=1:2, lty=c(1,1,2,2), ncol=2, bty='n', x.intersp=0.5, pch=c(1,2,1,2), inset=0.02) 

# use position data of previous legend to draw legend with invisble lines and points but with labels and box. x.intersp controls distance between lines and labels 
legend(x = L$rect$left, y = L$rect$top, legend = c('Group A', 'Group B'), col=rep(NA,2), lty=c(1,1), ncol=1, x.intersp = 3, bg = NA) 

Answer 2

Kontrol bu:

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