r - 如何更改 R 华夫饼图中 "tile grout"的颜色以匹配背景

Question

我正在尝试制作华夫饼图以使用暗模式。这涉及更改瓷砖灌浆的背景颜色和颜色。我不知道如何做瓷砖灌浆。
我无法执行任何正常操作来更改颜色:

counts <- c(a = 701, b = 1094, c = 1756)
waffle(counts, 
   rows=50,
   size=0.75,
   legend_pos="bottom") + theme(legend.key.size=unit(3, "mm"),
                                rect=element_rect(fill='black',
                                                  color='black'),
                                plot.background=element_rect(fill='black'),
                                strip.background = element_rect(colour=NA, fill=NA),
                                panel.background=element_rect(fill='black', color='black'))

有一个 pull request这样做，但制作它的人删除了它。似乎颜色被设置为每个图块的边距颜色，因为如果你增加华夫饼函数参数 size至 size=0 ，你没有瓷砖灌浆:

如何让瓷砖灌浆与背景一样黑？

Answer 1

这看起来很hacky，但是您可以在ggplot 中编辑您需要的内容。打印前的对象。

library('waffle')
counts <- c(a = 701, b = 1094, c = 1756)
x <- waffle(counts, 
       rows=50,
       size=0.75,
       legend_pos="bottom") + theme(legend.key.size=unit(3, "mm"),
                                    rect=element_rect(fill='black',
                                                      color='black'),
                                    plot.background=element_rect(fill='black'),
                                    strip.background = element_rect(colour=NA, fill=NA),
                                    panel.background=element_rect(fill='black', color='black'))

x$layers[[1]]$aes_params$colour <- 'black'
x

更“ggplot 方式”将类似于编辑/替换图层:

x %+replace% geom_tile(inherit.aes = TRUE, color = 'black')

但这不起作用。我不确定您是否可以在不弄乱订单的情况下就地替换图层。但这基本上就是黑客所做的。