r - 如何在R中的图例周围放置边框？

Question

我正在使用 R 绘制图例，但我需要绘制黑色边框。

plot.new()
legend(x=0,y=.15, c(" legend1"), cex=1,pt.cex =1.4,col=c("green"),bty="n",fill="green", pch=c(15, 15, 15, 17),border="black")
legend(x=.75,y=.15, " legend", cex=1, pt.cex =1.4,bty="n",col=c("black"), pch=c(17), border="black")

但在上面的代码中，没有按预期打印黑色边框，如下图所示。我怎样才能

把边框（这里黑色边框覆盖绿色框）和图例如下所示。

Answer 1

当然是没有边界的！你用过bty = "n"

来自?par（在该页面上搜索“bty”）：

bty：一个字符串，它决定了绘制在图上的框的类型。如果 bty 是“o”（默认值）、“l”、“7”、“c”、“u”或“]”之一，则生成的框类似于相应的大写字母。“n”值会抑制该框。

删除bty参数或指定与所需边框形状匹配的替代项。

---

根据问题编辑进行更新。

由于您想控制pch符号的填充颜色和边框，请尝试以下操作：

plot.new()
legend(x=0, y=.15, "legend1 ", cex=1, pt.cex=1.4, 
       bty="n", pch=22, col="black",
       pt.bg="green")
legend(x=.75,y=.15, "legend 2", cex=1, pt.cex =1.4, 
       bty="n", pch=24, col="red", pt.bg="white")

关键是使用pch可以着色和填充不同颜色的值之一，即 21 到 35 范围内的值。

从?pch，我们的选择是：

• pch = 21：实心圆
• pch = 22：实心正方形
• pch = 23：实心菱形
• pch = 24：实心三角形向上
• pch = 25：实心三角形点向下

Answer 2

plot.new()
 legend(x=0,y=.15, c(" legend1"), cex=1,pt.cex =1.4,col=c("green"),
         bty="o",fill="green", pch=c(15, 15, 15, 17) )
 legend(x=.75,y=.15, " legend", cex=1, pt.cex =1.4,
         bty="o",col=c("black"), pch=c(17), box.col="red")

Answer 3

如何使用开放绘图符号。我认为这应该是您正在寻找的：

plot.new()
legend(x=0, y=.15, "legend1", 
       cex=1, pt.cex =1.4, bty="n", pch=22, pt.bg = "green")
legend(x=.75, y=.15, "legend2", 
       cex=1, pt.cex =1.4, bty="n", pch=24, pt.bg = "black")

查看这个简短的帮助页面以获取更多pch示例。