在ggplot绘制的省级地图中如何加粗大区边界

你可以通过聚合大区几何图形后，在原有地图上叠加一层加粗的大区边界线条来实现，具体步骤如下：

1. 先从原shapefile数据中聚合出大区的边界数据：

   region_borders <- prov2022 %>%
     group_by(COD_REG) %>%
     summarize(geometry = st_union(geometry))
   

   这里通过group_by(COD_REG)按大区代码分组，st_union(geometry)会把同一大区下所有省份的几何图形合并成单个大区多边形。

2. 在你的原有绘图代码中，新增一层geom_sf来绘制这些加粗的大区边界：

   right_join(prov2022, dataset, by = "COD_PROV") %>% 
     ggplot(aes(fill = `Real wage`)) +
     geom_sf() +  # 绘制省级填充地图
     # 添加大区加粗边界：填充设为NA避免覆盖省级颜色，调整size控制线条粗细
     geom_sf(data = region_borders, fill = NA, color = "black", size = 1.2) +
     theme_void() +
     theme(legend.title=element_blank())+
     scale_fill_gradientn(colors = c( "#FFFFFF","#FFFF00", "#FF0000", "#000000"))
   

关键参数说明 #

• fill = NA：确保大区边界层不会填充颜色，只显示线条
• size = 1.2：控制大区边界的粗细，可根据视觉需求调整数值（比如1.5、2等）
• color = "black"：设置边界线条颜色，可根据需要更换为其他颜色（如深灰色#333333）

内容的提问来源于stack exchange，提问作者io_boh