从R脚本创建Waffle图表时出现问题

Question

我正在测试R（https://github.com/hrbrmstr/waffle）中的Waffle包，我在Microsoft Windows 10下使用R版本3.2.2（32位），当我想从中绘制Waffle图表时遇到问题一个R脚本。

如果我直接从R控制台绘制Waffle图表，我绘制此图表时没有问题，只有当我从R脚本加载图表并且不显示时才会出现此问题。

这是我的R脚本上的代码：

library(waffle)
mm.counts <- c(12, 6, 8, 10, 6, 7)
names(mm.counts) <- c("blue", "brown", "green", "orange", "red", "yellow")
waffle(mm.counts, rows = 7, colors = names(mm.counts), title = "M&M Colors")

Answer 1

简单的解决方案是在脚本中显式打印图

> test.R

library(waffle)
mm.counts <- c(12, 6, 8, 10, 6, 7)
names(mm.counts) <- c("blue", "brown", "green", "orange", "red", "yellow")
wp <- waffle(mm.counts, rows = 7, colors = names(mm.counts), title = "M&M Colors")
print(wp)

然后调用脚本

source("test.R")

和voilà：