Como lo implemento?
El código:
> library(sp)
> require(RColorBrewer)
> load ("C:\\Rdata\\maps\\ESP_adm1.RData")
> ccaa <- gadm
> A <- which(ccaa en data$NAME_1 == "Islas Canarias")
>
> L <- length(ccaa en polygons[[A]]@Polygons)
> for (i in 1:L){
+ ccaa en polygons[[A]]@Polygons[[i]]@coords <- cbind(ccaa en polygons
[[A]]@Polygons[[i]]@coords[,1]+18.2,ccaa en polygons
[[A]]@Polygons[[i]]@coords[,2]+7)
+
+ }> ccaa$NAME_1 <- as.factor(enc2utf8(ccaa$NAME_1))
> spplot(ccaa, "NAME_1", col.regions =
colorRampPalette(brewer.pal(12,
"Set3"))(18),
+ col = "white", xlim= c(-12,5), ylim= c(35,45))
[image: Imágenes integradas 1]
El 3 de abril de 2015, 10:54, Oscar Perpiñan <oscar.perpinan en upm.es>
escribió:
> Hola,
>
> Yo lo resuelvo usando grid.rect. Tienes una posible solución aquí:
>
>
https://github.com/oscarperpinan/spacetime-vis/blob/master/choropleth.R#L216
> (que es una versión actualizada de este artículo
> https://procomun.wordpress.com/2012/02/18/maps_with_r_1/)
>
> Saludos.
>
> Oscar.
> -----------------------------------------------------------------
> Oscar Perpiñán Lamigueiro
> Dpto. Ing. Eléctrica, Electrónica, Automática y Física Aplicada
> (ETSIDI-UPM)
> Grupo de Sistemas Fotovoltaicos (IES-UPM)
> URL: http://oscarperpinan.github.io
>
>
> 2015-04-02 23:33 GMT+02:00 Ivan Aguilar <iaguilar en gmail.com>:
> > Hola
> >
> > He hecho el típico mapa con gadm y spplot:
> >
> >
> > library(sp)
> > ES <-
> > local(get(load(url("
> http://biogeo.ucdavis.edu/data/gadm2/R/ESP_adm2.RData
> > "))))
> >
> > acerco las canarias:
> >
> > A <- which(ES en data$NAME_1 == "Islas Canarias")
> > L <- length(ES en polygons[[A]]@Polygons)
> >
> > L <- length(ES en polygons[[A]]@Polygons)
> > for (i in 1:L){
> > ES en polygons[[A]]@Polygons[[i]]@coords <- cbind(ES en polygons
> > [[A]]@Polygons[[i]]@coords[,1]+6,ES en polygons
> > [[A]]@Polygons[[i]]@coords[,2]+5)
> > }
> >
> > El tema es q quiero añadirle un recuadro a las islas usando spplot (o
> > lattice) ya que es lo q voy a usar.
> >
> > Ayuda?
> >
> >
> >
> >
> > --
> > Ivan
> >
> > [[alternative HTML version deleted]]
> >
> > _______________________________________________
> > R-help-es mailing list
> > R-help-es en r-project.org
> > https://stat.ethz.ch/mailman/listinfo/r-help-es
>
--
Ivan
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL:
<https://stat.ethz.ch/pipermail/r-help-es/attachments/20150403/19f622ed/attachment-0001.html>
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: image.png
Type: image/png
Size: 13946 bytes
Desc: no disponible
URL:
<https://stat.ethz.ch/pipermail/r-help-es/attachments/20150403/19f622ed/attachment-0001.png>