Alinhar charts ggplot2 verticalmente

Com o código encontrado em https://gist.github.com/low-decarie/5886616 Um gráfico de tile de dendodograma duplo pode ser produzido:

dual_dendogram_tile_plot (as.matrix (USArrests), main = “Arrestes dos EUA”)

insira a descrição da imagem aqui

O problema: Alinhe o dendograma vertical com a área de plotagem. (e / ou melhorar o alinhamento do dendograma horizontal)

Esta questão refere-se a:

esquerda alinhar duas arestas do gráfico (ggplot)
Especificando a largura do painel ggplot2 Traçar a matriz de correlação em um gráfico

Aqui está um exemplo para alinhar grobs mais 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) 

insira a descrição da imagem aqui

e com seus grobs

insira a descrição da imagem aqui