Estimado Jose:
En nuestro caso utilizamos las mismas librerias y solemos resolverlo asi
(donde el color depende del valor que se le asigne)
//--------------------------------------------------------------------------------------------------------------------------------------
#configuramos donde
setwd("D:/mapas/")
#Carga de librerias
library (sp)
library (RColorBrewer)
library (maptools)
# carga de mapa politico y datos
datos_manies<-read.csv("D:/mapas/corrientes/tabla.csv",
sep=",")
cartografia<-readShapeSpatial("D:/mapas/corrientes/corrientes.shp",proj4string=CRS("+proj=longlat
+datum=NAD27"))
# comprobamos si el mapa cargo, si aparece el grafico esta bien
# si no es asi hay que revisar las librerias y dependencias
plot(cartografia)
# para ver la paleta de brewer
# display.brewer.all()
# asignamos variables de mani al mapa
datos_manies$MANI
cartografia en data=data.frame(datos_manies$MANI, check.names=TRUE)
# plotea cartografia con pcias con MANI
spplot(cartografia,c("datos_manies.MANI"),col.regions=brewer.pal(9,
"BuGn"), scales=list(draw = TRUE))
# otro plot con escala de varios colores
spplot(cartografia, "datos_manies.MANI", col.regions=brewer.pal(9,
"YlOrRd"), scales=list(draw = TRUE),
main=list(label="Manies en Corrientes"))
# creacion e impresion de imagen JPEG
jpeg("Manies_Corr.jpeg", width=630, height=630,bg="white")
par <- list(axis.line=list(col="transparent"),
clip=list(panel="off"),
par.main.text=list(col="black"),
axis.text=list(col="black"), fontsize=list(text=12))
//----------------------------------------------------------------------------------------------------------------------------
tabla de datos_manies
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
//--------------------------------------------------------------------------------------------------------------------------------------------
adjunto un png de ejemplo
Espero sea util
Un cordial saludo
--
*Edwin M. Aguiar*
Desarrollo de software y Bases de Datos
Mineria de Datos
Grupo TICs / EEA Corrientes
INTA
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL:
<https://stat.ethz.ch/pipermail/r-help-es/attachments/20121010/bdd96c0e/attachment-0001.html>
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: corrientes0.jpeg
Type: image/jpeg
Size: 105805 bytes
Desc: no disponible
URL:
<https://stat.ethz.ch/pipermail/r-help-es/attachments/20121010/bdd96c0e/attachment-0001.jpeg>
