Hi list!

I`ve tried to do a choropleth map in R but I`ve had problems with the legend.
I`d like only two digits in the legend but  don`t know how to do this.
Thanks

Sonia


library(RColorBrewer)

par(mfrow=c(1,1))

nivel<-cut(CIU_T,5)

par(pty="m")

nParts<-as.numeric(nivel)

mypalette<-brewer.pal(7,"YlOrRd")

fgs<-mypalette[nParts]

plot(zrp_ov,fg=fgs,xlab="",ylab="",xaxt="n",yaxt="n",bty="n",ol="grey")

brks<-attributes(nivel)$levels

legend("topleft",legend=brks,fill=mypalette,bty="n",cex=.8,title="CIU_T",inset=0)




	[[alternative HTML version deleted]]


