https://github.com/cran/RgoogleMaps
Tip revision: fe1646ab6e62485672da5bf26ed6f4bc4ae94f61 authored by Markus Loecher, Sense Networks on 11 May 2011, 00:00:00 UTC
version 1.1.9.7
version 1.1.9.7
Tip revision: fe1646a
PlotPolysOnStaticMap.R
`PlotPolysOnStaticMap` <-
function(MyMap, polys, col, border = NULL, lwd = .25, verbose = 0,...){
Rcoords <- LatLon2XY.centered(MyMap,lat= polys[,"Y"],lon= polys[,"X"]);
polys.XY <- as.data.frame(polys);
polys.XY[,"X"] <- Rcoords$newX;
polys.XY[,"Y"] <- Rcoords$newY;
if (!missing(col)) polys.XY[,"col"] <- col;
if ( !( "PID" %in% colnames(polys.XY)) )
polys.XY[,"PID"] <- 1;
if ( !( "col" %in% colnames(polys.XY)) )
polys.XY[,"col"] <- rgb(.1,.1,.1,.05);
#polys.XY[polys.XY[,"PID"] == 292,"col"] <- rgb(1,0,0,.75)
tmp <- PlotOnStaticMap(MyMap, verbose=0, ...)
tmp <- by(polys.XY[,c("X","Y","col")], polys.XY[,"PID"], mypolygon, lwd = lwd, border = border);
}