Align ggplot2 участки вертикально

Question

С кодом найдены на https://gist.github.com/low-decarie/5886616 Двойной dendodogram плитки участок может быть получен:

dual_dendogram_tile_plot (as.matrix (USArrests), главное = "США Аресты")

Проблема: выровняйте вертикальную дендограмму с областью участка плитки. (и/или улучшить выравнивание по горизонтали dendogram)

Этот вопрос относится к:

left align two graph edges (ggplot)
Specifying ggplot2 panel width Plot correlation matrix into a graph

Answer 1

Вот пример для выравнивания более основных grobs,

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) 

и с grobs