求助：R中使用car包scatterplot()合并散点图失效问题

我之前也碰到过一模一样的问题！其实核心原因是car包的scatterplot()函数默认会在绘图完成后重置你的绘图参数——这是由它的默认参数reset.par=TRUE控制的，所以你提前用par(mfrow)设置的2x2布局会被直接覆盖，导致每个图都单独弹出显示。

最直接的解决方案：阻止参数重置 #

只需要在每个scatterplot()调用里加上reset.par=FALSE参数，就能保留你之前设置的布局。修改后的代码如下：

par(mfrow=c(2,2), oma=c(1,1,2,1), mar=c(4,4,0,1), cex.lab=1, cex.axis=0.8)
scatterplot(mpg ~ disp, data=mtcars, smooth=F, boxplots=F, xlab="", ylab="mpg", grid=F, reset.par=FALSE)
scatterplot(mpg ~ wt, data=mtcars, smooth=F, boxplots=F, xlab="", ylab="", grid=F, reset.par=FALSE)
scatterplot(hp ~ disp, data=mtcars, smooth=F, boxplots=F, xlab="hp", ylab="mpg", grid=F, reset.par=FALSE)
scatterplot(hp ~ wt, data=mtcars, smooth=F, boxplots=F, xlab="Weight", ylab="", grid=F, reset.par=FALSE)
# 绘图完成后记得手动重置par，避免影响后续绘图
par(mfrow=c(1,1))

这个方法完全贴合你原本的代码逻辑，不用额外安装包，推荐优先尝试。

备选方案：用gridExtra包组合独立绘图 #

如果你想更灵活地控制图形布局，可以用gridExtra包来组合每个独立的散点图：

# 先安装包（如果没安装过的话）
# install.packages("gridExtra")
library(gridExtra)

# 逐个捕获散点图
plot1 <- recordPlot({
  scatterplot(mpg ~ disp, data=mtcars, smooth=F, boxplots=F, xlab="", ylab="mpg", grid=F)
})
plot2 <- recordPlot({
  scatterplot(mpg ~ wt, data=mtcars, smooth=F, boxplots=F, xlab="", ylab="", grid=F)
})
plot3 <- recordPlot({
  scatterplot(hp ~ disp, data=mtcars, smooth=F, boxplots=F, xlab="hp", ylab="mpg", grid=F)
})
plot4 <- recordPlot({
  scatterplot(hp ~ wt, data=mtcars, smooth=F, boxplots=F, xlab="Weight", ylab="", grid=F)
})

# 组合成2x2布局
grid.arrange(plot1, plot2, plot3, plot4, ncol=2, nrow=2)

内容的提问来源于stack exchange，提问作者Pseudotriton