ggmap: poligonu şekil dosyasından çiz

Ggmap kullanarak, bazı konum noktaları içeren bir harita üzerinde bir şekil dosyasından belediye sınırlarını (çokgen) dahil etmek istiyorum. Bu komut dosyası, çokgeni çizmek dışında her şeyi yapar:

library(rgdal)
library(ggmap)

# Get shapefile with Drammen municipality borders
tmpzip<-tempfile()
tmpdir<-tempfile()
dir.create(tmpdir)
download.file("http://www.kartverket.no/Documents/Kart/N50-N5000%20Kartdata/33_N5000_shape.zip",tmpzip)
unzip(tmpzip, exdir=tmpdir)
kommune <- readOGR(dsn=tmpdir, layer="NO_AdminOmrader_pol")
kommune<-kommune[kommune$NAVN=="Drammen",]
kommune<-spTransform(kommune, CRS("+init=epsg:4326"))

# Get location point data 
subscr<-data.frame(lon=c(10.1237,10.2161,10.2993),lat=c(59.7567,59.7527,59.6863), pop=c(58,12,150))
coordinates(subscr)<-~lon+lat
proj4string(subscr)<-CRS("+init=epsg:4326")

lon <- c(10.0937,10.3293)
lat <- c(59.7916,59.6563)
map <- get_map(location = c(lon[1], lat[2], lon[2], lat[1]),
               maptype = "roadmap", source = "osm", zoom = 11)
p <- ggmap(map) +
  geom_point(data = as.data.frame(subscr), aes(x = lon, y = lat, size=pop),
             colour = "darkgreen") +
  theme_bw()
print(p)

Çokgeni şekil dosyasından nasıl çizebilirim? İkinci son satırı aşağıdaki ile değiştirmeyi denedim:

p <- ggmap(map) +
  geom_point(data = as.data.frame(subscr), aes(x = lon, y = lat, size=pop),
             colour = "darkgreen") +
  geom_polygon(data = as.data.frame(kommune)) +
  theme_bw()

Ama sonra aşağıdaki hatayı alıyorum:

Error: Aesthetics must be either length 1 or the same as the data (1): x, y

as.data.frame()için çalışmıyor SpatialPolgonsiçinde geom_polygongeometri kayboluyor çünkü. Kullanmanız gerekir ggplot2::fortify(gelecekte kullanımdan kaldırılmış olabilir, bkz. ?fortify). Önerilen yol şimdi kullanmaktır broom::tidy:

R> library("broom")
R> head(tidy(kommune))
Regions defined for each Polygons
   long   lat order  hole piece group  id
1 10.29 59.72     1 FALSE     1 153.1 153
2 10.32 59.70     2 FALSE     1 153.1 153
3 10.32 59.69     3 FALSE     1 153.1 153
4 10.31 59.68     4 FALSE     1 153.1 153
5 10.30 59.67     5 FALSE     1 153.1 153
6 10.28 59.67     6 FALSE     1 153.1 153

Ancak örneğinizle ilgili başka bir sorun ortaya çıkıyor. Çokgen harita boyutundan daha büyük olduğundan ggmap, çokgeni doğru şekilde kırpmaz. ggmapölçeğin sınırlarını belirler; bu, bu sınırlar içinde olmayan tüm verileri atar.

Kodunuzun değiştirilmiş bir sürümü:

p <- ggmap(map, extent = "normal", maprange = FALSE) +
     geom_point(data = as.data.frame(subscr),
                aes(x = lon, y = lat, size=pop),
                colour = "darkgreen") +
     geom_polygon(data = fortify(kommune),
                  aes(long, lat, group = group),
                  fill = "orange", colour = "red", alpha = 0.2) +
     theme_bw() +
     coord_map(projection="mercator",
               xlim=c(attr(map, "bb")$ll.lon, attr(map, "bb")$ur.lon),
               ylim=c(attr(map, "bb")$ll.lat, attr(map, "bb")$ur.lat))

print(p)

Yukarıdaki cevaba eklemek için: Mükemmel öğretici / cevaplarını takip eden ve çokgen kırpma ile ilgili bir sonraki problemin nasıl çözüleceğini merak edenler için (benim gibi!)

İşte cevap, /programming/13982773/crop-for-spatialpolygonsdataframe adresindeki 'streamlinedmethod' kullanıcısının izniyle

library(maptools)
library(raster)   ## To convert an "Extent" object to a "SpatialPolygons" object.
library(raster)   ## To convert an "Extent" object to a "SpatialPolygons" object.
library(rgeos)
data(wrld_simpl)

# Create the clipping polygon
CP <- as(extent(130, 180, 40, 70), "SpatialPolygons")
proj4string(CP) <- CRS(proj4string(wrld_simpl))

# Clip the map
out <- gIntersection(wrld_simpl, CP, byid=TRUE)

planladığınız zaman, garip kırpma sorunu yaşamayacaksınız.