如何在ggplot2的颜色图例中为第三维度添加直方图？

要给z变量的颜色图例搭配直方图，直观展示其相对频率，可以用**图形拼接工具（比如patchwork）**把散点图和z的直方图组合起来，同时保证两者颜色标尺一致，具体操作如下：

1. 加载所需依赖包：除了ggplot2，还需要patchwork用于图形拼接。
2. 分别绘制散点图和z的直方图，确保两者使用同一套颜色映射规则。
3. 调整图形布局，将直方图放在散点图旁，替代单独的图例展示，实现信息互补。

完整代码示例：

# 生成数据
x = c(rnorm(100, 2, 2), rnorm(100, -1, 3))
y = c(rnorm(100, -1, 3), rnorm(100, 2, 1))
z = c(rnorm(50, -2, 2), rnorm(100, 1, 1), rnorm(50, 3, 2))
d = data.frame(x, y, z)

# 加载依赖包
library(ggplot2)
library(patchwork)

# 绘制主散点图，先隐藏默认图例
p_scatter = ggplot(d, aes(x = x, y = y, color = z)) +
  geom_point() +
  scale_color_viridis_c() +
  theme(legend.position = "none")

# 绘制z的直方图，填充色与散点图颜色匹配
p_hist = ggplot(d, aes(x = z, fill = z)) +
  geom_histogram(alpha = 0.8, bins = 15, color = "white") +
  scale_fill_viridis_c(title = "z") +
  theme_minimal() +
  # 隐藏直方图的y轴元素，让布局更简洁贴合
  theme(axis.title.y = element_blank(),
        axis.text.y = element_blank(),
        axis.ticks.y = element_blank())

# 横向拼接图形，散点图占4份宽度，直方图占1份
p_scatter + p_hist + plot_layout(widths = c(4, 1))

这样处理后，直方图的颜色渐变和散点图完全对应，既能观察x-y维度的点分布，也能直观看到z变量的频率分布。如果需要纵向布局，只需把plot_layout(widths)参数替换为heights即可。

也可以用cowplot包的plot_grid函数实现类似拼接效果，核心思路都是保持颜色映射一致，用直方图补充图例的频率信息。

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