主页 / coding / 问题 / 79597886
Accepted
Daniel Lobo
Asked: 2025-04-29 16:03:05 +0800 CST

将一个 ggplot 叠加到另一个 ggplot 上

  • 772

我有ggplot如下两个对象。

library(ggplot2)

set.seed(1)
dat1 = data.frame(x = rnorm(1000), y = rnorm(1000))
dat2 = data.frame(x = rt(5000, 2))

Plot1 = ggplot(data = dat1, aes(x = x, y = y)) + geom_point()
Plot2 = ggplot(dat2) + geom_histogram(aes(x = x))

现在我想在 的左中部分Plot2叠加。所需的输出Plot1Plot1

在此处输入图片描述

为了获得更好的可见性，我还希望具有一定的透明度，Plot2以便Plot1在重叠区域不会完全被掩盖。

有什么方法可以实现吗？我在网上搜索了相关信息，但似乎都提到了添加图层。我的最终绘图结果与单纯添加图层的结果不同。

2 个回答

  1. 正如已删除的答案中所部分建议的那样，我们可以使用patchwork::inset_element()它。

    library(patchwork)
Plot2 = ggplot(dat2) + geom_histogram(aes(x = x)) +
  theme_bw() +
  theme(
    plot.background = element_rect(fill = "#ffffffaa"),
    panel.background = element_rect(fill = "#ffffffaa"),
    axis.title = element_blank(),
    axis.text = element_blank(),
    axis.ticks = element_blank()
)
Plot1 + inset_element(Plot2, 0, 0.2, 0.3, 0.7)

    两个图，一个作为另一个的插图重叠

    我使用了fill="#ffffffaa"，虽然"transparent"提供了完全的透明度。

    • 3
  2. Best Answer

    在额外要求之后进行编辑您可以使用cowplot::ggdraw将 plot2-grob 叠加在 plot1 上，使用标准化设备坐标 [0,1] 将其定位在 plot 1 内 + 使用将背景设置为半透明panel.background = element_rect(fill = alpha('#D3D3D3', 0.6)

    • 可以使用以下代码在 plot2 主题中定义绘图边距
    • 如果您想将更多绘图元素设置为透明，请检查一下（例如隐藏网格panel.grid = element_blank()）
    library(ggplot2)
library(cowplot)

set.seed(1)
dat1 = data.frame(x = rnorm(1000), y = rnorm(1000))
dat2 = data.frame(x = rt(5000, 2))

Plot1 = ggplot(data = dat1, aes(x = x, y = y)) + geom_point() +
  theme(plot.background = element_rect(fill='transparent', color="black"))

Plot2 = ggplot(dat2) + geom_histogram(aes(x = x)) + 
  theme(
    # add half-transparent background
    panel.background = element_rect(fill = alpha('#D3D3D3', 0.5)), 
    #                                       add border color and      linewidth if needed
    plot.background = element_rect(fill='transparent', color="black", linewidth=1)
  )

ggdraw() +
  draw_plot(Plot1) +
  draw_plot(Plot2, x = 0.05, y = 0.3, width = 0.4, height = 0.4)
# Adjust x,y,width,height as relatives of plot 1 dimensions
# here i set the width of Plot 2 to be 40 % of Plot 1's width

    给予

    出去

    • 2

相关问题