R 从华夫格图表中删除空白方块

我正试图使用

waffle

包在R中制作一个华夫格图表。我没有偶数个条目（49个），在我的表格中有空白的填充方块 完美图表（见紫色/蓝色方块）

下面是一个代码示例：

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

library（'waffle'）
基础数据
或者，如果您想将颜色与它们的颜色相匹配，请在上查找颜色方案并添加十六进制代码

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

此外，我假设“Awesome”一词不包含在真实的东西中，但如果是，请确保在其中添加额外的“e”。）
 你不需要“涂白”填充物。这是
华夫饼干
的一种已知的奇怪行为

只需传递两种颜色：

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

到目前为止，您尝试了什么？你能分享你的一些研究成果吗？默认调色板是
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]）
或设置您自己的两种颜色。似乎包作者应该预见到这样一个基本的案例设置两种颜色的我自己的作品（但修改布鲁尔的颜色没有）。谢谢工作得很好！谢谢你的帮助。
waffle(basedata, rows = 2, colors = c("blue", "red"))