如何将一个ggplot对象叠加到另一个ggplot的左中部并设置透明度？

要把Plot2作为独立图叠加到Plot1的左中部并设置透明度，推荐使用patchwork包的inset_element()函数——它能直接将完整的ggplot对象作为嵌入元素放置到目标图的指定位置，而非添加图层。具体实现步骤如下：

步骤1：安装并加载依赖包 #

# 未安装则先安装patchwork
if (!require(patchwork)) install.packages("patchwork")
library(patchwork)
library(ggplot2)

步骤2：调整Plot2的样式与透明度 #

给Plot2的直方图设置透明度，同时简化主题（去掉多余背景、边框），避免嵌入后遮挡Plot1内容过于突兀：

# 修改Plot2：设置柱子透明度，简化主题
Plot2 = ggplot(dat2) + 
  geom_histogram(aes(x = x), alpha = 0.6, fill = "steelblue", color = "white") + # alpha控制柱子透明度
  theme_minimal() +
  theme(
    plot.background = element_rect(fill = "transparent", color = NA), # 背景透明
    panel.background = element_rect(fill = "transparent", color = NA),
    axis.text = element_text(size = 8),
    axis.title = element_text(size = 9)
  )

步骤3：将Plot2嵌入Plot1的指定位置 #

使用inset_element()指定嵌入的相对位置（left/right/bottom/top取值0-1，对应目标图的边界），这里设置左中部位置：

# 组合图形：Plot1为主图，Plot2嵌入左中部
combined_plot = Plot1 +
  inset_element(
    p = Plot2,
    left = 0, right = 0.4, # 横向占主图左侧0到40%宽度
    bottom = 0.3, top = 0.8, # 纵向占主图30%到80%高度
    align_to = "panel" # 对齐到主图绘图面板而非整个画布
  )

# 查看最终效果
print(combined_plot)

补充说明 #

• 若要让整个Plot2（含背景）完全透明，除主题设置外，保存图形时可指定bg = "transparent"
• 调整left/right/bottom/top的数值可精确控制Plot2的位置和大小
• alpha参数取值0-1，数值越小透明度越高

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