1

@AriBFriedman と @PaulHiemstra からの提案と、その後 .shp ファイルをマージする方法を見つけたおかげで、次のコードとデータを使用して次のマップを作成することができました。

データ：

モロッコと西サハラ

コード：

    # Loading administrative coordinates for Morocco maps
    library(sp)
    library(maptools)
    library(mapdata)

    # Loading shape files
    Mor <- readShapeSpatial("F:/Purdue University/RA_Position/PhD_ResearchandDissert/PhD_Draft/Country-CGE/MAR_adm1.shp")
    Sah <- readShapeSpatial("F:/Purdue University/RA_Position/PhD_ResearchandDissert/PhD_Draft/Country-CGE/ESH_adm1.shp")

    # Ploting the maps individually
    png("Morocco.png")
    Morocco <- readShapePoly("F:/Purdue University/RA_Position/PhD_ResearchandDissert/PhD_Draft/Country-CGE/MAR_adm1.shp")
    plot(Morocco)
    dev.off()

    png("WesternSahara.png")
    WesternSahara <- readShapePoly("F:/Purdue University/RA_Position/PhD_ResearchandDissert/PhD_Draft/Country-CGE/ESH_adm1.shp")
    plot(WesternSahara)
    dev.off()

    # Merged map of Morocco and Western Sahara

    MoroccoData <- rbind(Mor@data,Sah@data) # First, 'stack' the attribute list rows using rbind() 
    MoroccoPolys <- c(Mor@polygons,Sah@polygons) # Next, combine the two polygon lists into a single list using c()

    # summary(MoroccoData)
    # summary(MoroccoPolys)

    offset <- length(MoroccoPolys) # Next, generate a new polygon ID for the new SpatialPolygonDataFrame object

    browser()
    for (i in 1: offset)
    {
    sNew =  as.character(i)
    MoroccoPolys[[i]]@ID = sNew
    }

    ID <- c(as.character(1:length(MoroccoPolys))) # Create an identical ID field and append it to the merged Data component
    MoroccoDataWithID <- cbind(ID,MoroccoData)

    MoroccoPolysSP <- SpatialPolygons(MoroccoPolys,proj4string=CRS(proj4string(Sah))) #  Promote the merged list to a SpatialPolygons data object

    Morocco <- SpatialPolygonsDataFrame(MoroccoPolysSP,data = MoroccoDataWithID,match.ID = FALSE) #  Combine the merged Data and Polygon components into a new SpatialPolygonsDataFrame.

    Morocco@data$id <- rownames(Morocco@data)
    Morocco.fort <- fortify(Morocco, region='id') 
    Morocco.fort <- Morocco.fort[order(Morocco.fort$order), ] 

    MoroccoMap <- ggplot(data=Morocco.fort, aes(long, lat, group=group)) + 
    geom_polygon(colour='black',fill='white') + 
    theme_bw()

結果：

個々のマップ

モロッコ 西サハラ

マージされたマップ:

モロッコ合併

質問：

マップの真ん中を横切る境界線をなくしたいのですが？提案や助けがある人はいますか?

ありがとう

4

1 に答える 1

0

このリンクで無料でダウンロードできるQGISソフトウェアを使用して、マージ後にマップを2つに分割する余分なポリゴンレイヤーを削除しましたQGIS

于 2013-12-05T04:20:14.950 に答える