如何为叠加在ggplot2地图上的柱状图添加图例（annotation_custom）？

我来帮你搞定这个图例的问题！首先得弄明白为啥原来的theme(legend.position = "topright")不生效——其实是你写错参数值啦，ggplot2里legend.position的合法字符串选项只有"top"、"bottom"、"left"、"right"这四个，没有"topright"这种写法，要放在右上角得用数值坐标才行。

更关键的是：Inscaven的方法如果没生成图例，大概率是因为柱状图的颜色/填充色是硬编码指定的（比如直接写fill="blue"），而没有通过aes()映射到类别变量上。ggplot2只有在美学属性（fill/color等）和数据变量绑定的时候，才会自动生成图例。

下面给你一套完整的解决方案，结合代码例子：

步骤1：准备映射好类别的数据 #

首先要把柱状图的多类别数据转成长格式，方便和aes(fill=类别)绑定：

library(ggplot2)
library(dplyr)
library(tidyr)

# 拿美国州地图做示例数据
states_map <- map_data("state")

# 生成每个州的中心坐标 + 两个类别的数据
state_centers <- states_map %>%
  group_by(region) %>%
  summarize(long = mean(long), lat = mean(lat)) %>%
  mutate(
    农业产值 = runif(n(), 1, 5),
    工业产值 = runif(n(), 1, 5)
  ) %>%
  # 转成长格式，把类别列拆出来
  pivot_longer(cols = c(农业产值, 工业产值), 
               names_to = "产业类型", values_to = "产值")

步骤2：绘制带图例的地图+柱状图 #

核心是把fill=产业类型放到aes()里，让ggplot识别出要生成图例，再调整图例位置：

ggplot() +
  # 先画底图
  geom_polygon(data = states_map, 
               aes(x = long, y = lat, group = group),
               fill = "#f0f0f0", color = "white") +
  # 画柱状图：关键是用aes绑定fill到类别
  geom_bar(data = state_centers,
           aes(x = long, y = 产值, fill = 产业类型),
           stat = "identity", width = 0.5,
           position = position_dodge(width = 0.6)) +
  # 自定义图例颜色（可选）
  scale_fill_manual(values = c("农业产值" = "#2ecc71", "工业产值" = "#3498db")) +
  # 调整图例位置：用c(x,y)坐标，范围0-1，(1,1)是右上角
  theme_minimal() +
  theme(
    legend.position = c(0.9, 0.9), # 右上角位置
    legend.title = element_text(size = 10),
    legend.background = element_rect(fill = "white", alpha = 0.8)
  ) +
  # 保持地图的投影坐标
  coord_map()

如果你用的是geom_rect模拟柱状图 #

如果Inscaven的方法是用geom_rect手动绘制柱状图（而不是geom_bar），同样要把fill绑定到aes()里：

# 先计算每个柱状图的坐标范围
bar_coords <- state_centers %>%
  group_by(region, 产业类型) %>%
  mutate(
    xmin = long + ifelse(产业类型 == "农业产值", -0.3, 0),
    xmax = long + ifelse(产业类型 == "农业产值", 0, 0.3),
    ymin = lat,
    ymax = lat + 产值
  )

ggplot() +
  geom_polygon(data = states_map, aes(x=long, y=lat, group=group), fill="#f0f0f0", color="white") +
  # 关键：把fill放到aes里
  geom_rect(data = bar_coords,
            aes(xmin=xmin, xmax=xmax, ymin=ymin, ymax=ymax, fill=产业类型),
            color="black") +
  scale_fill_manual(values = c("农业产值" = "#2ecc71", "工业产值" = "#3498db")) +
  theme_minimal() +
  theme(legend.position = c(0.9, 0.9)) +
  coord_map()

核心要点总结 #

• 必须绑定美学映射：只有把fill/color通过aes()和类别变量绑定，ggplot才会生成图例，别直接在geom层写fill="红色"这种硬编码。
• 图例位置正确写法：要么用"top"/"bottom"/"left"/"right"，要么用数值坐标c(x,y)（x和y范围0-1，对应画布的相对位置）。
• 自定义图例样式：用scale_fill_manual可以指定颜色，用theme()里的legend.*参数可以调整图例的标题、背景、文字大小等。

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