ggplot2中scale_fill_distiller的RdBu调色板图例不显示求助

我来帮你搞定这个困扰了2小时的问题！其实问题就出在几个容易忽略的小细节上，咱们一步步调整就能得到你想要的垂直图例：

问题根源分析 #

1. limits参数顺序错误：你写的limits = c(1, -1)是反的，数值范围应该按从小到大的顺序（-1到1），顺序颠倒会导致调色板映射异常，甚至图例直接不显示。
2. breaks设置不合理：breaks = 50是告诉ggplot要显示50个刻度，这既不现实也会导致图例渲染异常，应该指定清晰的刻度序列。
3. theme_map()默认隐藏图例：这个主题是为无图例的极简地图设计的，会自动把图例隐藏，需要手动开启。

修正后的完整代码 #

# 加载所需包
library(ggplot2)
library(ggthemes)
library(dplyr)

# 准备地图数据并赋值id
shape <- map_data("world") %>% 
  filter(region %in% c("Germany", "Italy", "France", "UK")) %>%
  arrange(region) %>%
  # 用case_when赋值更可靠，避免手动选行号出错
  mutate(id = case_when(
    region == "Germany" ~ 0.2,
    region == "Italy" ~ -0.4,
    region == "France" ~ -0.9,
    region == "UK" ~ 0.7
  ))

# 绘制地图
ggplot() +
  geom_polygon(data = shape, 
               aes(x = long, y = lat, group = group, fill = id), 
               colour = 'black') +
  coord_map() +
  ggthemes::theme_map() +
  # 修正调色板参数
  scale_fill_distiller(
    palette = 'RdBu', 
    limits = c(-1, 1),  # 正确的数值范围：从-1到1
    breaks = seq(-1, 1, 0.5),  # 清晰的刻度：-1, -0.5, 0, 0.5, 1
    direction = 1,  # 明确指定低数值（-1）对应红色，高数值（1）对应蓝色
    name = "Value"  # 图例标题，可根据需求修改
  ) +
  # 覆盖theme_map的设置，显示垂直图例
  theme(
    legend.position = "right",  # 图例放在右侧
    legend.key.height = unit(2, "cm")  # 拉长图例高度，让它更垂直
  )

关键修改说明 #

• 用dplyr::case_when替代手动行号赋值：这样不管数据行怎么变化，每个国家的id值都能准确对应，避免了硬编码行号的风险。
• 调整limits顺序：保证调色板从-1（红）到1（蓝）正确映射。
• 合理设置breaks：生成间隔均匀的刻度，让图例清晰易读。
• 手动开启图例：通过theme(legend.position = "right")覆盖theme_map()的隐藏设置，再调整legend.key.height让图例更接近你想要的垂直样式。

这样修改后，你就能得到一个带有垂直RdBu图例的地图，范围从-1（红）到1（蓝），完全符合你的需求。

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