如何在R子图中添加茎叶图

Question

我想在一个图中有四个子图

其中一个是茎叶图

我的代码是这样的：

attach(mtcars)
par(mfrow=c(2,2))
hist(df, main="Histogram of df",breaks=10, xlab="birth weight (oz)", col="orange")
hist(df, main="Histogram of wt",prob = TRUE,breaks=50,xlab="birth weight (oz)", col="green")
boxplot(df, main="Boxplot",col = "yellow")
stem(data)

这给了我以下错误

＆＃34;以下对象从包＆＃34;

中被屏蔽

并且干线图在我的图中没有显示在最后一个子图中是空的

感谢您的帮助

Answer 1

您需要定义df的变量（假设它是一个数据框），您希望使用（例如）$符号进行绘制。此外，stem提供文本作为输出。您必须使用text()函数将其转换为绘图（请参阅How to output a stem and leaf plot as a plot）。

以下是使用mtcars数据集的示例：

par(mfrow=c(2,2))
hist(mtcars$cyl, col="orange")
hist(mtcars$mpg, col="green")
boxplot(mtcars$hp, main="Boxplot",col = "yellow")
plot.new()
tmp <- capture.output(stem(mtcars$drat))
text(0, 1, paste(tmp, collapse='\n'), adj=c(0,1), family='mono', cex=1) #you can adjust the size of the text using cex parameter