r - 使用 geom_bar 更改填充的图例形状大小

Question

这是我的可重现代码:

这是我希望我的实际身材看起来像的示例。

library(tidyverse)
p <- mtcars %>%
  mutate(cyl = factor(cyl)) %>%
  ggplot(aes(carb)) + 
  geom_bar(aes(fill = cyl)) +
  scale_fill_manual(values = c("Red","Green","Blue"))

结果图:

问题:

我要改的​​在图例里。描述直方图上条形颜色的方框太大，我想缩小尺寸。

尝试的解决方案:

我已经从另一个 stackoverflow question 尝试过这段代码它不起作用:

p <- p + guides(fill = guide_legend(override.aes = list(width = .5)))

在引用 stackoverflow 问题中，另一位用户建议制作一个虚拟的 geom_point 变量，然后使用该图例作为图例并删除填充图例。如果可能的话，我宁愿不必这样做。

谢谢你的帮助。

Answer 1

使用 legend.key.size(或 legend.key.height 和 legend.key.width)。例如，添加

theme(legend.key.size = unit(0.1, "cm"))

你的阴谋