add legend to plot(spatialpolygonsdataframe)

class="incorrect">class="incorrect">Helo, Paulo

class="incorrect">class="incorrect">My  
class="incorrect">class="incorrect">suggestion is

class="incorrect">class="incorrect">class="incorrect">class="incorrect">class="incorrect">class="incorrect">class="incorrect">class="incorrect">library(class="incorrect">class="incorrect">maptools)     # class="incorrect">class="incorrect">loads class="incorrect">class="incorrect">sp class="incorrect">class="incorrect">class="incorrect">class="incorrect">class="incorrect">class="incorrect">class="incorrect">class="incorrect">library  
too
class="incorrect">class="incorrect">class="incorrect">class="incorrect">class="incorrect">class="incorrect">class="incorrect">class="incorrect">library(class="incorrect">class="incorrect">RColorBrewer) # class="incorrect">class="incorrect">creates class="incorrect">class="incorrect">nice class="incorrect">class="incorrect">color  
class="incorrect">class="incorrect">schemes
class="incorrect">class="incorrect">class="incorrect">class="incorrect">class="incorrect">class="incorrect">class="incorrect">class="incorrect">library(class="incorrect">class="incorrect">classInt)     # class="incorrect">class="incorrect">finds class="incorrect">class class="incorrect">intervals for class="incorrect">continuous  
class="incorrect">variables

file.class="incorrect"&gt;class="incorrect"&amp;gt;shp <-  
class="incorrect"&gt;readShapePoly("class="incorrect"&gt;yourfile.class="incorrect"&gt;class="incorrect"&amp;gt;shp")

class="incorrect"&gt;class="incorrect"&amp;gt;plotvar <-  
file.class="incorrect"&gt;class="incorrect"&amp;gt;shp at data$your_var_to_be_plot
class="incorrect"&gt;class="incorrect"&amp;gt;class="incorrect"&amp;amp;gt;nclr <-  
8
class="incorrect"&gt;plotclr <-  
class="incorrect"&gt;brewer.class="incorrect"&gt;pal(class="incorrect"&gt;class="incorrect"&amp;gt;class="incorrect"&amp;amp;gt;nclr,"class="incorrect"&gt;BuPu")
class="incorrect"&gt;class <-  
class="incorrect"&gt;classIntervals(class="incorrect"&gt;class="incorrect"&amp;gt;plotvar, class="incorrect"&gt;class="incorrect"&amp;gt;class="incorrect"&amp;amp;gt;nclr,  
class="incorrect"&gt;style="class="incorrect"&gt;quantile",class="incorrect"&gt;dataPrecision=0)
class="incorrect"&gt;colcode <-  
class="incorrect"&gt;findColours(class="incorrect"&gt;class,  
class="incorrect"&gt;plotclr)

plot(file.class="incorrect"&gt;class="incorrect"&amp;gt;shp)
plot(file.class="incorrect"&gt;class="incorrect"&amp;gt;shp,  
col=class="incorrect"&gt;colcode, add=T)
title(main="Your title")
sub="Quantile (Equal-Frequency) Class Intervals")
legend(locator(1), legend=names(attr(class="incorrect"&gt;colcode, "table")),
fill=attr(class="incorrect"&gt;colcode, "palette"), cex=0.6, bty="n")

Concei??o Ribeiro