使图例符号小于R华夫饼图中的默认符号

问题描述

我有一个由两部分组成的华夫饼干图，上面有很多小方块，还有一个包含两个方块的图例。我想使所有这些正方形的大小都相同。

在GitHub上打开了一个issue，仓库的所有者说，由于waffle（）返回ggplot2对象，因此我们可以使用guide（）来实现。

我尝试搜索文档来做到这一点，并想到了

library(waffle)

phrase_count = 17345/10000
all_count = (22784085 - phrase_count)/10000

my_waffle = waffle(c("All"=all_count,"Phrases"=phrase_count),rows=43,size=0.6,colors=c("#969696","pink","white"),flip=TRUE)

my_waffle + guides(colour=guide_legend(override.aes = list(size=0.6)))

但这不会影响图例的大小。我见过人们使用color，colour或shape，但是这些参数都不适合我。

如何使图例中的正方形大小与情节本身中的正方形大小相同？

解决方法

尝试为您的图例键设置theme()，因为华夫饼对象来自ggplot2性质，如@Waldi的评论中所述：

#Code
my_waffle <- my_waffle + theme(legend.key.size = unit(3,"mm"))

输出：

或者也许是这样

#Code 2
my_waffle + theme(legend.key.height = unit(0.2,"cm"),legend.key.width = unit(0.3,"cm"))

输出：