ggplot图例自定义技术求助：底部居中标题+隐藏NA值

嗨，我来帮你搞定这个图例的问题！先把你的需求拆解清楚：图例放在底部、标题居中在刻度上方、显示标签和对应颜色、隐藏NA值，之后还要扩展成四张地图。先从单张地图的调试入手，结合你的现有代码给出具体修改方案。

首先，先补全你提到的绘图流程（假设你要填充的变量叫ev_value，记得替换成你实际的变量名）：

# 你的现有数据处理步骤
map_ev@data$id = rownames(map_ev@data)
map_ev.points = fortify(map_ev, region="id")
map_ev.df = join(map_ev.points, map_ev@data, by="id")

# 提前过滤NA值（可选但推荐，让绘图更干净）
map_ev.df <- map_ev.df %>% filter(!is.na(ev_value))

接下来是核心的ggplot绘图和图例定制部分，我会逐行解释关键参数：

library(ggplot2)

ggplot(map_ev.df, aes(x = long, y = lat, group = group, fill = ev_value)) +
  geom_polygon(color = "white", linewidth = 0.2) + # 加边界线区分区域
  # 定制填充比例尺，处理NA和图例条目
  scale_fill_viridis_c( # 这里用viridis色系，你可以换成scale_fill_gradient/gradientn等
    name = "你的图例标题", # 设置图例标题
    drop = TRUE, # 自动移除NA对应的图例条目，实现隐藏NA的需求
    na.value = "transparent", # 让地图上的NA区域透明（如果没提前过滤的话）
    breaks = scales::pretty_breaks(n = 5) # 可选：自定义刻度数量，让标签更美观
  ) +
  # 主题调整，控制图例位置和样式
  theme_minimal() +
  theme(
    legend.position = "bottom", # 将图例放在底部
    legend.title.align = 0.5, # 让图例标题居中（0是左对齐，1是右对齐）
    legend.key.width = unit(2.5, "cm"), # 调整图例颜色条的宽度，方便查看颜色对应
    legend.margin = margin(t = 8, b = 4), # 调整标题和刻度之间的上下间距，让标题在刻度上方更协调
    legend.box.margin = margin(b = 10) # 可选：给整个图例底部加边距，避免和图边界太近
  )

关键参数解释： #

• drop = TRUE：这是隐藏NA图例条目的核心，它会自动从图例中移除没有对应数据的类别（包括NA）。
• legend.title.align = 0.5：确保图例标题在刻度的正上方居中显示，默认可能是左对齐，这个参数刚好满足你的需求。
• 提前过滤NA：用filter(!is.na(ev_value))可以直接从数据中移除NA区域，比仅在scale中处理更彻底，避免地图上出现透明的NA区块（如果不需要保留这些区域的话）。

后续扩展四张地图的小提示： #

当你要绘制四张地图时，推荐用facet_wrap()或facet_grid()来实现子图布局。此时只需要在上述代码基础上添加facet层，图例会自动统一管理，你之前设置的legend.position = "bottom"等参数会全局生效，不需要重复设置：

# 假设你有一个分组变量叫map_group，用来区分四张地图
ggplot(map_ev.df, aes(x = long, y = lat, group = group, fill = ev_value)) +
  geom_polygon(color = "white", linewidth = 0.2) +
  scale_fill_viridis_c(name = "你的图例标题", drop = TRUE) +
  facet_wrap(~map_group) + # 按分组变量生成四张子图
  theme_minimal() +
  theme(
    legend.position = "bottom",
    legend.title.align = 0.5,
    legend.key.width = unit(2.5, "cm")
  )

这样就能轻松得到四张共享底部居中图例的地图啦！

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