将茎叶图输出到图像

Question

我正在尝试将 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()    

上面的代码导致数据被保存，但它看起来很模糊，而且情节被截断得很严重。 向图像添加直方图时，R 似乎可以很好地缩放所有内容以适应图像的大小。

jpeg(filename="stem.jpeg",width=480,height=480,
     units="px",pointsize=12)
stem(men, scale = 1, width = 40)
dev.off()     

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

有任何想法吗？ 谢谢！

Answer 1

那是因为茎叶图生成文本而不是图像。 您可以使用sink命令将文本保存如下： http : //stat.ethz.ch/R-manual/R-devel/library/base/html/sink.html

sink(file=“Stem.txt”)

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

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

Answer 2

要将茎图导出为图形，您可以使用矢量图形格式，例如 .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()