r - Base R 中带有颜色填充和阴影线的图例

Question

在我的情节中，我有两个相交的多边形，一个是彩色的，一个是带有阴影线的。在图例中，我希望正确表示两个多边形和相交数组。这是我所拥有的：

plot(1:4, 1:4, type="n", xaxt="n", xlab="", yaxt="n", ylab="")
polygon(c(2,4,2), c(1,3,3), col="gray")
polygon(c(3,3,1), c(1,3,2), col="red", density=10)
legend("topleft", legend=c("A", "B", "AB"), fill=c("gray", "red", "gray"),
           density=c(NA, 10, NA), bty="n") 

是否可以将 B 图例中的边框颜色更改为红色，并为 AB 的符号添加红色阴影线？

Answer 1

您应该添加参数border=以legend()更改小框的边框颜色，然后添加另一个调用以legend()使用您的颜色将阴影覆盖到 AB 框。在第二legend()行中，我将density=AB 设置为 10，并将fill=同一个框也更改为红色。

plot(1:4, 1:4, type="n", xaxt="n", xlab="", yaxt="n", ylab="")
polygon(c(2,4,2), c(1,3,3), col="gray")
polygon(c(3,3,1), c(1,3,2), col="red", density=10)
legend("topleft", legend=c("A", "B", "AB"), fill=c("gray", "red", "gray"),
       density=c(NA, 10, NA), bty="n",border=c("black", "red", "black")) 
legend("topleft", legend=c("A", "B", "AB"), fill=c("gray", "red", "red"),
       density=c(NA, 10, 10), bty="n",border=c("black", "red", "black"))