<div dir="ltr"><div>Como lo implemento?</div><div><br></div>El código:<div><br></div><div><div>> library(sp)</div><div>> require(RColorBrewer)</div><div>> load ("C:\\Rdata\\maps\\ESP_adm1.RData")</div><div>> ccaa <- gadm</div><div>> A <- which(ccaa@data$NAME_1 == "Islas Canarias")</div><div>> </div><div>> L <- length(ccaa@polygons[[A]]@Polygons)</div><div>> for (i in 1:L){</div><div>+     ccaa@polygons[[A]]@Polygons[[i]]@coords <- cbind(ccaa@polygons[[A]]@Polygons[[i]]@coords[,1]+18.2,ccaa@polygons[[A]]@Polygons[[i]]@coords[,2]+7)</div><div>+     </div><div>+ }</div><div>> ccaa$NAME_1 <- as.factor(enc2utf8(ccaa$NAME_1))</div><div>> spplot(ccaa, "NAME_1", col.regions = colorRampPalette(brewer.pal(12, "Set3"))(18), </div><div>+        col = "white", xlim= c(-12,5), ylim= c(35,45))</div><div><br></div><div><br></div><div><img src="cid:ii_14c7e88132e7228a" alt="Imágenes integradas 1" width="345" height="364"><br></div></div></div><div class="gmail_extra"><br><div class="gmail_quote">El 3 de abril de 2015, 10:54, Oscar Perpiñan <span dir="ltr"><<a href="mailto:oscar.perpinan@upm.es" target="_blank">oscar.perpinan@upm.es</a>></span> escribió:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Hola,<br>
<br>
Yo lo resuelvo usando grid.rect. Tienes una posible solución aquí:<br>
<a href="https://github.com/oscarperpinan/spacetime-vis/blob/master/choropleth.R#L216" target="_blank">https://github.com/oscarperpinan/spacetime-vis/blob/master/choropleth.R#L216</a><br>
(que es una versión actualizada de este artículo<br>
<a href="https://procomun.wordpress.com/2012/02/18/maps_with_r_1/" target="_blank">https://procomun.wordpress.com/2012/02/18/maps_with_r_1/</a>)<br>
<br>
Saludos.<br>
<br>
Oscar.<br>
-----------------------------------------------------------------<br>
Oscar Perpiñán Lamigueiro<br>
Dpto. Ing. Eléctrica, Electrónica, Automática y Física Aplicada (ETSIDI-UPM)<br>
Grupo de Sistemas Fotovoltaicos (IES-UPM)<br>
URL: <a href="http://oscarperpinan.github.io" target="_blank">http://oscarperpinan.github.io</a><br>
<div><div class="h5"><br>
<br>
2015-04-02 23:33 GMT+02:00 Ivan Aguilar <<a href="mailto:iaguilar@gmail.com">iaguilar@gmail.com</a>>:<br>
> Hola<br>
><br>
> He hecho el típico mapa con gadm y spplot:<br>
><br>
><br>
> library(sp)<br>
> ES <-<br>
> local(get(load(url("<a href="http://biogeo.ucdavis.edu/data/gadm2/R/ESP_adm2.RData" target="_blank">http://biogeo.ucdavis.edu/data/gadm2/R/ESP_adm2.RData</a><br>
> "))))<br>
><br>
> acerco las canarias:<br>
><br>
> A <- which(ES@data$NAME_1 == "Islas Canarias")<br>
> L <- length(ES@polygons[[A]]@Polygons)<br>
><br>
> L <- length(ES@polygons[[A]]@Polygons)<br>
> for (i in 1:L){<br>
>   ES@polygons[[A]]@Polygons[[i]]@coords <- cbind(ES@polygons<br>
> [[A]]@Polygons[[i]]@coords[,1]+6,ES@polygons<br>
> [[A]]@Polygons[[i]]@coords[,2]+5)<br>
> }<br>
><br>
> El tema es q quiero añadirle un recuadro a las islas usando spplot (o<br>
> lattice) ya que es lo q voy a usar.<br>
><br>
> Ayuda?<br>
><br>
><br>
><br>
><br>
> --<br>
> Ivan<br>
><br>
</div></div>>         [[alternative HTML version deleted]]<br>
><br>
> _______________________________________________<br>
> R-help-es mailing list<br>
> <a href="mailto:R-help-es@r-project.org">R-help-es@r-project.org</a><br>
> <a href="https://stat.ethz.ch/mailman/listinfo/r-help-es" target="_blank">https://stat.ethz.ch/mailman/listinfo/r-help-es</a><br>
</blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature">Ivan</div>
</div>