如何输出茎叶图作为图

Question

有没有办法将茎和叶图输出到图形设备,例如window()/ quartz()？至少有两种方式获取茎叶图中R: ？干,在图形包,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和Leaf从R到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而不是pasteing 上使用该函数.函数strheight和strwidth查找坐标一样有用.

gplots和plotrix包中还有一些函数用于绘制文本和将表添加到绘图中(其他包中的其他函数也可能存在于这些行中).