如何在R中合并两张独立绘制的密度图

要把你创建的两张独立ggplot密度图合并成一张，最推荐的方法是使用patchwork包——它是专门为组合ggplot对象设计的工具，语法简洁直观，能轻松实现各种布局。

步骤1：安装并加载patchwork包 #

如果你还没安装过这个包，先执行安装命令：

install.packages("patchwork")

之后加载包：

library(patchwork)

步骤2：合并两张图 #

patchwork支持用简单的符号来控制布局：

• 用|实现左右并排布局
• 用/实现上下堆叠布局

示例1：左右并排展示

# 合并两张图并添加整体标题
combined_plot <- dens_plot_sales | dens_plot_costs
combined_plot + plot_annotation(
  title = "Density Plots: Total Sales vs Total Costs by Firm Size",
  theme = theme(plot.title = element_text(hjust = 0.5, size = 14))
)

示例2：上下堆叠展示

combined_plot <- dens_plot_sales / dens_plot_costs
# 同样可以添加整体标题
combined_plot + plot_annotation(title = "Density Analysis of Sales and Costs", theme = theme(plot.title = element_text(hjust = 0.5)))

备选方案：使用gridExtra包 #

如果你更习惯用gridExtra，也可以用grid.arrange()函数实现：

# 先安装加载包
install.packages("gridExtra")
library(gridExtra)

# 左右排列（ncol=2），上下排列则用nrow=2
grid.arrange(dens_plot_sales, dens_plot_costs, ncol = 2, top = "Sales & Costs Density by Firm Size")

两种方法都能完美实现你的需求，其中patchwork的语法更贴近ggplot的风格，也更灵活调整细节布局。

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