使用geom_bar调整填充图例的形状大小

我懂你头疼的点——直方图里代表条形颜色的图例框实在太大，破坏了整个图的协调性。你说试过Stack Overflow上的代码没生效，还有人建议用虚拟geom_point来做图例，那我给你一套实操性强的方案，顺着这个思路帮你搞定。

核心思路 #

本质是「替换图例生成源」：先把直方图自带的大图例隐藏，然后用一个小元素的图层（比如点）来生成尺寸可控的图例，再把颜色映射和直方图对齐，这样既能保留颜色区分，又能精准缩小图例框。

可复现代码示例 #

先模拟一个常见的直方图场景（你可以直接替换成自己的数据）：

library(ggplot2)

# 模拟测试数据
set.seed(123)
df <- data.frame(
  value = rnorm(1000),
  group = sample(c("对照组", "实验组"), 1000, replace = TRUE)
)

# 原始代码（会出现大图例框）
# ggplot(df, aes(x = value, fill = group)) +
#   geom_histogram(position = "dodge", bins = 20) +
#   theme_minimal()

接下来是调整后的代码，完美解决图例框过大问题：

ggplot(df, aes(x = value, fill = group)) +
  # 第一步：画直方图，但隐藏自带的大图例
  geom_histogram(position = "dodge", bins = 20, show.legend = FALSE) +
  # 第二步：添加虚拟点图层，用来生成小尺寸图例
  geom_point(aes(color = group), 
             data = df[1:2,],  # 只取两组各一条数据，生成两个点
             size = 2) +  # 控制点的大小，间接决定图例框的基础尺寸
  # 第三步：统一填充色和点的颜色，保证图例和直方图颜色匹配
  scale_fill_manual(values = c("对照组" = "#2E86AB", "实验组" = "#F24C4C")) +
  scale_color_manual(values = c("对照组" = "#2E86AB", "实验组" = "#F24C4C")) +
  # 第四步：精细化调整图例外观
  theme_minimal() +
  theme(
    legend.key.size = unit(0.4, "cm"),  # 直接缩小图例框的尺寸，可按需修改
    legend.title = element_text(size = 10),
    legend.text = element_text(size = 8)
  )

关键细节说明 #

1. 隐藏默认图例：通过show.legend = FALSE让直方图不再生成那个大得离谱的图例框。
2. 虚拟点的作用：点的尺寸很小，生成的图例框自然也小，再配合legend.key.size可以精准控制到你想要的大小。
3. 颜色统一：必须保证填充色和点的颜色完全一致，不然图例颜色和直方图会对不上。
4. 灵活调整：如果觉得图例还是大，就把unit(0.4, "cm")改成更小的数值，比如0.3cm；点的size也可以微调，配合着来效果更好。

这个方法适配绝大多数ggplot2的直方图场景，你只需要把数据和颜色替换成自己的就行。

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