r - 将图例分成两行

我一直试图将我的图例分成两行，但没有成功(或者另一种尝试是添加一个新图例)。
我的图例代码行是这样的:

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 在右下方的第二行上。
请有人可以给我一些帮助。

非常感谢你。

最佳答案

您可以在 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)

关于r - 将图例分成两行，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/44847770/