R指定点的边框颜色与填充和线条不同

Question

这与点的边框颜色和线条颜色在pch=21时在图例框和整个绘图框之间不同有关。

我有一个带有填充点（pch=21），黑色边框和绿色填充的图，但是我也有误差的须，其颜色与填充颜色相同。我知道可以使用“col”和“pt.bg”的组合来匹配图例中的点，但是然后线条颜色与点边框颜色相匹配，这不是我想要的：

x=1:10
y=runif(10)
plot(x,y,lwd=3,col="black",bg="green",pch=21,cex=2)
arrows(x,y-0.05,x,y+0.05,lwd=3,col="green",angle=90,code=3)
legend(5,0.8,col="black",pt.bg="green",lwd=3,pch=21,legend="text",cex=2)

提供以下内容...

有没有办法将图例中的线和填充点都变成绿色，点的边框为黑色？更好的是可以加上箱须，但我认为这可能不太可能...

- Adrian Tompkins

Answer 1

进行两次legend调用。一次使用bg = NA绘制线条，另一次使用bty = "n"绘制点：

set.seed(1)
x=1:10
y=runif(10)
plot(x, y, lwd = 3, col = "black", bg = "green", pch = 21, cex = 2)
arrows(x, y-0.05, x, y+0.05, lwd = 3, col = "green", angle = 90, code = 3)
legend("topright",
       col="green",
       lwd = 3,
       lty = 1,
       legend = "text",
       cex = 2,
       bg = NA)
legend("topright",
       col = "black",
       pt.bg = "green",
       pch = 21,
       lwd = 3,
       legend = "text",
       cex = 2,
       lty = 0,
       bty = "n")

- missuse