with - the r gallery



Treemap in ggplot konvertieren (1)

Was, wenn Sie die Treemap mit ggplot Schritt für Schritt rekonstruieren? Z.B

library(tidyverse)
treemapHere <- ggplot(tm$tm, 
   aes(xmin=x0+w, xmax=x0, ymin=y0+h, ymax=y0, fill=ifelse(level==1, NA, color), fill = vSize)) + 
  scale_fill_identity() + 
  geom_rect(aes( size=I((2:1)[level])), color="#303030") + 
  coord_fixed(0.75) + 
  guides(size="none") + 
  cowplot::theme_nothing() + 
  geom_text(aes(x0+w/2, y0+h/2, label=Unit, size=I(scales::rescale(vSize, c(2.5, 3))))) + 
  geom_label(aes(x, y, label=UnitGroup, size=I(scales::rescale(vSize, c(2.5, 7)))), tm$tm %>% group_by(UnitGroup) %>% summarise(x=mean(x0+w/2), y=mean(y0+h/2), vSize=mean(vSize)), inherit.aes=F, fill="white", fontface = "bold")

library(grid)
library(gridExtra)
samplePlot <- grid.rect(gp = gpar(fill = "grey"))   
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))

Die gute Nachricht: Ich kann mit dem Treemap-Paket eine schöne Treemap erstellen.

Daten:

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

Treemap:

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

Das Problem: class (tm) ist eine Liste, und ich muss die Treemap auf einer Seite mit mehreren ggplots darstellen. Ich erwarte, dass ich die Plots für den Endbenutzer hinzufügen / neu anordnen muss, also möchte ich eine relativ flexible Lösung.

Ziel: Treemap in das folgende Dashboard einfügen:

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

Aber die Lösung muss flexibel genug sein, dass ich die Plots einfach hinzufügen / neu anordnen kann, zum Beispiel wie folgt:

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

Im Idealfall würde ich die Baumkarte als ggplot erstellen, da ich die Syntax von ggplot sehr gut kenne, so dass es mir leicht fällt, den Stil des Blattes zu standardisieren. Aber wenn es keine Möglichkeit gibt, das zu tun, werde ich jede Lösung akzeptieren (die Treemap als Grob speichern?), Die es mir erlaubt, dieses Diagramm auf meiner Seite von ggplots einfach neu anzuordnen.

Was ich bisher versucht habe: Ehrlich, nicht viel. Google war nicht mein Freund. Die einzige Empfehlung, die ich gefunden habe, ist Treemapify zu verwenden, was ich für dieses spezielle Projekt nicht tun kann.





treemap