La buena noticia: puedo crear un hermoso mapa de árbol usando el paquete de mapa de árbol.

Datos:

forTm <- structure(list(
  UnitGroup = c("1N", "BHU", "CSU", "ED", "Med/Surg", "Med/Surg", "Telemetry", 
            "Telemetry", "Telemetry", "Telemetry", "Telemetry"), 
  Unit = c("A", "B", "C", "ED", "D", "E", "F", "G", "H", "I", "J"),
  Count = c(1L, 1L, 1L, 1L, 15L, 10L, 5L, 2L, 3L, 8L, 4L)), 
  class = c("data.frame"), 
  row.names = c(NA, -11L),
  .Names = c("UnitGroup", "Unit", "Count"))

Mapa de árbol:

library(treemap)
tm <- treemap(forTm,
          index = c("UnitGroup", "Unit"),
          vSize = "Count",
          vColor = "Count",
          type = "dens",
          palette = "YlGnBu",
          title = "# Patients Sample Title",
          aspRatio = (1.5),
          fontsize.labels = c(16, 12),
          fontsize.title = 16,
          bg.labels = "white",
          border.lwds = c(5,0))

El problema: la clase (tm) es una lista, y necesito trazar el mapa de árbol en una página con varios ggplots. Anticipo la necesidad de agregar / reorganizar las parcelas para el usuario final, por lo que me gustaría una solución relativamente flexible.

Objetivo: insertar el mapa de árbol en el siguiente panel:

#just stand-ins for the plots
samplePlot <- grid.rect(gp = gpar(fill = "grey")) 
treemapHere <- grid.rect(gp = gpar(fill = "blue")) 

grid.arrange(samplePlot, # plot 1
         treemapHere, # plot 2
         samplePlot, # plot 3
         layout_matrix = rbind(c(3, 2), c(1, 1)),
         top = textGrob("Sample Title", 
                        gp = gpar(margin = margin(10, 0, 10, 0))),
         heights = c(5, 5))

Pero la solución debe ser lo suficientemente flexible como para poder agregar / reorganizar fácilmente las parcelas, por ejemplo, de la siguiente manera:

grid.arrange(samplePlot, # plot 1
         samplePlot, # plot 2
         samplePlot, # plot 3
         samplePlot, # plot 4
         treemapHere, # plot5
         layout_matrix = rbind(c(1, 2, 3), 
                               c(4, 5, 5)),
         top = textGrob("Sample Title", 
                        gp = gpar(margin = margin(10, 0, 10, 0))),
         heights = c(5, 5))

Lo ideal sería encontrar una manera de recrear el mapa de árbol como ggplot, porque estoy muy familiarizado con la sintaxis de ggplot, por lo que sería fácil estandarizar el estilo de la hoja. Pero si no hay forma de hacerlo, aceptaré cualquier solución (¿guardar el mapa de árbol como un grob?) Que me permita reorganizar fácilmente este gráfico dentro de mi página de ggplots.

Lo que he probado hasta ahora: Sinceramente, no mucho. Google no ha sido mi amigo. La única recomendación que he encontrado es usar treemapify, que no puedo hacer para este proyecto en particular.