优雅的方式来保存马赛克图？

Question

我的大部分情节都是用ggplot2制作的，ggsave命令将它们保存在一行的位置。但是，使用vcd包的马赛克图最适合我的数据。 问题：我没有收到包含以下代码的错误消息。 R说它已经保存了我的情节，但是保存的情节是我创建的最后一个ggplot情节，而不是我想要的马赛克情节。当然我可以手动保存在RStudio中，但我很确定有更好的方法。有什么想法吗？

Onlyaround <- subset(prepData, preposition=="around")
attach(Onlyaround)
mytable <- table(exp_group, session, result)
ftable(mytable)
mosaic(mytable, shade=TRUE, legend=TRUE, main = "Around by Group")
margin.table(mytable)
ggsave("pics/around_mosaic.png")
detach(Onlyaround) 

Answer 1

ggsave()实际上是保存ggplots的命令，所以毫不奇怪它不能保存你的马赛克图。保存图表的标准“R”方式可以正常工作：

jpeg("pics/around_mosaic.png")
mosaic(mytable, shade=TRUE, legend=TRUE, main = "Around by Group")
dev.off()