R语言同一页面绘制双图问题：使用par(mfrow=c(2,1))仅显示散点图

嗨，这个问题我碰到过好多次！核心原因是你搞混了R里两种绘图系统的布局逻辑：

你用的par(mfrow=c(2,1))是基础绘图系统的布局参数，但你的p（条形图）和s（散点图）应该是用ggplot2包生成的图形对象对吧？ggplot2有自己独立的布局系统，完全不兼容基础绘图的par()设置，所以当你先后调用p和s时，只会渲染最后一个调用的图形。

给你两种简单靠谱的解决方案：

方案1：用gridExtra包的grid.arrange() #

这是比较经典的多图拼接方法：

• 先安装并加载包：

  install.packages("gridExtra")
  library(gridExtra)
  

• 然后用一行代码拼接两个图：

  grid.arrange(p, s, nrow = 2)
  

nrow=2指定上下排列两行，正好对应你想要的2行1列布局。

方案2：用patchwork包（更简洁现代） #

如果想体验更丝滑的语法，推荐用patchwork，它专门为ggplot2的多图拼接设计：

• 安装加载包：

  install.packages("patchwork")
  library(patchwork)
  

• 拼接只需要一个斜杠：

  p / s
  

斜杠/代表上下拼接，要是想左右拼就用+，是不是超简单？

另外补充一句：如果你是用基础绘图函数（比如plot()画散点，barplot()画条形），那par(mfrow=c(2,1))是有效的，但必须先设置par，再依次调用绘图函数，而不是调用预先生成的对象。比如：

par(mfrow=c(2,1))
barplot(...)  # 先画条形图
plot(...)     # 再画散点图

这样两个图就会正常显示在同一页面了。

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