Legend not displaying color

Question

I have drawn a plot in 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)

The box in the legend is not getting coloured. What is wrong here ?

Answer 1

Try using 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"), fill=cols)

Answer 3

也许你这样试试：

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