使用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"))

到你的情节