僅在 ggplot2 地圖 / geom_polygon 中繪制外邊框

Question

我只想在這個數據集中繪制ethnic變量的外邊界。 您在此鏈接下找到的數據集plot_data是來自蘇丹PRIO GRID的 shapefile 的強化數據集。

我當前的代碼如下所示：

plot_data <- load("plot_data.rdata")

ggplot(plot_data, 
       aes(x= long, 
           y = lat, 
           group = id)) + 
  geom_polygon() + 
  geom_polygon(data = plot_data %>% 
                 filter(!is.na(ethnic)) %>% # subset data with ethnicity only
                 as.data.frame(), 
               aes(color = ethnic)) + 
  coord_equal() 

這給了我以下輸出：

但是，我想刪除指定族群聚居區的所有內線，只繪制該區域的外邊界。

我沒有得到解決這個類似問題的方法。

在強化 shapefile之前，我可能需要合並單元格； 但也許在設防之后有辦法。 我試圖刪除重復的坐標，但這沒有用。 任何建議將不勝感激。 謝謝。

Answer 1

基本思想很簡單：您需要將填充和顏色映射到整個情節的美感，然后將顏色映射到較小多邊形的美感，這樣您就可以用與較大多邊形相同的顏色為較小的多邊形着色多邊形。 這就是消除較小多邊形內線的原因。 然后我在較小多邊形的美學之外添加了尺寸，以便將紅線的寬度增加到可感知的水平。

plot_data <- load("plot_data.rdata")   

library(ggplot2) 

df<-plot_data %>% 
  filter(!is.na(ethnic)) %>% # subset data with ethnicity only
  as.data.frame()    

ggplot(plot_data, 
       aes(x= long, y = lat, group = id,fill="", color="")) + 
  geom_polygon() + 
  geom_polygon(data = df, 
               aes(color = ethnic), size=1) + 
  geom_polygon(data=df, aes(x= long, y = lat, group = id))+
  scale_fill_manual(values="black", guide=F)+
  scale_color_manual(name="ethnic",
               labels=c("","Shaygiyya, Ja'aliyyin and Danagla (Arab)"),
               values=c("black","red"), 
               breaks = c("NA","Shaygiyya, Ja'aliyyin and Danagla (Arab)")) +
  coord_equal()

我的會話信息：

sessionInfo()
R version 3.3.1 (2016-06-21)
Platform: x86_64-apple-darwin13.4.0 (64-bit)
Running under: OS X 10.11.5 (El Capitan)

locale:
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

loaded via a namespace (and not attached):
 [1] Rcpp_0.12.7        XML_3.98-1.4       proj4_1.0-8        bitops_1.0-6      
 [5] MASS_7.3-45        grid_3.3.1         plyr_1.8.3         gtable_0.2.0      
 [9] scales_0.4.0       KernSmooth_2.23-15 ggplot2_2.1.0      ash_1.0-15        
[13] RColorBrewer_1.1-2 RJSONIO_1.3-0      tools_3.3.1        RSelenium_1.4.2   
[17] munsell_0.4.3      RCurl_1.95-4.8     maps_3.1.0         colorspace_1.2-6  
[21] caTools_1.17.1 

更新： OP 在使用我發布的代碼生成相同的圖時遇到了麻煩。 我的一個朋友使用我在此處提供的相同代碼在 Windows 系統（我在 El Capitan）上重現了該圖，他得到了相同的結果（如下）。