Dodaj symbol pch w legendzie plot R

Question

Mam jedną serię czasową, która jest reprezentowana przez czarną linię i taką, która jest reprezentowana przez czerwoną krzywą. Następnie mam pojedyncze punkty, które mają symbol pch 8 w R. Są to gwiazdy. Patrz poniższy wykres:

Obecnie mam następującą legendę:

legend("bottomleft", 
legend=c("log loss","daily VaR","exceedance"), 
bty = "n",lwd=2, cex=1.2,y.intersp=1.4, col=c("black","red","blue"), lty=c(1,1,1)) 

Ale nie chcę mieć niebieską linię w legendzie do przekroczenia, ale po prostu gwiazdy na działce. Muszę użyć pch = 8. Chcę tylko mieć gwiazdy w legendzie, a nie gwiazdy z linią. Więc nie te rozwiązania: R legend issue, symbols of points are masked by lines

Answer 1

Spróbuj tego. Ustawiasz wyświetlanie tylko pierwszych dwóch linii i pch, aby wyświetlić tylko ostatni punkt.

plot(1:10, rnorm(10) * 1:10) 
legend("bottomleft", legend = c("entry1", "entry2", "something cpl different"), bty = "n", 
     lwd = 2, cex = 1.2, col = c("black", "blue", "red"), lty = c(1, 1, NA), pch = c(NA, NA, 8))