Легенда не отображается цвет

Question

Я нарисовал участок в R.

plot(NA,xlim=c(0,1),ylim=c(0,1), xlab=expression(delta),ylab="K", xaxs="i",yaxs="i",main = "Zones of extreme equality and inequality in BO1") # Empty plot 
cols <- c("red","black") 
legend("topright",legend=c("Gini < 0.05","Gini > 0.6"), density=c(NA,NA), angle=c(NA,NA), col=cols) 

Коробка в легенде не окрашивается. Что здесь не так?

Answer 1

Попробуйте использовать pch:

legend("topright", 
     legend=c("Gini < 0.05","Gini > 0.6"), 
     pch=15, 
     col=cols) 

Answer 2

Может быть, вы попробуете это так:

legend("topright",legend=c("Gini < 0.05","Gini > 0.6"), pch=15, col=cols) 

Answer 3

Вы также можете просто положить цвета заливки:

legend("topright",legend=c("Gini < 0.05","Gini > 0.6"), fill=cols)