Question

我试图在R中输出一个Stem and Leaf图作为图像。我不确定是否有一个可以实现此目的的好库，但下面是我尝试过的一些代码。

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()

输出词干和叶图到图像

2 个答案: