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"))