Início / coding / Perguntas / 79597886
Accepted
Daniel Lobo
Asked: 2025-04-29 16:03:05 +0800 CST

Sobrepor um ggplot em outro

  • 772

Tenho dois ggplotobjetos como abaixo.

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))

Agora eu gostaria de sobrepor Plot2na Plot1parte central esquerda de Plot1. Saída desejada

insira a descrição da imagem aqui

Para melhor visibilidade, também desejo ter alguma transparência Plot2para que Plot1não fique completamente mascarado na região de sobreposição.

Existe alguma maneira de fazer isso? Pesquisei informações relevantes na internet, mas todas parecem se referir à adição de camadas. Meu gráfico final será diferente de apenas adicionar camadas.

2 respostas

  1. Conforme parcialmente sugerido em uma resposta já excluída, podemos usar patchwork::inset_element()para isso.

    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)

    dois gráficos, um sobreposto como uma inserção do outro

    Eu usei fill="#ffffffaa", mas "transparent"dá transparência total.

    • 3
  2. Best Answer

    Editar após requisitos extras Você pode usar cowplot::ggdrawpara sobrepor o plot2-grob sobre o plot1 posicionando-o dentro do plot 1 usando coordenadas de dispositivo normalizadas [0,1] + definindo o fundo como semitransparente usandopanel.background = element_rect(fill = alpha('#D3D3D3', 0.6)

    • as margens do gráfico podem ser definidas dentro do tema do plot2 usando isto
    • se você quiser definir mais elementos do gráfico como transparentes, verifique isto (por exemplo, ocultando as grades 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

    dando

    fora

    • 2

relate perguntas