当然可以实现！要在ggplot2里复现这个标签居中的离散蓝色阶，我们可以结合自定义分段色阶和调整色标指南的设置来搞定，下面是具体步骤和代码示例：

1. 提取/定义匹配的蓝色系颜色 #

先从目标色阶中提取对应的蓝色调（或者用相近的蓝色系替代），这里我们用一组从浅到深的标准蓝色，和目标色阶视觉高度匹配：

blues <- c("#eff3ff", "#bdd7e7", "#6baed6", "#3182bd", "#08519c")

2. 使用分段色阶+居中标签的guide #

ggplot2的scale_fill_stepsn（或scale_color_stepsn）适合创建自定义分段的连续色阶，配合guide_colorsteps的label_position = "middle"参数，就能让标签精准显示在每个颜色块的中间，完全符合你的需求。

完整代码示例 #

library(ggplot2)

# 用mtcars数据集做演示，你可以替换成自己的业务数据
data(mtcars)

ggplot(mtcars, aes(x = wt, y = hp, fill = mpg)) +
  geom_point(size = 5, shape = 21, color = "white") + # 加白色边框让点更清晰
  # 自定义分段色阶
  scale_fill_stepsn(
    colors = blues,
    # 用分位数设置断点，将数值分成5个等区间（和目标色阶的分段数一致）
    breaks = quantile(mtcars$mpg, seq(0, 1, length.out = length(blues))),
    # 设置色标指南，让标签居中
    guide = guide_colorsteps(
      label_position = "middle",
      title = "MPG",
      barwidth = 12, # 按需调整色条宽度
      barheight = 0.4 # 按需调整色条高度
    )
  ) +
  theme_minimal() +
  labs(x = "Weight", y = "Horsepower")

关键细节说明 #

• 断点设置：上面用quantile实现了等数量的分段，如果你需要等间距的分段，可以手动设置断点，比如breaks = c(10, 15, 20, 25, 30, 35)，注意断点数量要比颜色数量多1个（n个颜色对应n个区间，需要n+1个断点）。
• 颜色匹配：如果需要完全和目标色阶一致，可以用取色工具提取图中的十六进制色值，替换blues向量里的颜色即可。
• 适配其他几何对象：如果是用geom_tile、geom_bar这类填充图形，只需要把fill映射对应到你的数值变量，色阶设置完全通用。

这个方案既解决了色阶匹配的问题，又完美实现了标签居中的离散色标效果，和你目标的可视化风格完全一致。

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