<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div class="moz-cite-prefix"><font color="#330033">Estimado Jose:<br>
En nuestro caso utilizamos las mismas librerias y solemos
resolverlo asi (donde el color depende del valor que se le
asigne)<br>
//--------------------------------------------------------------------------------------------------------------------------------------<br>
#configuramos donde<br>
setwd("D:/mapas/")<br>
<br>
#Carga de librerias<br>
library (sp)<br>
library (RColorBrewer)<br>
library (maptools)<br>
<br>
# carga de mapa politico y datos<br>
<br>
datos_manies<-read.csv("D:/mapas/corrientes/tabla.csv",
sep=",")<br>
cartografia<-readShapeSpatial("D:/mapas/corrientes/corrientes.shp",proj4string=CRS("+proj=longlat
+datum=NAD27"))<br>
# comprobamos si el mapa cargo, si aparece el grafico esta bien<br>
# si no es asi hay que revisar las librerias y dependencias <br>
plot(cartografia)<br>
# para ver la paleta de brewer<br>
# display.brewer.all()<br>
<br>
# asignamos variables de mani al mapa<br>
datos_manies$MANI<br>
<a class="moz-txt-link-abbreviated" href="mailto:cartografia@data=data.frame">cartografia@data=data.frame</a>(datos_manies$MANI, check.names=TRUE)<br>
<br>
# plotea cartografia con pcias con MANI<br>
spplot(cartografia,c("datos_manies.MANI"),col.regions=brewer.pal(9,
"BuGn"), scales=list(draw = TRUE))<br>
<br>
<br>
# otro plot con escala de varios colores<br>
spplot(cartografia, "datos_manies.MANI",
col.regions=brewer.pal(9, "YlOrRd"), scales=list(draw = TRUE),<br>
main=list(label="Manies en Corrientes"))<br>
<br>
<br>
<br>
# creacion e impresion de imagen JPEG<br>
jpeg("Manies_Corr.jpeg", width=630, height=630,bg="white")<br>
par <- list(axis.line=list(col="transparent"),<br>
clip=list(panel="off"),
par.main.text=list(col="black"), <br>
axis.text=list(col="black"), fontsize=list(text=12))<br>
//----------------------------------------------------------------------------------------------------------------------------<br>
tabla de datos_manies<br>
<span class="Apple-style-span" style="border-collapse: separate;
font-family: 'Lucida Console'; font-size: 13px; font-style:
normal; font-variant: normal; font-weight: normal;
letter-spacing: normal; line-height: 15px; orphans: 2;
text-indent: 0px; text-transform: none; white-space: pre-wrap;
widows: 2; word-spacing: 0px; background-color: rgb(0, 34,
64);">
<pre tabindex="0" class="GDXA2EVBEAB" style="font-family: 'Lucida Console'; font-size: 10pt !important; outline-style: none; outline-width: initial; outline-color: initial; border-top-style: none; border-right-style: none; border-bottom-style: none; border-left-style: none; border-width: initial; border-color: initial; white-space: pre-wrap !important; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; line-height: 1.2; "> LOCALIDAD MANI
1 Bella Vista,"" NA
2 Beron de Astrada 0.8
3 Capital NA
4 Concepcion 1.5
5 Curuzu Cuatia 0.0
6 Empedrado NA
7 Esquina 0.0
8 General Alvear NA
9 General Paz 1.5
10 Goya NA
11 Itati 0.8
12 Ituzaingo 0.6
13 Lavalle NA
14 Mburucuya NA
15 Mercedes NA
16 Monte Caseros NA
17 Paso de los Libres 0.6
18 Saladas 0.5
19 San Cosme 0.6
20 San Luis del Palmar 1.0
21 San Martin NA
22 San Miguel 2.0
23 San Roque NA
24 Santo Tome 1.0
25 Sauce 0.0</pre>
</span></font><font color="#330033">//--------------------------------------------------------------------------------------------------------------------------------------------<br>
adjunto un png de ejemplo<br>
<br>
Espero sea util<br>
Un cordial saludo<br>
</font></div>
<div class="moz-signature">-- <br>
<b>Edwin M. Aguiar</b><br>
<small> Desarrollo de software y Bases de Datos<br>
Mineria de Datos<br>
Grupo TICs / EEA Corrientes<br>
INTA</small></div>
</body>
</html>