RMarkdown输出PDF时，如何调整6个散点子图的高度？

方案1：调整代码块尺寸+基础绘图参数优化 #

直接在RMarkdown代码块中指定图形整体高度和宽度，同时缩小子图边距、优化文字与坐标轴布局，释放更多空间给绘图区域：

```{r, fig.height=10, fig.width=8}
# 设置3行2列布局，减小边距、拉近坐标轴标签、缩小文字比例
par(mfrow=c(3,2), mar=c(3,3,2,1), mgp=c(2,0.5,0), cex=0.8)

# 依次绘制6个散点图（替换为你的真实数据）
plot(1:10, 1:10, main="子图1", xlab="X轴", ylab="Y轴")
plot(1:10, 10:1, main="子图2", xlab="X轴", ylab="Y轴")
plot(1:10, rnorm(10), main="子图3", xlab="X轴", ylab="Y轴")
plot(1:10, rnorm(10), main="子图4", xlab="X轴", ylab="Y轴")
plot(1:10, rnorm(10), main="子图5", xlab="X轴", ylab="Y轴")
plot(1:10, rnorm(10), main="子图6", xlab="X轴", ylab="Y轴")

参数说明：
- `fig.height=10`：增大整体图形高度，给3行子图预留足够垂直空间
- `mar=c(3,3,2,1)`：大幅缩小子图的上下左右边距（默认边距为`c(5,4,4,2)+0.1`）
- `mgp=c(2,0.5,0)`：拉近坐标轴标签与轴线的距离，避免占用过多空间
- `cex=0.8`：缩小整体文字比例，防止文字溢出子图区域

## 方案2：用ggplot2分面功能（更省心）
如果数据是长格式，使用ggplot2的`facet_wrap`自动布局子图，配合主题参数优化显示效果：

```r
```{r, fig.height=10, fig.width=8}
library(ggplot2)

# 构造长格式示例数据（替换为你的真实数据）
df <- data.frame(
  x = rep(1:10, 6),
  y = c(1:10, 10:1, rnorm(10), rnorm(10), rnorm(10), rnorm(10)),
  group = rep(paste0("子图", 1:6), each=10)
)

ggplot(df, aes(x, y)) +
  geom_point(size=1) +
  facet_wrap(~group, nrow=3, ncol=2) + # 指定3行2列分面
  theme_bw() +
  theme(
    panel.spacing = unit(0.5, "lines"), # 调整子图间间距
    axis.text = element_text(size=8), # 缩小坐标轴文字
    axis.title = element_text(size=9), # 调整坐标轴标题大小
    strip.text = element_text(size=9) # 调整子图标题大小
  )

这种方法无需手动调整布局参数，ggplot会根据整体图形尺寸自动分配子图空间，样式更统一。

## 方案3：全局设置PDF输出的图形尺寸
如果单代码块设置仍出现"figure region too large"错误，可在RMarkdown的YAML头部全局指定PDF输出的默认图形尺寸，避免局部与全局参数冲突：

```yaml
---
title: "你的文档标题"
output:
  pdf_document:
    fig_height: 10
    fig_width: 8
---

之后再配合方案1或方案2的代码即可解决问题。

补充注意事项 #

• 不要同时混用layout()、par(mfrow)和ggplot2分面，会导致布局混乱
• 使用基础绘图时，若之前有残留布局参数，可先用par(mfrow=c(1,1))重置

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