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

Question

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

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

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

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

выровнять по левому краю два ребра графа (ggplot)
Задание ширины панели ggplot2 Построить матрицу корреляции на графике

Answer 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)

и с твоими гробами

Answer 2

Ответ от @baptiste помог мне лучше понять структуру gt a ble и способы ее изменения. Ниже я публикую только мой измененный вариант в виде фрагмента кода для (моего) повторного использования.

Он использует find_panel() чтобы получить размер панели, а трубы %>% изменения непосредственно в grid.draw. Обвязка значительно упростила игру сgtable_* функций, так как это позволяет легко раскомментировать отдельные строки и проверить эффект на финальном графике.

library(ggplot2)
library(grid)
library(gtable)
library(dplyr)

p <- ggplot(tribble(~x,~y,~a,~b, 
                    1, 1, "a1","b1",
                    1, 1, "a2","b1",
                    1, 1, "a2","b2"), 
           aes(x=x,y=y)) + 
  geom_point() + 
  facet_grid(vars(a),vars(b))

g <- ggplotGrob(p)
panels_extent <- g %>% find_panel()
g %>%
  # Add red box to the very right, by appending a column and then filling it
  gtable_add_cols(widths = unit(1,"cm"), pos = -1) %>%
  gtable_add_grob(rectGrob(gp=gpar(fill="red")),
                  t = panels_extent$t, b = panels_extent$b,
                  l = -1, r = -1) %>%
  # Add green box to the top, by prepending a row and then filling it
  # Note the green box extends horizontally over the first panel as well 
  # as the space in between.
  gtable_add_rows(heights = unit(1,"cm"), pos = 0) %>%
  gtable_add_grob(rectGrob(gp=gpar(fill="green")),
                  t = 1, b = 1,
                  l = panels_extent$l, r = panels_extent$l+1) %>%
  {grid.newpage();grid.draw(.)}