如何在ggplot2的geom_sf中仅填充单个要素

你可以通过以下两种自动化方式实现，不用手动指定所有区域的颜色：

方法一：新增标记列（推荐，更直观） #

先给数据集添加一个逻辑列，标记当前区域是否是你要高亮的目标，再基于这个列设置填充色：

# 过滤数据并新增标记列
tudo_sul_filtered <- tudo_sul %>% 
  filter(uf == '43') %>%
  mutate(is_target = nome_mesorregiao == 'Metropolitana de Porto Alegre')

# 绘制地图
ggplot() +
  geom_sf(data = tudo_sul_filtered, 
          aes(geometry = geom_meso, fill = is_target), 
          color = 'black') +
  # 设置目标区域为蓝色，其余为白色，不需要图例可加guide='none'
  scale_fill_manual(values = c('TRUE' = 'blue', 'FALSE' = 'white'), guide = 'none') + 
  theme_bw()

方法二：自动生成颜色映射向量 #

如果不想修改数据集，可以先提取所有区域名称，自动生成对应颜色的命名向量：

# 过滤数据
tudo_sul_filtered <- tudo_sul %>% filter(uf == '43')

# 生成所有区域的颜色映射：目标区域蓝色，其余白色
all_regions <- unique(tudo_sul_filtered$nome_mesorregiao)
fill_colors <- ifelse(all_regions == 'Metropolitana de Porto Alegre', 'blue', 'white')
names(fill_colors) <- all_regions

# 绘制地图
ggplot() +
  geom_sf(data = tudo_sul_filtered, 
          aes(geometry = geom_meso, fill = nome_mesorregiao), 
          color = 'black') +
  scale_fill_manual(values = fill_colors, guide = 'none') + 
  theme_bw()

为什么原来的代码没生效？ #

你之前的scale_fill_manual只指定了单个区域的颜色，其余未被指定的区域会使用ggplot默认的深灰色填充。上面两种方法都会覆盖所有区域的颜色设置，确保非目标区域自动变为白色。

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