保存马赛克图的优雅方式?

Elegant way to save mosaic plots?

我的大部分绘图都是用 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) 

ggsave() 实际上是保存 ggplots 的命令,所以它不保存马赛克图也就不足为奇了。保存绘图的标准 'R' 方法可以正常工作:

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