R 将茎叶绘图输出到图像

我试图在R中输出茎叶图作为图像。我不确定是否有一个很好的库可以实现这一点，但下面是我尝试过的一些代码

jpeg(filename="stem.jpeg",width=480,height=480, units="px",pointsize=12)
plot.new()
tmp <- capture.output(stem(men, scale = 1, width = 40))
text( 0,1, paste(tmp, collapse='\n'), adj=c(0,1), family='mono' )
dev.off()    

这创建了图像，但其中没有内容

---

有什么想法吗？谢谢

这是因为茎叶图产生的是文本而不是图像。您可以使用

sink

命令将文本保存如下：

---

要将stemplot导出为图形，可以使用矢量图形格式，例如 例如.eps、.pdf或.emf。例如，windows图元文件：

win.metafile("stem.wmf", pointsize = 10)
plot.new()
tmp <- capture.output(stem(mtcars$mpg))
text(0,1,paste(tmp,collapse='\n'),family='mono',adj=c(0,1))
dev.off()

win.metafile（“stem.wmf”，pointsize=10）
plot.new（）
tmp所以没有办法将文本保存到图像中？然后您可以将.txt保存为图像。但我不知道有什么方法可以将干图保存为图像。
sink(file=“Stem.txt”)

stem(men, scale = 1, width = 40)

sink(file=NULL)
unlink("stem.txt")

win.metafile("stem.wmf", pointsize = 10)
plot.new()
tmp <- capture.output(stem(mtcars$mpg))
text(0,1,paste(tmp,collapse='\n'),family='mono',adj=c(0,1))
dev.off()