r - 让foreach()和ggplot2相处融洽

Question

我有一组调查数据，我想生成一个特定变量的图，按受访者所在的国家分组。到目前为止，我编写的用于生成绘图的代码是:

countries <- isplit(drones, drones$v3)
foreach(country = countries) %dopar% {
  png(file = paste(output.exp, "/Histogram of Job Satisfaction in ", country$key[[1]], ".png", sep = ""))
  country.df <- data.frame(country)  #ggplot2 doesn't appreciate the lists nextElem() produces
  ggplot(country.df, aes(x = value.v51)) + geom_histogram()
  dev.off()
}

真正奇怪的事情？我可以运行isplit()，设置 country <- nextElem(countries)，然后在不发送foreach行的情况下运行代码-并获得漂亮的图。如果发送foreach，则会得到一些空白的.png文件。

在此先感谢您的帮助。

我绝对可以使用标准的R循环来做到这一点，但是我真的很想更好地了解 foreach。

Answer 1

如果要显示该图，则需要使用print:

print(ggplot(country.df, aes(x = value.v51)) + geom_histogram())

缺省情况下，ggplot命令返回一个图对象，但是该命令本身实际上并不显示该图。这是通过 print命令完成的。请注意，以交互方式运行代码时，将打印命令结果，这就是为什么您通常不需要显式打印的原因。但是，当包装在 foreach中时，由于主体中的命令结果将不会被回显，因此您需要显式打印。