superponer - Alinee gráficos de ggplot2 verticalmente

superponer graficas en r ggplot

Question

Con el código que se encuentra en https://gist.github.com/low-decarie/5886616 Se puede generar un diagrama de mosaico de dendodograma dual:

dual_dendogram_tile_plot (as.matrix (USArrests), main = "Estados Unidos Arrests")

El problema: alinee el dendograma vertical con el área de trazado de la tesela. (y / o mejorar la alineación del dendograma horizontal)

Esta pregunta se relaciona con:

alineado a la izquierda dos bordes del gráfico (ggplot)
Especificar el ancho del panel de ggplot2 Trazar la matriz de correlación en un gráfico

Answer 1

Aquí hay un ejemplo para alinear más grobs básicos

library(ggplot2)
library(grid)
library(gtable)
p <- qplot(1,1)
g <- ggplotGrob(p)
panel_id <- g$layout[g$layout$name == "panel",c("t","l")]
g <- gtable_add_cols(g, unit(1,"cm"))
g <- gtable_add_grob(g, rectGrob(gp=gpar(fill="red")),
t = panel_id$t, l = ncol(g))
g <- gtable_add_rows(g, unit(1,"in"), 0)
g <- gtable_add_grob(g, rectGrob(gp=gpar(fill="blue")),
t = 1, l = panel_id$l)
grid.newpage()
grid.draw(g)

y con tus grobs