将图例分成两行

【问题标题】：Split legend into two lines将图例分成两行
【发布时间】：2023-03-27 11:29:01
【问题描述】：

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

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

非常感谢。

【问题讨论】：

标签： r legend

【解决方案1】：

您可以使用legend 中的ncol 选项来获得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)

【讨论】：