Split-Legende in zwei Zeilen

Question

Ich habe versucht, meine Legende in zwei Zeilen zu teilen, aber nicht erfolgreich gewesen (oder ein anderer Versuch ist es, eine neue Legende hinzuzufügen). Meine Zeile Code für die Legende ist einfach so:

legend("top",c("P1","P2", "P3", "P4","P5","P6"),lty=c(1,3,3,1,3,3),lwd=2,bty="n", col=c("deepskyblue2","deepskyblue2","red","deepskyblue2","deepskyblue2","red")) 

I P1, P2, P3 auf der gleichen Linie dann P4, P5, P6 in der 2. Zeile haben wollen rechts unter. Bitte kann mir jemand helfen.

Vielen Dank.

Answer 1

Sie können die Option ncol in legend verwenden, um 3 Spalten (und 2 Zeilen) zu haben. Sie müssen sie auch indizieren, um die Reihenfolge nach Zeilen zu erhalten.

plot(1:10) 
legend_order <- matrix(1:6,ncol=3,byrow = TRUE) 
legend("top",c("P1","P2", "P3", "P4","P5","P6")[legend_order], 
     lty=c(1,3,3,1,3,3)[legend_order], 
     lwd=2,bty="n", 
     col=c("deepskyblue2","deepskyblue2","red", 
      "deepskyblue2","deepskyblue2","red")[legend_order], 
     ncol=3)