12

私のプロットでは、2つの交差するポリゴンがあります。1つは色付きで、もう1つは陰影線付きです。凡例では、2つのポリゴンと交差配列を正しく表現したいと思います。これが私が持っているものです：

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のシンボルに赤い陰影線を追加することは可能ですか？

4

1 に答える 1

18

小さなボックスの境界線の色を変更するための引数border=を追加してから、自分の色でABボックスにシェーディングをオーバーレイするためlegend()の別の呼び出しを追加する必要があります。legend()2legend()行目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"))

ここに画像の説明を入力してください

于 2013-03-25T15:07:58.373 に答える