[R-es] Resumen de R-help-es, Vol 44, Envío 9

[Edwin Aguiar]

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>