如何使用点的颜色填充geom_point图例中的框,而不仅仅是增加它们的大小？

Question

我有类似的问题,如"2-有两个传说......"中所述,但不是增加点大小(最终也扩大了图例本身),我想填写每个框中的具有相应颜色的图例.就像酒吧情节的传奇一样.这里有数据和代码示例.

通过这里查看其他几个问题,ggplot文档等,我尝试了我发现的代码片段的变体,但无法找到解决方案.图例始终保留点符号.

因此:如果可能,如何调整或替换点/散点/气泡图的图例,使其看起来像条形图的图例？或者,更一般地说,如何将ggplot2中给定geom的图例替换为另一个geom的图例？谢谢你的任何提示!

编辑:使用mtcars数据的示例

library(ggplot2)
p <- ggplot(mtcars, aes(wt, mpg)) + geom_point(aes(colour = factor(cyl), size = qsec))
p

添加我从其他SO-answers收集的内容......

p <- p + guides(colour = guide_legend(override.aes = list(fill = unique(mtcars$cyl))))
p

...保留点,而不是扩展颜色以填充图例框,无论我尝试使用guide()和list()的参数和数据源.

另一方面:

ggplot(mtcars, aes(wt, mpg)) + geom_bar(aes(fill = factor(cyl)), stat="identity")

...在图例中绘制出色彩丰富的盒子.这就是我想要为泡沫情节做的事情.

Answer 1

您将无法获得一个fill类型的图例,但您可以轻松地模拟它:

ggplot(mtcars, aes(wt, mpg)) + 
  geom_point(aes(colour = factor(cyl), size = qsec)) + 
  guides(col = guide_legend(override.aes = list(shape = 15, size = 10)))