Выровнять графики ggplot2 по вертикали

С кодом, найденным в https://gist.github.com/low-decarie/5886616 Можно создать двойной график плитки дендодограммы:

dual_dendogram_tile_plot (as.matrix(USArrests), main = "Аресты США" )

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

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

выровнять по левому краю два графа графа (ggplot)
Указание ширины панели ggplot2 Матрица корреляции сюжетов в график

Ответ 1

Вот пример, чтобы выровнять более основные грызуны,

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)

и с вашими гробками