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

Posted 2021-05-06

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

其中一个是茎叶情节

我的代码是这样的：

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)

这给了我以下错误

“从包中屏蔽了以下对象”

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

谢谢你的帮助

答案

您需要使用（例如）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='
'), adj=c(0,1), family='mono', cex=1) #you can adjust the size of the text using cex parameter