垂直对齐 ggplot2 绘图

代码位于https://gist.github.com/low-decarie/5886616可以生成双树状图平铺图：

Dual_dendogram_tile_plot(as.matrix(USArrests), main="美国逮捕")

问题：将垂直树状图与图块绘图区域对齐。 （和/或改善水平树状图的对齐）

这个问题涉及：

左对齐两个图形边缘（ggplot）
指定 ggplot2 面板宽度 将相关矩阵绘制成图表

这是一个对齐更基本的 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)

和你的杂种