帶有顏色填充和底紋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()行I中，將AB設爲density=爲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"))