如何用ggplot、sf和brazilmaps修改巴西市镇边界颜色？

问题分析 #

你已实现基于trab_resgatados变量的市镇填充色映射，但无法修改市镇边界颜色，且直接使用get_brmap("City")叠加边界层无效，核心原因可能是：

• 原有图层的边界颜色与填充色过于接近，视觉上难以区分；
• 直接调用get_brmap("City")获取的是全国市镇数据，与你的muni_map（特定区域子集）范围不匹配，导致边界未正确渲染。

解决方案1：直接修改原有图层的边界颜色 #

将color参数设置为与填充色差异明显的固定值（不要放在aes()内，避免按变量映射），示例代码：

muni_plot <- ggplot(data = muni_map) +
  geom_sf(aes(fill = trab_resgatados), size = 0.27, color = "black") + # 改用黑色等对比明显的边界色
  labs(fill = "Slaves") +
  scale_fill_gradient(low = 'white', high = 'purple2', na.value = "green") +
  theme(panel.grid = element_line(colour = "transparent"),
        panel.background = element_blank(),
        axis.text = element_blank(),
        axis.ticks = element_blank())

解决方案2：叠加匹配区域的市镇边界层 #

如果需要单独控制边界层（比如更粗的线条、不同颜色），先筛选出与muni_map匹配的市镇数据，再叠加：

# 1. 获取与你的muni_map匹配的市镇边界数据（假设muni_map包含州代码变量code_state）
target_state <- unique(muni_map$code_state)
city_borders <- get_brmap("City") %>%
  dplyr::filter(code_state == target_state)

# 2. 绘制地图：先渲染填充层（边界透明），再叠加边界层
muni_plot <- ggplot(data = muni_map) +
  geom_sf(aes(fill = trab_resgatados), size = 0.27, color = "transparent") +
  geom_sf(data = city_borders, fill = "transparent", color = "black", size = 0.27) +
  labs(fill = "Slaves") +
  scale_fill_gradient(low = 'white', high = 'purple2', na.value = "green") +
  theme(panel.grid = element_line(colour = "transparent"),
        panel.background = element_blank(),
        axis.text = element_blank(),
        axis.ticks = element_blank())

额外检查项 #

• 验证muni_map的几何有效性：运行sf::st_is_valid(muni_map)，确保没有无效多边形导致边界渲染异常；
• 调整size参数：如果边界仍然不明显，可以增大size值（比如0.3或0.4）。

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