拆分傳說成兩行

Question

我一直想我的傳說分成兩行，但都沒有成功（或另一種嘗試是增加一個新的傳奇）。 我的圖例代碼行僅僅是這樣的：

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

我想有P1，P2，P3在同一行，然後P4，P5，P6右側下2號線。 請有人給我一些幫助。

非常感謝。

Answer 1

可以使用ncol選項legend有3列（2行）。您還必須將它們編入索引以便按順序獲取訂單。

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)