Hello Tsidkenu, Not sure that I have well understood your question but maybe you can add "fill" to your legend function :
legend(10,90,legend=c("TR=100 años","TR=50 años","TR=25 años","TR=10 años"),lwd=2,pt.cex=1.5,bty='n',pch=c(24,22,21,23), fill=c("red","green","blue","black")) Have a good day, Ptit Bleu. -- View this message in context: http://r.789695.n4.nabble.com/Filling-color-s-points-in-legend-s-plot-in-R-tp4308966p4309355.html Sent from the R help mailing list archive at Nabble.com. ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.