r - 在 R 华夫饼图中使图例符号小于默认值

Question

我有一个包含很多小方块的两部分华夫饼图，以及一个包含两个方块的图例。我想让所有这些正方形的大小相同。

GitHub 上有一个关于这个的问题，repo 所有者说由于 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, or shape，但这些论点都不适合我。

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

Answer 1

尝试设置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"))

输出：