使用汽车包中的散点图绘制并排图

是否有某种原因无法并排放置两个散点图（来自汽车包装）图形？

library(car)

str(UN)

par(mfrow=c(1,2))
scatterplot(infant.mortality~gdp,data=UN,
            xlab="GDP per capita",
            ylab="Infant Morality Rate (per 1000 births)",
            main="(a)",
            boxplot=FALSE)
scatterplot(infant.mortality~gdp,data=UN,
            xlab="GDP per capita",
            ylab="Infant Morality Rate (per 1000 births)",
            main="(b)",
            log='xy',
            boxplot=FALSE,id.n=4)
par(mfrow=c(1,1))

上面的代码生成两个图像，但不是并排生成一个图像。

The scatterplot函数会覆盖你的par()配置，因为它内部调用layout()函数显示散点图以及边缘箱线图。

该函数的创建者 John Fox 已经回答了这个问题。你可以看到他在 R-help 邮件列表中的回答 https://stat.ethz.ch/pipermail/r-help/2010-February/229304.html.

或者，如果你不信任他，你可以并搜索layout。你会发现if - else if - else if - else句子，其中layout()在所有情况下都会调用函数。