ggplot2のgeom_polygon - 異なる塗りつぶしのためのファセット？

Question

ファセットを使ってこれらの3つのマップを組み合わせる方法はありますか？

emi <- readShapePoly('prov2011_g.shp') 
names(emi) <- c('REG', 'ID', 'NOME', 'SHAPE', 'AREA', 'MIG1', 'MIG2', 'MIG3') 
emi_geom <- poly_coords(emi) 

map <- qplot(PolyCoordsY, PolyCoordsX, data = emi_geom, group = Poly_Name, geom = 'polygon', fill = MIG1) 

map1 <- qplot(PolyCoordsY, PolyCoordsX, data = emi_geom, group = Poly_Name, geom = 'polygon', fill = MIG2) 

map2 <- qplot(PolyCoordsY, PolyCoordsX, data = emi_geom, group = Poly_Name, geom = 'polygon', fill = MIG3) 

私はこの偉大なチュートリアル（http://www.r-bloggers.com/maps-with-ggplot2/）に従っています。 poly_coords関数は、シェイプファイルから座標を外挿します。私は溶融（reshape2）を使用しようとしましたが、このケースに適用する方法はわかりません。他のgeom_ *はもっと簡単です。 あなたが私を助けてくれることを願っています。

Answer 1

今後のSO検索者には、qplot()は遠隔地でも良いアイデアだとは思わないように回答を投稿してください。受け入れられないか、+ 1が必要です。ブログ投稿からコードを貼り付けることをやめさえすれば、&のコードを止めてください。

library(rgdal) 
library(maptools) 
library(ggplot2) 
library(viridis) 

prov <- readOGR("prov2011_g.shp", "prov2011_g", stringsAsFactors=FALSE, verbose=FALSE) 

longlat <- "+init=epsg:4121 +proj=longlat +ellps=GRS80 +datum=GGRS87 +no_defs +towgs84=-199.87,74.79,246.62" 

prov <- SpatialPolygonsDataFrame(spTransform(prov, CRS(longlat)), prov@data) 

prov_map <- fortify(prov, region="NOME_PRO") 

fac <- data.frame(area=rep(prov@data$NOME_PRO, 3), 
        measure=rep(c("A", "B", "C"), each=nrow(prov@data)), 
        val=sample(100, nrow(prov@data)*3, replace=TRUE)) 

gg <- ggplot() 
gg <- gg + geom_map(data=prov_map, map=prov_map, 
        aes(x=long, y=lat, map_id=id), 
        color="#2b2b2b", size=0.1, fill=NA) 
gg <- gg + geom_map(data=fac, map=prov_map, 
        aes(fill=val, group=measure, map_id=area)) 
gg <- gg + scale_fill_viridis() 
gg <- gg + facet_wrap(~measure) 
gg <- gg + coord_map() 
gg <- gg + ggthemes::theme_map() 
gg