从华夫饼图中删除空白方块

Question

我正在使用waffle包在R中制作华夫饼图。我有49个输入，不是偶数，因此在我的完美图表中出现了空白填充方块（请参见紫色/蓝色方块）。

以下是代码示例：

library('waffle')
basedata <- c(11,38)
names(basedata) <- c("Awsome", "Not Awsome")
waffle(basedata, rows = 2)

有什么办法可以去除空白填充方块吗？

- J Stewart

---

你目前尝试了什么？能分享一些你的研究吗？ - Derek Hopper

默认的调色板是 RColorBrewer::brewer.pal(n, 'Set2')，其中 n 是唯一颜色的数量，在您的情况下为 2。如果您尝试使用 RColorBrewer::brewer.pal(2, 'Set2')，则会收到警告，该组至少需要 3 种颜色，不知道为什么。您可以尝试 waffle::waffle(c(38, 11), 2, colors = RColorBrewer::brewer.pal(2, 'Set2')[1:2]) 或自己设置 两种 颜色。似乎包的作者应该预见到这样一个基本情况。 - rawr

设置两种自定义颜色成功了（但修改Brewer颜色没有成功）。谢谢！ - J Stewart

Answer 1

您不需要“涂白”填充物。这是waffle的已知奇怪行为。

只需传递两种颜色：

waffle(basedata, rows = 2, colors = c("blue", "red"))

- Roman

Answer 2

waffle(basedata, rows = 2, colors = c("blue", "green", "white"))

或者如果你想要将颜色匹配到原来的样式，可以在Color Brewer上查找颜色方案，并添加十六进制代码。

waffle(basedata, rows = 2, colors = c("#fb8072", "#8dd3c7", "white"))

另外，我假设“Awesome”这个词不是真正的内容，但如果它确实存在，请确保在单词中添加那个额外的“e”。

- jesstme

---

工作得非常好！感谢您提供的“棒极了”的帮助。 - J Stewart