如何用R/Sweave/Latex在一页平铺4个ggplot图及解决单图缩放对齐问题

一、单图缩放与对齐的优化 #

你当前用\vspace*{-35mm}硬调间距的方式兼容性差，换用以下两种更可靠的方法：

方法1：通过Sweave代码块参数控制 #

直接在代码块中设置绘图尺寸与输出宽度，配合LaTeX原生对齐逻辑：

\begin{figure}[htbp]
\centering
<<echo=FALSE, fig=TRUE, width=6, height=4, out.width="0.8\\linewidth">>=
# DisPlot为你的ggplot对象
DisPlot
@
\caption{Test caption}
\label{fig:Test}
\end{figure}

• width/height：控制R中绘图的基础尺寸（单位：英寸）
• out.width：用页面宽度比例（\linewidth）定义LaTeX中图片的显示宽度，避免硬编码数值
• 移除手动\vspace，让LaTeX自动处理图题间距

方法2：在ggplot内部调整主题 #

若对齐问题来自绘图元素（如边距、标题），通过theme()精细调整：

DisPlot +
  theme(
    plot.margin = margin(0.5, 0.5, 0.5, 0.5, "cm"), # 调整绘图区域边距
    plot.title = element_text(hjust = 0.5) # 强制标题居中
  )

二、一页平铺4个图的最优实现 #

推荐两种主流方案，按需选择：

方案1：用ggplot的patchwork包拼接（灵活可控） #

patchwork是专门组合ggplot的工具，语法简洁且功能强大：

1. 先在R中安装加载包：

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

2. 在Sweave中组合绘图：

\begin{figure}[htbp]
\centering
<<echo=FALSE, fig=TRUE, width=8, height=6, out.width="\\linewidth">>=
# 假设p1-p4为你的4个ggplot对象
combined_plot <- p1 + p2 + p3 + p4 +
  plot_layout(ncol = 2, nrow = 2) + # 设置2行2列布局
  plot_annotation(tag_levels = 'A') # 给子图添加A/B/C/D标签
combined_plot
@
\caption{4个ggplot图的平铺展示}
\label{fig:four_plots}
\end{figure}

• plot_layout可自定义行列比例（如widths = c(2,1)让第一列宽度为第二列2倍）
• plot_annotation可统一添加标题、调整子图标签样式

方案2：用LaTeX的subfig子图环境（纯LaTeX控制） #

若习惯用LaTeX管理子图，使用subfig包：

1. 在LaTeX导言区加载包：

\usepackage{subfig}

2. 编写子图代码：

\begin{figure}[htbp]
\centering
\subfloat[子图1标题]{
  <<echo=FALSE, fig=TRUE, width=4, height=3, out.width="0.45\\linewidth">>=
  p1
  @
}
\hfill
\subfloat[子图2标题]{
  <<echo=FALSE, fig=TRUE, width=4, height=3, out.width="0.45\\linewidth">>=
  p2
  @
}
\\
\subfloat[子图3标题]{
  <<echo=FALSE, fig=TRUE, width=4, height=3, out.width="0.45\\linewidth">>=
  p3
  @
}
\hfill
\subfloat[子图4标题]{
  <<echo=FALSE, fig=TRUE, width=4, height=3, out.width="0.45\\linewidth">>=
  p4
  @
}
\caption{4个ggplot图的平铺展示}
\label{fig:four_plots}
\end{figure}

• \hfill自动分配子图间距，实现均匀分布
• 0.45\\linewidth确保两行子图均不超出页面宽度

注意事项 #

• 避免同时混用R绘图参数与LaTeX硬编码间距，易导致布局冲突
• 编译时优先运行Sweave生成.tex文件，再用pdflatex编译，推荐使用RStudio一键编译功能
• 若图片截断，检查height参数是否合理，或调整figure环境位置参数（如[htbp]）

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