r - 如何将茎叶图输出为图

Question

有没有办法将茎叶图输出到图形设备，例如window()/quartz() ?至少有两种方法可以在 R 中获取茎叶图:?stem ，在图形包中，以及 ?stem.leaf , 在 aplpack 包中。两者都将文本输出到控制台。例如:

> set.seed(1)
> stem(rbinom(10, size=10, prob=.5))

  The decimal point is at the |

  3 | 0
  4 | 000
  5 | 0
  6 | 00
  7 | 000

如果这可以方便地输出到图形设备，在那里它可以与多图形布局中的其他图(例如直方图)组合，和/或保存为 png 文件，那就太好了。我知道您可以输出 LaTeX 并将其编译为 pdf(例如，请参阅: Stem and Leaf from R into LaTeX )，但这不是很方便，也不是我真正想要的。有没有可以做到这一点的R函数？有没有简单的手工编码解决方案？

Answer 1

这是一个简单的例子:

plot.new()
tmp <- capture.output(stem(iris$Petal.Length))
text( 0,1, paste(tmp, collapse='\n'), adj=c(0,1), family='mono' )

如果你想叠加一个直方图，那么你可能想使用 text作用于 tmp 的每个元素而不是 paste ing。类似 strheight 的函数和 strwidth将有助于找到坐标。

gplots 和 plotrix 包中还有用于绘制文本和向绘图添加表格的函数(其他包中的其他函数也可能沿着这些线存在)。