Legenda z kolorowymi liniami wypełnienia i cieniowania w Bazie R

Question

Na moim wykresie mam dwa przecinające się wielokąty, jeden kolorowy i jeden z cieniowanymi liniami. W legendzie chciałbym, aby te dwa wielokąty i tablica przecięć były reprezentowane poprawnie. Oto co mam:

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

Czy jest możliwe aby zmienić kolor obramowania w legendzie do B do czerwonego i dodać czerwone linie cieniowania do symbolem AB?

Answer 1

Należy dodać argumentu border= do legend() zmienić kolor obramowania małych pudełek, a następnie dodać kolejne wezwanie do legend() nakładka do cieniowania AB Box z kolorem. W drugiej linii legend() ustawiłem density= dla AB na 10 i zmieniłem również fill= na czerwony dla tego samego pudełka.

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