ggplot2 guide_colorsteps如何仅显示部分自定义图例刻度与标签

核心实现方法：通过scale_fill_viridis_*系列函数的breaks参数指定你需要展示的10个刻度值即可，无需全局关闭标签显示。

场景1：tally为数值型变量（推荐） #

你当前代码中将tally转为因子使用离散配色，若tally本身是计数类连续数值，直接使用连续配色方案适配colorsteps图例更合理，修改后代码如下：

tt <- ggplot() +
  # 第一层：所有国家，无填充，无白色轮廓
  geom_polygon(data = maps2, 
               aes(x = long, y = lat, group = group), fill="grey", show.legend = F, size = 0.1) +
  # 第二层：仅带填充的国家，保留tally的数值类型，不转因子
  geom_polygon(data = test,
            aes(x = long, y = lat, group = group, fill = tally), show.legend = T)+  
  # 连续配色，设置breaks为10个均匀分布的刻度，也可以手动传入指定的数值向量
  scale_fill_viridis_c(option="D", na.value = NA,
                       breaks = seq(min(test$tally, na.rm = TRUE), 
                                    max(test$tally, na.rm = TRUE), 
                                    length.out = 10))+
  facet_grid(~IO)+
  theme( strip.text.x = element_blank())

# 调整颜色步长图例，无需设置label=F
tt + guides(fill=guide_colorsteps(title=element_blank()))

场景2：必须使用离散因子映射 #

如果业务要求必须将tally转为109级的离散因子，可手动筛选需要展示的因子水平传给breaks参数：

# 筛选需要在图例展示的10个因子水平，也可手动指定具体值
show_levels <- levels(as.factor(test$tally))[round(seq(1, nlevels(as.factor(test$tally)), length.out = 10))]

tt <- ggplot() +
  geom_polygon(data = maps2, 
               aes(x = long, y = lat, group = group), fill="grey", show.legend = F, size = 0.1) +
  geom_polygon(data = test,
            aes(x = long, y = lat, group = group, fill = as.factor(tally)), show.legend = T)+  
  # 离散配色传入筛选后的breaks
  scale_fill_viridis_d(option="D", na.value = NA, breaks = show_levels)+
  facet_grid(~IO)+
  theme( strip.text.x = element_blank())

tt + guides(fill=guide_colorsteps(title=element_blank()))

breaks参数的作用就是定义需要在图例/坐标轴上展示的刻度，未被包含在breaks里的取值会正常映射颜色，仅不会在图例上展示对应的刻度和标签，完全符合需求。

内容的提问来源于stack exchange，提问作者H.Stevens