Running ‘testthat.R’ [50s/53s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(superheat)
  > 
  > test_check("superheat")
  ── 1. Failure: all scatterplot plot options work (@test-aesthetics.R#7)  ───────
  NOT(success)
  
  ── 2. Failure: all scatterplot plot options work (@test-aesthetics.R#10)  ──────
  NOT(success)
  
  ── 3. Failure: all scatterplot plot options work (@test-aesthetics.R#13)  ──────
  NOT(success)
  
  ── 4. Failure: all scatterplot plot options work (@test-aesthetics.R#17)  ──────
  NOT(success)
  
  ── 5. Failure: all scatterplot plot options work (@test-aesthetics.R#22)  ──────
  NOT(success)
  
  ── 6. Failure: all scatterplot plot options work (@test-aesthetics.R#26)  ──────
  NOT(success)
  
  ── 7. Failure: all scatterplot plot options work (@test-aesthetics.R#30)  ──────
  NOT(success)
  
  ── 8. Failure: all scatterplot plot options work (@test-aesthetics.R#34)  ──────
  NOT(success)
  
  ── 9. Failure: Clustered additional plots and unclustered plot options are corre
  NOT(success)
  
  ── 10. Failure: Clustered additional plots and unclustered plot options are corr
  NOT(success)
  
  ── 11. Failure: Clustered additional plots and unclustered plot options are corr
  NOT(success)
  
  ── 12. Failure: Clustered additional plots and unclustered plot options are corr
  NOT(success)
  
  ── 13. Failure: Clustered additional plots and unclustered plot options are corr
  NOT(success)
  
  ── 14. Failure: Clustered additional plots and unclustered plot options are corr
  NOT(success)
  
  ── 15. Failure: Clustered additional plots and unclustered plot options are corr
  NOT(success)
  
  ── 16. Failure: Clustered additional plots and unclustered plot options are corr
  NOT(success)
  
  ── 17. Failure: Clustered additional plots and unclustered plot options are corr
  NOT(success)
  
  ── 18. Failure: Clustered additional plots and unclustered plot options are corr
  NOT(success)
  
  ── 19. Error: no warning on default (@test-labels.R#11)  ───────────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: superheat(X) at testthat/test-labels.R:11
  2: do.call(generate_grobs, grob.arg.list)
  3: (function (layout, gg.top = NULL, gg.right = NULL, gg.bottom = NULL, gg.left = NULL, 
         gg.legend = NULL, gg.title = NULL, gg.row.title = NULL, gg.column.title = NULL, 
         row.dendrogram = F, col.dendrogram = F, yt.axis = T, yr.axis = T, yt.axis.name = T, 
         yr.axis.name = T, padding = 1, bottom.label.size = 0.1, left.label.size = 0.1) 
     {
         if (row.dendrogram) {
             yr.axis <- F
         }
         if (col.dendrogram) {
             yt.axis <- F
         }
         if (!is.null(gg.legend)) {
             t <- nrow(layout)
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
                 pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.right)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yr.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "axis-b", trim = TRUE, fixed = TRUE), t = (t + 1), l = l)
             }
             if (yr.axis && !is.null(yr.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "xlab", trim = TRUE, fixed = TRUE), t = (t + 2), l = l)
             }
         }
         if (!is.null(gg.top)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yt.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "axis-l", trim = TRUE, fixed = TRUE), t = t, l = (l - 1))
             }
             if (yt.axis & !is.null(yt.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "ylab", trim = TRUE, fixed = TRUE), t = t, l = (l - 2))
             }
         }
         if (!is.null(gg.left)) {
             t <- 1
             l <- 1
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if ((left.label.size <= 0.2) && !is.null(gg.top) && yt.axis && !is.null(yt.axis.name)) {
                 l <- l + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.row.title) && (!(!is.null(gg.top) && yt.axis) | is.null(gg.top) && 
                 !is.null(gg.left) | !is.null(gg.top) && yt.axis && !is.null(gg.left) && 
                 left.label.size >= 0.2)) {
                 l <- l + 1
             }
             r <- l
             if (left.label.size > 0.2 && !is.null(gg.top) && yt.axis) {
                 r <- r + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.left), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, r = r)
         }
         if (!is.null(gg.bottom)) {
             t <- 2
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             b <- t
             if (bottom.label.size > 0.2 && !is.null(gg.right) && yr.axis) {
                 b <- t + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.bottom), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, b = b)
             b.bottom <- b
         }
         if (!is.null(gg.title)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.row.title)) {
             l <- 1
             t <- 1
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.top) && yt.axis && is.null(gg.left)) {
                 l <- l + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.row.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.column.title)) {
             if (!is.null(gg.bottom)) {
                 t <- b.bottom + 1
             }
             else {
                 t <- 2
                 if (!is.null(gg.title)) {
                     t <- t + 1
                 }
                 if (!is.null(gg.top)) {
                     t <- t + 1
                 }
             }
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.column.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         layout <- gtable::gtable_add_padding(layout, grid::unit(padding, "cm"))
         return(layout)
     })(layout = structure(list(grobs = list(structure(list(name = "panel-1.gTree.1513", 
         gp = NULL, vp = NULL, children = structure(list(grill.gTree.1511 = structure(list(
             name = "grill.gTree.1511", gp = NULL, vp = NULL, children = structure(list(
                 panel.background..rect.1502 = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     just = "centre", hjust = NULL, vjust = NULL, name = "panel.background..rect.1502", 
                     gp = structure(list(lwd = 1.42263779527559, col = NA, fill = "grey92", 
                       lty = 1), class = "gpar"), vp = NULL), class = c("rect", "grob", 
                 "gDesc")), panel.grid.minor.y..polyline.1504 = structure(list(x = structure(c(0, 
                 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.0625, 
                 0.0625, 0.3125, 0.3125, 0.5625, 0.5625, 0.8125, 0.8125), unit = 0L, class = c("simpleUnit", 
                 "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.minor.y..polyline.1504", 
                     gp = structure(list(lwd = 0.711318897637795, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.minor.x..polyline.1506 = structure(list(
                     x = structure(c(0.0833333333333333, 0.0833333333333333, 0.25, 0.25, 
                     0.416666666666667, 0.416666666666667, 0.583333333333333, 0.583333333333333, 
                     0.75, 0.75, 0.916666666666667, 0.916666666666667), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, 
                     name = "panel.grid.minor.x..polyline.1506", gp = structure(list(lwd = 0.711318897637795, 
                       col = "white", lty = 1, lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.y..polyline.1508 = structure(list(
                     x = structure(c(0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0.1875, 0.1875, 0.4375, 0.4375, 0.6875, 
                     0.6875, 0.9375, 0.9375), unit = 4L, class = c("simpleUnit", "unit"
                     )), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.y..polyline.1508", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.x..polyline.1510 = structure(list(
                     x = structure(c(0, 0, 0.166666666666667, 0.166666666666667, 0.333333333333333, 
                     0.333333333333333, 0.5, 0.5, 0.666666666666667, 0.666666666666667, 
                     0.833333333333333, 0.833333333333333, 1, 1), unit = 4L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 
                     1), unit = 0L, class = c("simpleUnit", "unit")), id = NULL, id.lengths = c(2L, 
                     2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.x..polyline.1510", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc"))), class = "gList"), childrenOrder = c("panel.background..rect.1502", 
             "panel.grid.minor.y..polyline.1504", "panel.grid.minor.x..polyline.1506", 
             "panel.grid.major.y..polyline.1508", "panel.grid.major.x..polyline.1510")), class = c("gTree", 
         "grob", "gDesc")), `NULL` = structure(list(name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", 
         "grob", "gDesc")), GRID.rastergrob.1485 = structure(list(raster = structure(c("#CEDE41FF", 
         "#45306FFF", "#FDE725FF", "#45306FFF", "#21908CFF", "#45306FFF", "#5DC863FF", 
         "#45306FFF", "#21908CFF", "#50B572FF", "#45306FFF", "#5DC863FF", "#45306FFF", 
         "#FDE725FF", "#CEDE41FF", "#21908CFF", "#45306FFF", "#45306FFF", "#45306FFF", 
         "#21908CFF", "#5DC863FF", "#45306FFF", "#5DC863FF", "#50B572FF"), .Dim = c(8L, 
         3L), class = "raster"), x = structure(0.5, unit = 4L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), width = structure(1, unit = 4L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             just = "centre", hjust = NULL, vjust = NULL, interpolate = FALSE, name = "GRID.rastergrob.1485", 
             gp = structure(list(), class = "gpar"), vp = NULL), class = c("rastergrob", 
         "grob", "gDesc")), GRID.segments.1486 = structure(list(x0 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1486", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1487 = structure(list(
             x0 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", "unit"
             )), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", 
             "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             arrow = NULL, name = "GRID.segments.1487", gp = structure(list(col = "#000000FF", 
                 fill = "#000000FF", lwd = 1.42263779527559, lty = 1, lineend = "butt", 
                 linejoin = "round"), class = "gpar"), vp = NULL), class = c("segments", 
         "grob", "gDesc")), GRID.segments.1488 = structure(list(x0 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1488", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1489 = structure(list(
             x0 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1489", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1490 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1490", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1491 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.125, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.125, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1491", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1492 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.25, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.25, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1492", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1493 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.375, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.375, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1493", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1494 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.5, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1494", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1495 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.625, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.625, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1495", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1496 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.75, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.75, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1496", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1497 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.875, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.875, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1497", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1498 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(1, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1498", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), `NULL` = structure(list(
             name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"
         )), panel.border..zeroGrob.1499 = structure(list(name = "panel.border..zeroGrob.1499", 
             gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"))), class = "gList"), 
         childrenOrder = c("grill.gTree.1511", "NULL", "GRID.rastergrob.1485", "GRID.segments.1486", 
         "GRID.segments.1487", "GRID.segments.1488", "GRID.segments.1489", "GRID.segments.1490", 
         "GRID.segments.1491", "GRID.segments.1492", "GRID.segments.1493", "GRID.segments.1494", 
         "GRID.segments.1495", "GRID.segments.1496", "GRID.segments.1497", "GRID.segments.1498", 
         "NULL", "panel.border..zeroGrob.1499")), class = c("gTree", "grob", "gDesc"))), 
         layout = structure(list(t = 1, l = 2, b = 1, r = 2, z = 1, clip = "on", name = "panel"), row.names = c(NA, 
         -1L), class = "data.frame"), widths = structure(list(list(0.2, NULL, 5L), list(
             1, NULL, 5L)), class = "unit"), heights = structure(list(list(1, NULL, 5L), 
             list(0.2, NULL, 5L), list(0.1, NULL, 5L)), class = "unit"), respect = FALSE, 
         rownames = NULL, colnames = NULL, name = "layout", gp = NULL, vp = NULL, children = structure(list(), class = "gList"), 
         childrenOrder = character(0)), class = c("gtable", "gTree", "grob", "gDesc")), 
         gg.bottom = structure(list(data = structure(list(variable = structure(1:3, .Label = c("1", 
         "2", "3"), class = "factor"), col = structure(c(1L, 2L, 1L), .Label = c("grey95", 
         "grey80"), class = "factor"), n = c(1, 1, 1), id = 1:3, increment = c(0.333333333333333, 
         0.333333333333333, 0.333333333333333), breaks = c(1, 1.33333333333333, 1.66666666666667
         )), row.names = c(NA, -3L), class = "data.frame"), layers = list(<environment>, 
             <environment>), scales = <environment>, mapping = structure(list(xmin = ~breaks, 
             xmax = ~breaks + increment, ymin = 0, ymax = 1, fill = ~col), class = "uneval"), 
             theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(xmin = "breaks", 
                 xmax = "breaks + increment", ymin = "ymin", ymax = "ymax", fill = "col", 
                 x = "breaks + increment/2", y = "pos", label = "variable")), class = c("gg", 
         "ggplot")), gg.left = structure(list(data = structure(list(variable = structure(1:8, .Label = c("1", 
         "2", "3", "4", "5", "6", "7", "8"), class = "factor"), col = structure(c(1L, 
         2L, 1L, 2L, 1L, 2L, 1L, 2L), .Label = c("grey95", "grey80"), class = "factor"), 
             n = c(1, 1, 1, 1, 1, 1, 1, 1), id = 1:8, increment = c(0.125, 0.125, 0.125, 
             0.125, 0.125, 0.125, 0.125, 0.125), breaks = c(1, 1.125, 1.25, 1.375, 1.5, 
             1.625, 1.75, 1.875)), row.names = c(NA, -8L), class = "data.frame"), layers = list(
             <environment>, <environment>), scales = <environment>, mapping = structure(list(
             xmin = 0, xmax = 1, ymin = ~breaks, ymax = ~breaks + increment, fill = ~col), class = "uneval"), 
             theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(xmin = "xmin", 
                 xmax = "xmax", ymin = "breaks", ymax = "breaks + increment", fill = "col", 
                 x = "pos", y = "breaks + increment/2", label = "variable")), class = c("gg", 
         "ggplot")), gg.legend = structure(list(data = structure(list(value = c(1, 1, 
         2, 1, 4, 5, 1, 7, 5, 2, 1, 8, 1, 1, 2, 1, 4, 5, 1, 7, 5, 2, 1, 8), x = c(1, 1, 
         1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3), y = c(1, 2, 
         3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8)), class = "data.frame", row.names = c(NA, 
         -24L)), layers = list(<environment>, <environment>, <environment>, <environment>, 
             <environment>, <environment>, <environment>, <environment>, <environment>, 
             <environment>, <environment>, <environment>, <environment>, <environment>), 
             scales = <environment>, mapping = structure(list(), .Names = character(0), class = "uneval"), 
             theme = structure(list(axis.text.x = structure(list(), class = c("element_blank", 
             "element")), axis.text.y = structure(list(), class = c("element_blank", "element"
             )), axis.ticks = structure(list(), class = c("element_blank", "element")), 
                 legend.key.width = structure(2, unit = 3L, class = c("simpleUnit", "unit"
                 )), legend.text = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = 12, hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, 
                     margin = NULL, debug = NULL, inherit.blank = FALSE), class = c("element_text", 
                 "element")), legend.direction = "horizontal"), class = c("theme", "gg"
             ), complete = FALSE, validate = FALSE), coordinates = <environment>, facet = <environment>, 
             plot_env = <environment>, labels = list(x = "x", y = "y", fill = "value", 
                 xintercept = "xintercept", yintercept = "yintercept"), guides = list(
                 fill = structure(list(title = structure(list(), class = "waiver"), title.position = NULL, 
                     title.theme = NULL, title.hjust = NULL, title.vjust = NULL, label = TRUE, 
                     label.position = NULL, label.theme = NULL, label.hjust = NULL, label.vjust = NULL, 
                     barwidth = structure(15, unit = 3L, class = c("simpleUnit", "unit"
                     )), barheight = structure(1, unit = 3L, class = c("simpleUnit", "unit"
                     )), nbin = 20, raster = TRUE, frame.colour = NULL, frame.linewidth = 0.5, 
                     frame.linetype = 1, ticks = TRUE, ticks.colour = "white", ticks.linewidth = 0.5, 
                     draw.ulim = TRUE, draw.llim = TRUE, direction = NULL, default.unit = "line", 
                     reverse = FALSE, order = 0, available_aes = c("colour", "color", 
                     "fill"), name = "colorbar"), class = c("guide", "colorbar")))), class = c("gg", 
         "ggplot")), row.dendrogram = FALSE, col.dendrogram = FALSE, yt.axis = TRUE, yr.axis = TRUE, 
         yt.axis.name = "NULL", yr.axis.name = "NULL", padding = 1, bottom.label.size = 0.2, 
         left.label.size = 0.2)
  4: gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
         pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
  5: is.grob(grobs)
  6: gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), pattern = "guide-box", trim = TRUE, 
         fixed = TRUE)
  7: grepl(pattern, .subset2(x$layout, "name"), fixed = fixed)
  8: ggplot2::ggplotGrob(gg.legend)
  9: ggplot_gtable(ggplot_build(x))
  10: ggplot_gtable.ggplot_built(ggplot_build(x))
  ...
  22: pushvpgp(x)
  23: pushgrobvp(x$vp)
  24: pushgrobvp.viewport(x$vp)
  25: pushViewport(vp, recording = FALSE)
  26: lapply(vps, push.vp, recording)
  27: FUN(X[[i]], ...)
  28: push.vp.vpTree(X[[i]], ...)
  29: push.vp(vp$parent, recording)
  30: push.vp.viewport(vp$parent, recording)
  31: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 20. Error: no warning when clustering rows (@test-labels.R#18)  ─────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: superheat(X, membership.rows = cluster.rows) at testthat/test-labels.R:18
  2: do.call(generate_grobs, grob.arg.list)
  3: (function (layout, gg.top = NULL, gg.right = NULL, gg.bottom = NULL, gg.left = NULL, 
         gg.legend = NULL, gg.title = NULL, gg.row.title = NULL, gg.column.title = NULL, 
         row.dendrogram = F, col.dendrogram = F, yt.axis = T, yr.axis = T, yt.axis.name = T, 
         yr.axis.name = T, padding = 1, bottom.label.size = 0.1, left.label.size = 0.1) 
     {
         if (row.dendrogram) {
             yr.axis <- F
         }
         if (col.dendrogram) {
             yt.axis <- F
         }
         if (!is.null(gg.legend)) {
             t <- nrow(layout)
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
                 pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.right)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yr.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "axis-b", trim = TRUE, fixed = TRUE), t = (t + 1), l = l)
             }
             if (yr.axis && !is.null(yr.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "xlab", trim = TRUE, fixed = TRUE), t = (t + 2), l = l)
             }
         }
         if (!is.null(gg.top)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yt.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "axis-l", trim = TRUE, fixed = TRUE), t = t, l = (l - 1))
             }
             if (yt.axis & !is.null(yt.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "ylab", trim = TRUE, fixed = TRUE), t = t, l = (l - 2))
             }
         }
         if (!is.null(gg.left)) {
             t <- 1
             l <- 1
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if ((left.label.size <= 0.2) && !is.null(gg.top) && yt.axis && !is.null(yt.axis.name)) {
                 l <- l + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.row.title) && (!(!is.null(gg.top) && yt.axis) | is.null(gg.top) && 
                 !is.null(gg.left) | !is.null(gg.top) && yt.axis && !is.null(gg.left) && 
                 left.label.size >= 0.2)) {
                 l <- l + 1
             }
             r <- l
             if (left.label.size > 0.2 && !is.null(gg.top) && yt.axis) {
                 r <- r + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.left), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, r = r)
         }
         if (!is.null(gg.bottom)) {
             t <- 2
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             b <- t
             if (bottom.label.size > 0.2 && !is.null(gg.right) && yr.axis) {
                 b <- t + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.bottom), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, b = b)
             b.bottom <- b
         }
         if (!is.null(gg.title)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.row.title)) {
             l <- 1
             t <- 1
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.top) && yt.axis && is.null(gg.left)) {
                 l <- l + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.row.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.column.title)) {
             if (!is.null(gg.bottom)) {
                 t <- b.bottom + 1
             }
             else {
                 t <- 2
                 if (!is.null(gg.title)) {
                     t <- t + 1
                 }
                 if (!is.null(gg.top)) {
                     t <- t + 1
                 }
             }
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.column.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         layout <- gtable::gtable_add_padding(layout, grid::unit(padding, "cm"))
         return(layout)
     })(layout = structure(list(grobs = list(structure(list(name = "panel-1.gTree.1605", 
         gp = NULL, vp = NULL, children = structure(list(grill.gTree.1603 = structure(list(
             name = "grill.gTree.1603", gp = NULL, vp = NULL, children = structure(list(
                 panel.background..rect.1594 = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     just = "centre", hjust = NULL, vjust = NULL, name = "panel.background..rect.1594", 
                     gp = structure(list(lwd = 1.42263779527559, col = NA, fill = "grey92", 
                       lty = 1), class = "gpar"), vp = NULL), class = c("rect", "grob", 
                 "gDesc")), panel.grid.minor.y..polyline.1596 = structure(list(x = structure(c(0, 
                 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.0625, 
                 0.0625, 0.3125, 0.3125, 0.5625, 0.5625, 0.8125, 0.8125), unit = 0L, class = c("simpleUnit", 
                 "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.minor.y..polyline.1596", 
                     gp = structure(list(lwd = 0.711318897637795, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.minor.x..polyline.1598 = structure(list(
                     x = structure(c(0.0833333333333333, 0.0833333333333333, 0.25, 0.25, 
                     0.416666666666667, 0.416666666666667, 0.583333333333333, 0.583333333333333, 
                     0.75, 0.75, 0.916666666666667, 0.916666666666667), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, 
                     name = "panel.grid.minor.x..polyline.1598", gp = structure(list(lwd = 0.711318897637795, 
                       col = "white", lty = 1, lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.y..polyline.1600 = structure(list(
                     x = structure(c(0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0.1875, 0.1875, 0.4375, 0.4375, 0.6875, 
                     0.6875, 0.9375, 0.9375), unit = 4L, class = c("simpleUnit", "unit"
                     )), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.y..polyline.1600", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.x..polyline.1602 = structure(list(
                     x = structure(c(0, 0, 0.166666666666667, 0.166666666666667, 0.333333333333333, 
                     0.333333333333333, 0.5, 0.5, 0.666666666666667, 0.666666666666667, 
                     0.833333333333333, 0.833333333333333, 1, 1), unit = 4L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 
                     1), unit = 0L, class = c("simpleUnit", "unit")), id = NULL, id.lengths = c(2L, 
                     2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.x..polyline.1602", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc"))), class = "gList"), childrenOrder = c("panel.background..rect.1594", 
             "panel.grid.minor.y..polyline.1596", "panel.grid.minor.x..polyline.1598", 
             "panel.grid.major.y..polyline.1600", "panel.grid.major.x..polyline.1602")), class = c("gTree", 
         "grob", "gDesc")), `NULL` = structure(list(name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", 
         "grob", "gDesc")), GRID.rastergrob.1581 = structure(list(raster = structure(c("#CEDE41FF", 
         "#45306FFF", "#FDE725FF", "#45306FFF", "#21908CFF", "#45306FFF", "#5DC863FF", 
         "#45306FFF", "#21908CFF", "#50B572FF", "#45306FFF", "#5DC863FF", "#45306FFF", 
         "#21908CFF", "#5DC863FF", "#45306FFF", "#FDE725FF", "#CEDE41FF", "#21908CFF", 
         "#45306FFF", "#45306FFF", "#45306FFF", "#5DC863FF", "#50B572FF"), .Dim = c(8L, 
         3L), class = "raster"), x = structure(0.5, unit = 4L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), width = structure(1, unit = 4L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             just = "centre", hjust = NULL, vjust = NULL, interpolate = FALSE, name = "GRID.rastergrob.1581", 
             gp = structure(list(), class = "gpar"), vp = NULL), class = c("rastergrob", 
         "grob", "gDesc")), GRID.segments.1582 = structure(list(x0 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1582", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1583 = structure(list(
             x0 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", "unit"
             )), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", 
             "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             arrow = NULL, name = "GRID.segments.1583", gp = structure(list(col = "#000000FF", 
                 fill = "#000000FF", lwd = 1.42263779527559, lty = 1, lineend = "butt", 
                 linejoin = "round"), class = "gpar"), vp = NULL), class = c("segments", 
         "grob", "gDesc")), GRID.segments.1584 = structure(list(x0 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1584", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1585 = structure(list(
             x0 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1585", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1586 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1586", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1587 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.375, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.375, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1587", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1588 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.625, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.625, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1588", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1589 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.75, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.75, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1589", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1590 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(1, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1590", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), `NULL` = structure(list(
             name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"
         )), panel.border..zeroGrob.1591 = structure(list(name = "panel.border..zeroGrob.1591", 
             gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"))), class = "gList"), 
         childrenOrder = c("grill.gTree.1603", "NULL", "GRID.rastergrob.1581", "GRID.segments.1582", 
         "GRID.segments.1583", "GRID.segments.1584", "GRID.segments.1585", "GRID.segments.1586", 
         "GRID.segments.1587", "GRID.segments.1588", "GRID.segments.1589", "GRID.segments.1590", 
         "NULL", "panel.border..zeroGrob.1591")), class = c("gTree", "grob", "gDesc"))), 
         layout = structure(list(t = 1, l = 2, b = 1, r = 2, z = 1, clip = "on", name = "panel"), row.names = c(NA, 
         -1L), class = "data.frame"), widths = structure(list(list(0.2, NULL, 5L), list(
             1, NULL, 5L)), class = "unit"), heights = structure(list(list(1, NULL, 5L), 
             list(0.2, NULL, 5L), list(0.1, NULL, 5L)), class = "unit"), respect = FALSE, 
         rownames = NULL, colnames = NULL, name = "layout", gp = NULL, vp = NULL, children = structure(list(), class = "gList"), 
         childrenOrder = character(0)), class = c("gtable", "gTree", "grob", "gDesc")), 
         gg.bottom = structure(list(data = structure(list(variable = structure(1:3, .Label = c("1", 
         "2", "3"), class = "factor"), col = structure(c(1L, 2L, 1L), .Label = c("grey95", 
         "grey80"), class = "factor"), n = c(1, 1, 1), id = 1:3, increment = c(0.333333333333333, 
         0.333333333333333, 0.333333333333333), breaks = c(1, 1.33333333333333, 1.66666666666667
         )), row.names = c(NA, -3L), class = "data.frame"), layers = list(<environment>, 
             <environment>), scales = <environment>, mapping = structure(list(xmin = ~breaks, 
             xmax = ~breaks + increment, ymin = 0, ymax = 1, fill = ~col), class = "uneval"), 
             theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(xmin = "breaks", 
                 xmax = "breaks + increment", ymin = "ymin", ymax = "ymax", fill = "col", 
                 x = "breaks + increment/2", y = "pos", label = "variable")), class = c("gg", 
         "ggplot")), gg.left = structure(list(data = structure(list(cluster = structure(1:4, .Label = c("1", 
         "2", "3", "4"), class = "factor"), col = structure(c(1L, 2L, 1L, 2L), .Label = c("grey95", 
         "grey80"), class = "factor"), n = c(3L, 2L, 1L, 2L), id = 1:4, increment = c(1.5, 
         1, 0.5, 1), breaks = c(1, 2.5, 3.5, 4), cluster.names = c("1", "2", "3", "4")), row.names = c(NA, 
         -4L), class = "data.frame"), layers = list(<environment>, <environment>), scales = <environment>, 
             mapping = structure(list(xmin = 0, xmax = 1, ymin = ~breaks, ymax = ~breaks + 
                 increment, fill = ~col), class = "uneval"), theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(xmin = "xmin", 
                 xmax = "xmax", ymin = "breaks", ymax = "breaks + increment", fill = "col", 
                 x = "pos", y = "breaks + increment/2", label = "cluster.names")), class = c("gg", 
         "ggplot")), gg.legend = structure(list(data = structure(list(value = c(1, 2, 
         1, 1, 4, 5, 1, 7, 5, 1, 8, 2, 1, 1, 2, 1, 4, 1, 7, 5, 5, 2, 1, 8), x = c(1, 1, 
         1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3), y = c(1, 2, 
         3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8)), class = "data.frame", row.names = c(NA, 
         -24L)), layers = list(<environment>, <environment>, <environment>, <environment>, 
             <environment>, <environment>, <environment>, <environment>, <environment>, 
             <environment>), scales = <environment>, mapping = structure(list(), .Names = character(0), class = "uneval"), 
             theme = structure(list(axis.text.x = structure(list(), class = c("element_blank", 
             "element")), axis.text.y = structure(list(), class = c("element_blank", "element"
             )), axis.ticks = structure(list(), class = c("element_blank", "element")), 
                 legend.key.width = structure(2, unit = 3L, class = c("simpleUnit", "unit"
                 )), legend.text = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = 12, hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, 
                     margin = NULL, debug = NULL, inherit.blank = FALSE), class = c("element_text", 
                 "element")), legend.direction = "horizontal"), class = c("theme", "gg"
             ), complete = FALSE, validate = FALSE), coordinates = <environment>, facet = <environment>, 
             plot_env = <environment>, labels = list(x = "x", y = "y", fill = "value", 
                 xintercept = "xintercept", yintercept = "yintercept"), guides = list(
                 fill = structure(list(title = structure(list(), class = "waiver"), title.position = NULL, 
                     title.theme = NULL, title.hjust = NULL, title.vjust = NULL, label = TRUE, 
                     label.position = NULL, label.theme = NULL, label.hjust = NULL, label.vjust = NULL, 
                     barwidth = structure(15, unit = 3L, class = c("simpleUnit", "unit"
                     )), barheight = structure(1, unit = 3L, class = c("simpleUnit", "unit"
                     )), nbin = 20, raster = TRUE, frame.colour = NULL, frame.linewidth = 0.5, 
                     frame.linetype = 1, ticks = TRUE, ticks.colour = "white", ticks.linewidth = 0.5, 
                     draw.ulim = TRUE, draw.llim = TRUE, direction = NULL, default.unit = "line", 
                     reverse = FALSE, order = 0, available_aes = c("colour", "color", 
                     "fill"), name = "colorbar"), class = c("guide", "colorbar")))), class = c("gg", 
         "ggplot")), row.dendrogram = FALSE, col.dendrogram = FALSE, yt.axis = TRUE, yr.axis = TRUE, 
         yt.axis.name = "NULL", yr.axis.name = "NULL", padding = 1, bottom.label.size = 0.2, 
         left.label.size = 0.2)
  4: gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
         pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
  5: is.grob(grobs)
  6: gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), pattern = "guide-box", trim = TRUE, 
         fixed = TRUE)
  7: grepl(pattern, .subset2(x$layout, "name"), fixed = fixed)
  8: ggplot2::ggplotGrob(gg.legend)
  9: ggplot_gtable(ggplot_build(x))
  10: ggplot_gtable.ggplot_built(ggplot_build(x))
  ...
  22: pushvpgp(x)
  23: pushgrobvp(x$vp)
  24: pushgrobvp.viewport(x$vp)
  25: pushViewport(vp, recording = FALSE)
  26: lapply(vps, push.vp, recording)
  27: FUN(X[[i]], ...)
  28: push.vp.vpTree(X[[i]], ...)
  29: push.vp(vp$parent, recording)
  30: push.vp.viewport(vp$parent, recording)
  31: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 21. Error: no warning when clustering cols (@test-labels.R#24)  ─────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: superheat(X, membership.cols = cluster.cols) at testthat/test-labels.R:24
  2: do.call(generate_grobs, grob.arg.list)
  3: (function (layout, gg.top = NULL, gg.right = NULL, gg.bottom = NULL, gg.left = NULL, 
         gg.legend = NULL, gg.title = NULL, gg.row.title = NULL, gg.column.title = NULL, 
         row.dendrogram = F, col.dendrogram = F, yt.axis = T, yr.axis = T, yt.axis.name = T, 
         yr.axis.name = T, padding = 1, bottom.label.size = 0.1, left.label.size = 0.1) 
     {
         if (row.dendrogram) {
             yr.axis <- F
         }
         if (col.dendrogram) {
             yt.axis <- F
         }
         if (!is.null(gg.legend)) {
             t <- nrow(layout)
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
                 pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.right)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yr.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "axis-b", trim = TRUE, fixed = TRUE), t = (t + 1), l = l)
             }
             if (yr.axis && !is.null(yr.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "xlab", trim = TRUE, fixed = TRUE), t = (t + 2), l = l)
             }
         }
         if (!is.null(gg.top)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yt.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "axis-l", trim = TRUE, fixed = TRUE), t = t, l = (l - 1))
             }
             if (yt.axis & !is.null(yt.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "ylab", trim = TRUE, fixed = TRUE), t = t, l = (l - 2))
             }
         }
         if (!is.null(gg.left)) {
             t <- 1
             l <- 1
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if ((left.label.size <= 0.2) && !is.null(gg.top) && yt.axis && !is.null(yt.axis.name)) {
                 l <- l + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.row.title) && (!(!is.null(gg.top) && yt.axis) | is.null(gg.top) && 
                 !is.null(gg.left) | !is.null(gg.top) && yt.axis && !is.null(gg.left) && 
                 left.label.size >= 0.2)) {
                 l <- l + 1
             }
             r <- l
             if (left.label.size > 0.2 && !is.null(gg.top) && yt.axis) {
                 r <- r + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.left), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, r = r)
         }
         if (!is.null(gg.bottom)) {
             t <- 2
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             b <- t
             if (bottom.label.size > 0.2 && !is.null(gg.right) && yr.axis) {
                 b <- t + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.bottom), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, b = b)
             b.bottom <- b
         }
         if (!is.null(gg.title)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.row.title)) {
             l <- 1
             t <- 1
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.top) && yt.axis && is.null(gg.left)) {
                 l <- l + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.row.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.column.title)) {
             if (!is.null(gg.bottom)) {
                 t <- b.bottom + 1
             }
             else {
                 t <- 2
                 if (!is.null(gg.title)) {
                     t <- t + 1
                 }
                 if (!is.null(gg.top)) {
                     t <- t + 1
                 }
             }
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.column.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         layout <- gtable::gtable_add_padding(layout, grid::unit(padding, "cm"))
         return(layout)
     })(layout = structure(list(grobs = list(structure(list(name = "panel-1.gTree.1696", 
         gp = NULL, vp = NULL, children = structure(list(grill.gTree.1694 = structure(list(
             name = "grill.gTree.1694", gp = NULL, vp = NULL, children = structure(list(
                 panel.background..rect.1685 = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     just = "centre", hjust = NULL, vjust = NULL, name = "panel.background..rect.1685", 
                     gp = structure(list(lwd = 1.42263779527559, col = NA, fill = "grey92", 
                       lty = 1), class = "gpar"), vp = NULL), class = c("rect", "grob", 
                 "gDesc")), panel.grid.minor.y..polyline.1687 = structure(list(x = structure(c(0, 
                 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.0625, 
                 0.0625, 0.3125, 0.3125, 0.5625, 0.5625, 0.8125, 0.8125), unit = 0L, class = c("simpleUnit", 
                 "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.minor.y..polyline.1687", 
                     gp = structure(list(lwd = 0.711318897637795, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.minor.x..polyline.1689 = structure(list(
                     x = structure(c(0.0833333333333333, 0.0833333333333333, 0.25, 0.25, 
                     0.416666666666667, 0.416666666666667, 0.583333333333333, 0.583333333333333, 
                     0.75, 0.75, 0.916666666666667, 0.916666666666667), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, 
                     name = "panel.grid.minor.x..polyline.1689", gp = structure(list(lwd = 0.711318897637795, 
                       col = "white", lty = 1, lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.y..polyline.1691 = structure(list(
                     x = structure(c(0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0.1875, 0.1875, 0.4375, 0.4375, 0.6875, 
                     0.6875, 0.9375, 0.9375), unit = 4L, class = c("simpleUnit", "unit"
                     )), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.y..polyline.1691", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.x..polyline.1693 = structure(list(
                     x = structure(c(0, 0, 0.166666666666667, 0.166666666666667, 0.333333333333333, 
                     0.333333333333333, 0.5, 0.5, 0.666666666666667, 0.666666666666667, 
                     0.833333333333333, 0.833333333333333, 1, 1), unit = 4L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 
                     1), unit = 0L, class = c("simpleUnit", "unit")), id = NULL, id.lengths = c(2L, 
                     2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.x..polyline.1693", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc"))), class = "gList"), childrenOrder = c("panel.background..rect.1685", 
             "panel.grid.minor.y..polyline.1687", "panel.grid.minor.x..polyline.1689", 
             "panel.grid.major.y..polyline.1691", "panel.grid.major.x..polyline.1693")), class = c("gTree", 
         "grob", "gDesc")), `NULL` = structure(list(name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", 
         "grob", "gDesc")), GRID.rastergrob.1669 = structure(list(raster = structure(c("#CEDE41FF", 
         "#45306FFF", "#FDE725FF", "#45306FFF", "#21908CFF", "#45306FFF", "#5DC863FF", 
         "#45306FFF", "#21908CFF", "#50B572FF", "#45306FFF", "#5DC863FF", "#45306FFF", 
         "#FDE725FF", "#CEDE41FF", "#21908CFF", "#45306FFF", "#45306FFF", "#45306FFF", 
         "#21908CFF", "#5DC863FF", "#45306FFF", "#5DC863FF", "#50B572FF"), .Dim = c(8L, 
         3L), class = "raster"), x = structure(0.5, unit = 4L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), width = structure(1, unit = 4L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             just = "centre", hjust = NULL, vjust = NULL, interpolate = FALSE, name = "GRID.rastergrob.1669", 
             gp = structure(list(), class = "gpar"), vp = NULL), class = c("rastergrob", 
         "grob", "gDesc")), GRID.segments.1670 = structure(list(x0 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1670", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1671 = structure(list(
             x0 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", "unit"
             )), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
             "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             arrow = NULL, name = "GRID.segments.1671", gp = structure(list(col = "#000000FF", 
                 fill = "#000000FF", lwd = 1.42263779527559, lty = 1, lineend = "butt", 
                 linejoin = "round"), class = "gpar"), vp = NULL), class = c("segments", 
         "grob", "gDesc")), GRID.segments.1672 = structure(list(x0 = structure(1, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1672", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1673 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1673", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1674 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.125, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.125, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1674", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1675 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.25, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.25, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1675", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1676 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.375, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.375, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1676", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1677 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.5, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1677", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1678 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.625, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.625, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1678", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1679 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.75, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.75, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1679", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1680 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.875, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.875, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1680", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1681 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(1, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1681", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), `NULL` = structure(list(
             name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"
         )), panel.border..zeroGrob.1682 = structure(list(name = "panel.border..zeroGrob.1682", 
             gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"))), class = "gList"), 
         childrenOrder = c("grill.gTree.1694", "NULL", "GRID.rastergrob.1669", "GRID.segments.1670", 
         "GRID.segments.1671", "GRID.segments.1672", "GRID.segments.1673", "GRID.segments.1674", 
         "GRID.segments.1675", "GRID.segments.1676", "GRID.segments.1677", "GRID.segments.1678", 
         "GRID.segments.1679", "GRID.segments.1680", "GRID.segments.1681", "NULL", "panel.border..zeroGrob.1682"
         )), class = c("gTree", "grob", "gDesc"))), layout = structure(list(t = 1, l = 2, 
         b = 1, r = 2, z = 1, clip = "on", name = "panel"), row.names = c(NA, -1L), class = "data.frame"), 
         widths = structure(list(list(0.2, NULL, 5L), list(1, NULL, 5L)), class = "unit"), 
         heights = structure(list(list(1, NULL, 5L), list(0.2, NULL, 5L), list(0.1, NULL, 
             5L)), class = "unit"), respect = FALSE, rownames = NULL, colnames = NULL, 
         name = "layout", gp = NULL, vp = NULL, children = structure(list(), class = "gList"), 
         childrenOrder = character(0)), class = c("gtable", "gTree", "grob", "gDesc")), 
         gg.bottom = structure(list(data = structure(list(cluster = structure(1:2, .Label = c("1", 
         "2"), class = "factor"), col = structure(1:2, .Label = c("grey95", "grey80"), class = "factor"), 
             n = 2:1, id = 1:2, increment = c(1.33333333333333, 0.666666666666667), breaks = c(1, 
             2.33333333333333), cluster.names = c("1", "2")), row.names = c(NA, -2L), class = "data.frame"), 
             layers = list(<environment>, <environment>), scales = <environment>, mapping = structure(list(
                 xmin = ~breaks, xmax = ~breaks + increment, ymin = 0, ymax = 1, fill = ~col), class = "uneval"), 
             theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(xmin = "breaks", 
                 xmax = "breaks + increment", ymin = "ymin", ymax = "ymax", fill = "col", 
                 x = "breaks + increment/2", y = "pos", label = "cluster.names")), class = c("gg", 
         "ggplot")), gg.left = structure(list(data = structure(list(variable = structure(1:8, .Label = c("1", 
         "2", "3", "4", "5", "6", "7", "8"), class = "factor"), col = structure(c(1L, 
         2L, 1L, 2L, 1L, 2L, 1L, 2L), .Label = c("grey95", "grey80"), class = "factor"), 
             n = c(1, 1, 1, 1, 1, 1, 1, 1), id = 1:8, increment = c(0.125, 0.125, 0.125, 
             0.125, 0.125, 0.125, 0.125, 0.125), breaks = c(1, 1.125, 1.25, 1.375, 1.5, 
             1.625, 1.75, 1.875)), row.names = c(NA, -8L), class = "data.frame"), layers = list(
             <environment>, <environment>), scales = <environment>, mapping = structure(list(
             xmin = 0, xmax = 1, ymin = ~breaks, ymax = ~breaks + increment, fill = ~col), class = "uneval"), 
             theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(xmin = "xmin", 
                 xmax = "xmax", ymin = "breaks", ymax = "breaks + increment", fill = "col", 
                 x = "pos", y = "breaks + increment/2", label = "variable")), class = c("gg", 
         "ggplot")), gg.legend = structure(list(data = structure(list(value = c(1, 1, 
         2, 1, 4, 5, 1, 7, 5, 2, 1, 8, 1, 1, 2, 1, 4, 5, 1, 7, 5, 2, 1, 8), x = c(1, 1, 
         1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3), y = c(1, 2, 
         3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8)), class = "data.frame", row.names = c(NA, 
         -24L)), layers = list(<environment>, <environment>, <environment>, <environment>, 
             <environment>, <environment>, <environment>, <environment>, <environment>, 
             <environment>, <environment>, <environment>, <environment>), scales = <environment>, 
             mapping = structure(list(), .Names = character(0), class = "uneval"), theme = structure(list(
                 axis.text.x = structure(list(), class = c("element_blank", "element")), 
                 axis.text.y = structure(list(), class = c("element_blank", "element")), 
                 axis.ticks = structure(list(), class = c("element_blank", "element")), 
                 legend.key.width = structure(2, unit = 3L, class = c("simpleUnit", "unit"
                 )), legend.text = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = 12, hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, 
                     margin = NULL, debug = NULL, inherit.blank = FALSE), class = c("element_text", 
                 "element")), legend.direction = "horizontal"), class = c("theme", "gg"
             ), complete = FALSE, validate = FALSE), coordinates = <environment>, facet = <environment>, 
             plot_env = <environment>, labels = list(x = "x", y = "y", fill = "value", 
                 xintercept = "xintercept", yintercept = "yintercept"), guides = list(
                 fill = structure(list(title = structure(list(), class = "waiver"), title.position = NULL, 
                     title.theme = NULL, title.hjust = NULL, title.vjust = NULL, label = TRUE, 
                     label.position = NULL, label.theme = NULL, label.hjust = NULL, label.vjust = NULL, 
                     barwidth = structure(15, unit = 3L, class = c("simpleUnit", "unit"
                     )), barheight = structure(1, unit = 3L, class = c("simpleUnit", "unit"
                     )), nbin = 20, raster = TRUE, frame.colour = NULL, frame.linewidth = 0.5, 
                     frame.linetype = 1, ticks = TRUE, ticks.colour = "white", ticks.linewidth = 0.5, 
                     draw.ulim = TRUE, draw.llim = TRUE, direction = NULL, default.unit = "line", 
                     reverse = FALSE, order = 0, available_aes = c("colour", "color", 
                     "fill"), name = "colorbar"), class = c("guide", "colorbar")))), class = c("gg", 
         "ggplot")), row.dendrogram = FALSE, col.dendrogram = FALSE, yt.axis = TRUE, yr.axis = TRUE, 
         yt.axis.name = "NULL", yr.axis.name = "NULL", padding = 1, bottom.label.size = 0.2, 
         left.label.size = 0.2)
  4: gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
         pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
  5: is.grob(grobs)
  6: gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), pattern = "guide-box", trim = TRUE, 
         fixed = TRUE)
  7: grepl(pattern, .subset2(x$layout, "name"), fixed = fixed)
  8: ggplot2::ggplotGrob(gg.legend)
  9: ggplot_gtable(ggplot_build(x))
  10: ggplot_gtable.ggplot_built(ggplot_build(x))
  ...
  22: pushvpgp(x)
  23: pushgrobvp(x$vp)
  24: pushgrobvp.viewport(x$vp)
  25: pushViewport(vp, recording = FALSE)
  26: lapply(vps, push.vp, recording)
  27: FUN(X[[i]], ...)
  28: push.vp.vpTree(X[[i]], ...)
  29: push.vp(vp$parent, recording)
  30: push.vp.viewport(vp$parent, recording)
  31: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 22. Error: no warning when coloring left labels (@test-labels.R#30)  ────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: superheat(X, left.label.col = c("red", "blue")) at testthat/test-labels.R:30
  2: do.call(generate_grobs, grob.arg.list)
  3: (function (layout, gg.top = NULL, gg.right = NULL, gg.bottom = NULL, gg.left = NULL, 
         gg.legend = NULL, gg.title = NULL, gg.row.title = NULL, gg.column.title = NULL, 
         row.dendrogram = F, col.dendrogram = F, yt.axis = T, yr.axis = T, yt.axis.name = T, 
         yr.axis.name = T, padding = 1, bottom.label.size = 0.1, left.label.size = 0.1) 
     {
         if (row.dendrogram) {
             yr.axis <- F
         }
         if (col.dendrogram) {
             yt.axis <- F
         }
         if (!is.null(gg.legend)) {
             t <- nrow(layout)
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
                 pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.right)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yr.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "axis-b", trim = TRUE, fixed = TRUE), t = (t + 1), l = l)
             }
             if (yr.axis && !is.null(yr.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "xlab", trim = TRUE, fixed = TRUE), t = (t + 2), l = l)
             }
         }
         if (!is.null(gg.top)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yt.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "axis-l", trim = TRUE, fixed = TRUE), t = t, l = (l - 1))
             }
             if (yt.axis & !is.null(yt.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "ylab", trim = TRUE, fixed = TRUE), t = t, l = (l - 2))
             }
         }
         if (!is.null(gg.left)) {
             t <- 1
             l <- 1
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if ((left.label.size <= 0.2) && !is.null(gg.top) && yt.axis && !is.null(yt.axis.name)) {
                 l <- l + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.row.title) && (!(!is.null(gg.top) && yt.axis) | is.null(gg.top) && 
                 !is.null(gg.left) | !is.null(gg.top) && yt.axis && !is.null(gg.left) && 
                 left.label.size >= 0.2)) {
                 l <- l + 1
             }
             r <- l
             if (left.label.size > 0.2 && !is.null(gg.top) && yt.axis) {
                 r <- r + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.left), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, r = r)
         }
         if (!is.null(gg.bottom)) {
             t <- 2
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             b <- t
             if (bottom.label.size > 0.2 && !is.null(gg.right) && yr.axis) {
                 b <- t + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.bottom), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, b = b)
             b.bottom <- b
         }
         if (!is.null(gg.title)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.row.title)) {
             l <- 1
             t <- 1
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.top) && yt.axis && is.null(gg.left)) {
                 l <- l + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.row.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.column.title)) {
             if (!is.null(gg.bottom)) {
                 t <- b.bottom + 1
             }
             else {
                 t <- 2
                 if (!is.null(gg.title)) {
                     t <- t + 1
                 }
                 if (!is.null(gg.top)) {
                     t <- t + 1
                 }
             }
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.column.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         layout <- gtable::gtable_add_padding(layout, grid::unit(padding, "cm"))
         return(layout)
     })(layout = structure(list(grobs = list(structure(list(name = "panel-1.gTree.1791", 
         gp = NULL, vp = NULL, children = structure(list(grill.gTree.1789 = structure(list(
             name = "grill.gTree.1789", gp = NULL, vp = NULL, children = structure(list(
                 panel.background..rect.1780 = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     just = "centre", hjust = NULL, vjust = NULL, name = "panel.background..rect.1780", 
                     gp = structure(list(lwd = 1.42263779527559, col = NA, fill = "grey92", 
                       lty = 1), class = "gpar"), vp = NULL), class = c("rect", "grob", 
                 "gDesc")), panel.grid.minor.y..polyline.1782 = structure(list(x = structure(c(0, 
                 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.0625, 
                 0.0625, 0.3125, 0.3125, 0.5625, 0.5625, 0.8125, 0.8125), unit = 0L, class = c("simpleUnit", 
                 "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.minor.y..polyline.1782", 
                     gp = structure(list(lwd = 0.711318897637795, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.minor.x..polyline.1784 = structure(list(
                     x = structure(c(0.0833333333333333, 0.0833333333333333, 0.25, 0.25, 
                     0.416666666666667, 0.416666666666667, 0.583333333333333, 0.583333333333333, 
                     0.75, 0.75, 0.916666666666667, 0.916666666666667), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, 
                     name = "panel.grid.minor.x..polyline.1784", gp = structure(list(lwd = 0.711318897637795, 
                       col = "white", lty = 1, lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.y..polyline.1786 = structure(list(
                     x = structure(c(0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0.1875, 0.1875, 0.4375, 0.4375, 0.6875, 
                     0.6875, 0.9375, 0.9375), unit = 4L, class = c("simpleUnit", "unit"
                     )), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.y..polyline.1786", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.x..polyline.1788 = structure(list(
                     x = structure(c(0, 0, 0.166666666666667, 0.166666666666667, 0.333333333333333, 
                     0.333333333333333, 0.5, 0.5, 0.666666666666667, 0.666666666666667, 
                     0.833333333333333, 0.833333333333333, 1, 1), unit = 4L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 
                     1), unit = 0L, class = c("simpleUnit", "unit")), id = NULL, id.lengths = c(2L, 
                     2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.x..polyline.1788", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc"))), class = "gList"), childrenOrder = c("panel.background..rect.1780", 
             "panel.grid.minor.y..polyline.1782", "panel.grid.minor.x..polyline.1784", 
             "panel.grid.major.y..polyline.1786", "panel.grid.major.x..polyline.1788")), class = c("gTree", 
         "grob", "gDesc")), `NULL` = structure(list(name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", 
         "grob", "gDesc")), GRID.rastergrob.1763 = structure(list(raster = structure(c("#CEDE41FF", 
         "#45306FFF", "#FDE725FF", "#45306FFF", "#21908CFF", "#45306FFF", "#5DC863FF", 
         "#45306FFF", "#21908CFF", "#50B572FF", "#45306FFF", "#5DC863FF", "#45306FFF", 
         "#FDE725FF", "#CEDE41FF", "#21908CFF", "#45306FFF", "#45306FFF", "#45306FFF", 
         "#21908CFF", "#5DC863FF", "#45306FFF", "#5DC863FF", "#50B572FF"), .Dim = c(8L, 
         3L), class = "raster"), x = structure(0.5, unit = 4L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), width = structure(1, unit = 4L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             just = "centre", hjust = NULL, vjust = NULL, interpolate = FALSE, name = "GRID.rastergrob.1763", 
             gp = structure(list(), class = "gpar"), vp = NULL), class = c("rastergrob", 
         "grob", "gDesc")), GRID.segments.1764 = structure(list(x0 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1764", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1765 = structure(list(
             x0 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", "unit"
             )), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", 
             "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             arrow = NULL, name = "GRID.segments.1765", gp = structure(list(col = "#000000FF", 
                 fill = "#000000FF", lwd = 1.42263779527559, lty = 1, lineend = "butt", 
                 linejoin = "round"), class = "gpar"), vp = NULL), class = c("segments", 
         "grob", "gDesc")), GRID.segments.1766 = structure(list(x0 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1766", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1767 = structure(list(
             x0 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1767", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1768 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1768", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1769 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.125, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.125, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1769", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1770 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.25, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.25, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1770", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1771 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.375, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.375, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1771", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1772 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.5, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1772", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1773 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.625, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.625, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1773", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1774 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.75, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.75, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1774", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1775 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.875, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.875, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1775", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1776 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(1, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1776", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), `NULL` = structure(list(
             name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"
         )), panel.border..zeroGrob.1777 = structure(list(name = "panel.border..zeroGrob.1777", 
             gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"))), class = "gList"), 
         childrenOrder = c("grill.gTree.1789", "NULL", "GRID.rastergrob.1763", "GRID.segments.1764", 
         "GRID.segments.1765", "GRID.segments.1766", "GRID.segments.1767", "GRID.segments.1768", 
         "GRID.segments.1769", "GRID.segments.1770", "GRID.segments.1771", "GRID.segments.1772", 
         "GRID.segments.1773", "GRID.segments.1774", "GRID.segments.1775", "GRID.segments.1776", 
         "NULL", "panel.border..zeroGrob.1777")), class = c("gTree", "grob", "gDesc"))), 
         layout = structure(list(t = 1, l = 2, b = 1, r = 2, z = 1, clip = "on", name = "panel"), row.names = c(NA, 
         -1L), class = "data.frame"), widths = structure(list(list(0.2, NULL, 5L), list(
             1, NULL, 5L)), class = "unit"), heights = structure(list(list(1, NULL, 5L), 
             list(0.2, NULL, 5L), list(0.1, NULL, 5L)), class = "unit"), respect = FALSE, 
         rownames = NULL, colnames = NULL, name = "layout", gp = NULL, vp = NULL, children = structure(list(), class = "gList"), 
         childrenOrder = character(0)), class = c("gtable", "gTree", "grob", "gDesc")), 
         gg.bottom = structure(list(data = structure(list(variable = structure(1:3, .Label = c("1", 
         "2", "3"), class = "factor"), col = structure(c(1L, 2L, 1L), .Label = c("grey95", 
         "grey80"), class = "factor"), n = c(1, 1, 1), id = 1:3, increment = c(0.333333333333333, 
         0.333333333333333, 0.333333333333333), breaks = c(1, 1.33333333333333, 1.66666666666667
         )), row.names = c(NA, -3L), class = "data.frame"), layers = list(<environment>, 
             <environment>), scales = <environment>, mapping = structure(list(xmin = ~breaks, 
             xmax = ~breaks + increment, ymin = 0, ymax = 1, fill = ~col), class = "uneval"), 
             theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(xmin = "breaks", 
                 xmax = "breaks + increment", ymin = "ymin", ymax = "ymax", fill = "col", 
                 x = "breaks + increment/2", y = "pos", label = "variable")), class = c("gg", 
         "ggplot")), gg.left = structure(list(data = structure(list(variable = structure(1:8, .Label = c("1", 
         "2", "3", "4", "5", "6", "7", "8"), class = "factor"), col = structure(c(1L, 
         2L, 1L, 2L, 1L, 2L, 1L, 2L), .Label = c("red", "blue"), class = "factor"), n = c(1, 
         1, 1, 1, 1, 1, 1, 1), id = 1:8, increment = c(0.125, 0.125, 0.125, 0.125, 0.125, 
         0.125, 0.125, 0.125), breaks = c(1, 1.125, 1.25, 1.375, 1.5, 1.625, 1.75, 1.875
         )), row.names = c(NA, -8L), class = "data.frame"), layers = list(<environment>, 
             <environment>), scales = <environment>, mapping = structure(list(xmin = 0, 
             xmax = 1, ymin = ~breaks, ymax = ~breaks + increment, fill = ~col), class = "uneval"), 
             theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(xmin = "xmin", 
                 xmax = "xmax", ymin = "breaks", ymax = "breaks + increment", fill = "col", 
                 x = "pos", y = "breaks + increment/2", label = "variable")), class = c("gg", 
         "ggplot")), gg.legend = structure(list(data = structure(list(value = c(1, 1, 
         2, 1, 4, 5, 1, 7, 5, 2, 1, 8, 1, 1, 2, 1, 4, 5, 1, 7, 5, 2, 1, 8), x = c(1, 1, 
         1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3), y = c(1, 2, 
         3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8)), class = "data.frame", row.names = c(NA, 
         -24L)), layers = list(<environment>, <environment>, <environment>, <environment>, 
             <environment>, <environment>, <environment>, <environment>, <environment>, 
             <environment>, <environment>, <environment>, <environment>, <environment>), 
             scales = <environment>, mapping = structure(list(), .Names = character(0), class = "uneval"), 
             theme = structure(list(axis.text.x = structure(list(), class = c("element_blank", 
             "element")), axis.text.y = structure(list(), class = c("element_blank", "element"
             )), axis.ticks = structure(list(), class = c("element_blank", "element")), 
                 legend.key.width = structure(2, unit = 3L, class = c("simpleUnit", "unit"
                 )), legend.text = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = 12, hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, 
                     margin = NULL, debug = NULL, inherit.blank = FALSE), class = c("element_text", 
                 "element")), legend.direction = "horizontal"), class = c("theme", "gg"
             ), complete = FALSE, validate = FALSE), coordinates = <environment>, facet = <environment>, 
             plot_env = <environment>, labels = list(x = "x", y = "y", fill = "value", 
                 xintercept = "xintercept", yintercept = "yintercept"), guides = list(
                 fill = structure(list(title = structure(list(), class = "waiver"), title.position = NULL, 
                     title.theme = NULL, title.hjust = NULL, title.vjust = NULL, label = TRUE, 
                     label.position = NULL, label.theme = NULL, label.hjust = NULL, label.vjust = NULL, 
                     barwidth = structure(15, unit = 3L, class = c("simpleUnit", "unit"
                     )), barheight = structure(1, unit = 3L, class = c("simpleUnit", "unit"
                     )), nbin = 20, raster = TRUE, frame.colour = NULL, frame.linewidth = 0.5, 
                     frame.linetype = 1, ticks = TRUE, ticks.colour = "white", ticks.linewidth = 0.5, 
                     draw.ulim = TRUE, draw.llim = TRUE, direction = NULL, default.unit = "line", 
                     reverse = FALSE, order = 0, available_aes = c("colour", "color", 
                     "fill"), name = "colorbar"), class = c("guide", "colorbar")))), class = c("gg", 
         "ggplot")), row.dendrogram = FALSE, col.dendrogram = FALSE, yt.axis = TRUE, yr.axis = TRUE, 
         yt.axis.name = "NULL", yr.axis.name = "NULL", padding = 1, bottom.label.size = 0.2, 
         left.label.size = 0.2)
  4: gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
         pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
  5: is.grob(grobs)
  6: gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), pattern = "guide-box", trim = TRUE, 
         fixed = TRUE)
  7: grepl(pattern, .subset2(x$layout, "name"), fixed = fixed)
  8: ggplot2::ggplotGrob(gg.legend)
  9: ggplot_gtable(ggplot_build(x))
  10: ggplot_gtable.ggplot_built(ggplot_build(x))
  ...
  22: pushvpgp(x)
  23: pushgrobvp(x$vp)
  24: pushgrobvp.viewport(x$vp)
  25: pushViewport(vp, recording = FALSE)
  26: lapply(vps, push.vp, recording)
  27: FUN(X[[i]], ...)
  28: push.vp.vpTree(X[[i]], ...)
  29: push.vp(vp$parent, recording)
  30: push.vp.viewport(vp$parent, recording)
  31: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 23. Error: no warning when coloring left labels (@test-labels.R#36)  ────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: superheat(X, left.label.col = c("red", "blue", "red")) at testthat/test-labels.R:36
  2: do.call(generate_grobs, grob.arg.list)
  3: (function (layout, gg.top = NULL, gg.right = NULL, gg.bottom = NULL, gg.left = NULL, 
         gg.legend = NULL, gg.title = NULL, gg.row.title = NULL, gg.column.title = NULL, 
         row.dendrogram = F, col.dendrogram = F, yt.axis = T, yr.axis = T, yt.axis.name = T, 
         yr.axis.name = T, padding = 1, bottom.label.size = 0.1, left.label.size = 0.1) 
     {
         if (row.dendrogram) {
             yr.axis <- F
         }
         if (col.dendrogram) {
             yt.axis <- F
         }
         if (!is.null(gg.legend)) {
             t <- nrow(layout)
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
                 pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.right)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yr.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "axis-b", trim = TRUE, fixed = TRUE), t = (t + 1), l = l)
             }
             if (yr.axis && !is.null(yr.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "xlab", trim = TRUE, fixed = TRUE), t = (t + 2), l = l)
             }
         }
         if (!is.null(gg.top)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yt.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "axis-l", trim = TRUE, fixed = TRUE), t = t, l = (l - 1))
             }
             if (yt.axis & !is.null(yt.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "ylab", trim = TRUE, fixed = TRUE), t = t, l = (l - 2))
             }
         }
         if (!is.null(gg.left)) {
             t <- 1
             l <- 1
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if ((left.label.size <= 0.2) && !is.null(gg.top) && yt.axis && !is.null(yt.axis.name)) {
                 l <- l + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.row.title) && (!(!is.null(gg.top) && yt.axis) | is.null(gg.top) && 
                 !is.null(gg.left) | !is.null(gg.top) && yt.axis && !is.null(gg.left) && 
                 left.label.size >= 0.2)) {
                 l <- l + 1
             }
             r <- l
             if (left.label.size > 0.2 && !is.null(gg.top) && yt.axis) {
                 r <- r + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.left), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, r = r)
         }
         if (!is.null(gg.bottom)) {
             t <- 2
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             b <- t
             if (bottom.label.size > 0.2 && !is.null(gg.right) && yr.axis) {
                 b <- t + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.bottom), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, b = b)
             b.bottom <- b
         }
         if (!is.null(gg.title)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.row.title)) {
             l <- 1
             t <- 1
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.top) && yt.axis && is.null(gg.left)) {
                 l <- l + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.row.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.column.title)) {
             if (!is.null(gg.bottom)) {
                 t <- b.bottom + 1
             }
             else {
                 t <- 2
                 if (!is.null(gg.title)) {
                     t <- t + 1
                 }
                 if (!is.null(gg.top)) {
                     t <- t + 1
                 }
             }
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.column.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         layout <- gtable::gtable_add_padding(layout, grid::unit(padding, "cm"))
         return(layout)
     })(layout = structure(list(grobs = list(structure(list(name = "panel-1.gTree.1887", 
         gp = NULL, vp = NULL, children = structure(list(grill.gTree.1885 = structure(list(
             name = "grill.gTree.1885", gp = NULL, vp = NULL, children = structure(list(
                 panel.background..rect.1876 = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     just = "centre", hjust = NULL, vjust = NULL, name = "panel.background..rect.1876", 
                     gp = structure(list(lwd = 1.42263779527559, col = NA, fill = "grey92", 
                       lty = 1), class = "gpar"), vp = NULL), class = c("rect", "grob", 
                 "gDesc")), panel.grid.minor.y..polyline.1878 = structure(list(x = structure(c(0, 
                 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.0625, 
                 0.0625, 0.3125, 0.3125, 0.5625, 0.5625, 0.8125, 0.8125), unit = 0L, class = c("simpleUnit", 
                 "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.minor.y..polyline.1878", 
                     gp = structure(list(lwd = 0.711318897637795, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.minor.x..polyline.1880 = structure(list(
                     x = structure(c(0.0833333333333333, 0.0833333333333333, 0.25, 0.25, 
                     0.416666666666667, 0.416666666666667, 0.583333333333333, 0.583333333333333, 
                     0.75, 0.75, 0.916666666666667, 0.916666666666667), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, 
                     name = "panel.grid.minor.x..polyline.1880", gp = structure(list(lwd = 0.711318897637795, 
                       col = "white", lty = 1, lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.y..polyline.1882 = structure(list(
                     x = structure(c(0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0.1875, 0.1875, 0.4375, 0.4375, 0.6875, 
                     0.6875, 0.9375, 0.9375), unit = 4L, class = c("simpleUnit", "unit"
                     )), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.y..polyline.1882", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.x..polyline.1884 = structure(list(
                     x = structure(c(0, 0, 0.166666666666667, 0.166666666666667, 0.333333333333333, 
                     0.333333333333333, 0.5, 0.5, 0.666666666666667, 0.666666666666667, 
                     0.833333333333333, 0.833333333333333, 1, 1), unit = 4L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 
                     1), unit = 0L, class = c("simpleUnit", "unit")), id = NULL, id.lengths = c(2L, 
                     2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.x..polyline.1884", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc"))), class = "gList"), childrenOrder = c("panel.background..rect.1876", 
             "panel.grid.minor.y..polyline.1878", "panel.grid.minor.x..polyline.1880", 
             "panel.grid.major.y..polyline.1882", "panel.grid.major.x..polyline.1884")), class = c("gTree", 
         "grob", "gDesc")), `NULL` = structure(list(name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", 
         "grob", "gDesc")), GRID.rastergrob.1859 = structure(list(raster = structure(c("#CEDE41FF", 
         "#45306FFF", "#FDE725FF", "#45306FFF", "#21908CFF", "#45306FFF", "#5DC863FF", 
         "#45306FFF", "#21908CFF", "#50B572FF", "#45306FFF", "#5DC863FF", "#45306FFF", 
         "#FDE725FF", "#CEDE41FF", "#21908CFF", "#45306FFF", "#45306FFF", "#45306FFF", 
         "#21908CFF", "#5DC863FF", "#45306FFF", "#5DC863FF", "#50B572FF"), .Dim = c(8L, 
         3L), class = "raster"), x = structure(0.5, unit = 4L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), width = structure(1, unit = 4L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             just = "centre", hjust = NULL, vjust = NULL, interpolate = FALSE, name = "GRID.rastergrob.1859", 
             gp = structure(list(), class = "gpar"), vp = NULL), class = c("rastergrob", 
         "grob", "gDesc")), GRID.segments.1860 = structure(list(x0 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1860", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1861 = structure(list(
             x0 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", "unit"
             )), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", 
             "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             arrow = NULL, name = "GRID.segments.1861", gp = structure(list(col = "#000000FF", 
                 fill = "#000000FF", lwd = 1.42263779527559, lty = 1, lineend = "butt", 
                 linejoin = "round"), class = "gpar"), vp = NULL), class = c("segments", 
         "grob", "gDesc")), GRID.segments.1862 = structure(list(x0 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1862", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1863 = structure(list(
             x0 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1863", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1864 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1864", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1865 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.125, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.125, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1865", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1866 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.25, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.25, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1866", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1867 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.375, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.375, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1867", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1868 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.5, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1868", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1869 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.625, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.625, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1869", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1870 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.75, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.75, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1870", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1871 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.875, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.875, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1871", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1872 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(1, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1872", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), `NULL` = structure(list(
             name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"
         )), panel.border..zeroGrob.1873 = structure(list(name = "panel.border..zeroGrob.1873", 
             gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"))), class = "gList"), 
         childrenOrder = c("grill.gTree.1885", "NULL", "GRID.rastergrob.1859", "GRID.segments.1860", 
         "GRID.segments.1861", "GRID.segments.1862", "GRID.segments.1863", "GRID.segments.1864", 
         "GRID.segments.1865", "GRID.segments.1866", "GRID.segments.1867", "GRID.segments.1868", 
         "GRID.segments.1869", "GRID.segments.1870", "GRID.segments.1871", "GRID.segments.1872", 
         "NULL", "panel.border..zeroGrob.1873")), class = c("gTree", "grob", "gDesc"))), 
         layout = structure(list(t = 1, l = 2, b = 1, r = 2, z = 1, clip = "on", name = "panel"), row.names = c(NA, 
         -1L), class = "data.frame"), widths = structure(list(list(0.2, NULL, 5L), list(
             1, NULL, 5L)), class = "unit"), heights = structure(list(list(1, NULL, 5L), 
             list(0.2, NULL, 5L), list(0.1, NULL, 5L)), class = "unit"), respect = FALSE, 
         rownames = NULL, colnames = NULL, name = "layout", gp = NULL, vp = NULL, children = structure(list(), class = "gList"), 
         childrenOrder = character(0)), class = c("gtable", "gTree", "grob", "gDesc")), 
         gg.bottom = structure(list(data = structure(list(variable = structure(1:3, .Label = c("1", 
         "2", "3"), class = "factor"), col = structure(c(1L, 2L, 1L), .Label = c("grey95", 
         "grey80"), class = "factor"), n = c(1, 1, 1), id = 1:3, increment = c(0.333333333333333, 
         0.333333333333333, 0.333333333333333), breaks = c(1, 1.33333333333333, 1.66666666666667
         )), row.names = c(NA, -3L), class = "data.frame"), layers = list(<environment>, 
             <environment>), scales = <environment>, mapping = structure(list(xmin = ~breaks, 
             xmax = ~breaks + increment, ymin = 0, ymax = 1, fill = ~col), class = "uneval"), 
             theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(xmin = "breaks", 
                 xmax = "breaks + increment", ymin = "ymin", ymax = "ymax", fill = "col", 
                 x = "breaks + increment/2", y = "pos", label = "variable")), class = c("gg", 
         "ggplot")), gg.left = structure(list(data = structure(list(variable = structure(1:8, .Label = c("1", 
         "2", "3", "4", "5", "6", "7", "8"), class = "factor"), col = structure(c(1L, 
         2L, 1L, 1L, 2L, 1L, 1L, 2L), .Label = c("red", "blue"), class = "factor"), n = c(1, 
         1, 1, 1, 1, 1, 1, 1), id = 1:8, increment = c(0.125, 0.125, 0.125, 0.125, 0.125, 
         0.125, 0.125, 0.125), breaks = c(1, 1.125, 1.25, 1.375, 1.5, 1.625, 1.75, 1.875
         )), row.names = c(NA, -8L), class = "data.frame"), layers = list(<environment>, 
             <environment>), scales = <environment>, mapping = structure(list(xmin = 0, 
             xmax = 1, ymin = ~breaks, ymax = ~breaks + increment, fill = ~col), class = "uneval"), 
             theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(xmin = "xmin", 
                 xmax = "xmax", ymin = "breaks", ymax = "breaks + increment", fill = "col", 
                 x = "pos", y = "breaks + increment/2", label = "variable")), class = c("gg", 
         "ggplot")), gg.legend = structure(list(data = structure(list(value = c(1, 1, 
         2, 1, 4, 5, 1, 7, 5, 2, 1, 8, 1, 1, 2, 1, 4, 5, 1, 7, 5, 2, 1, 8), x = c(1, 1, 
         1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3), y = c(1, 2, 
         3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8)), class = "data.frame", row.names = c(NA, 
         -24L)), layers = list(<environment>, <environment>, <environment>, <environment>, 
             <environment>, <environment>, <environment>, <environment>, <environment>, 
             <environment>, <environment>, <environment>, <environment>, <environment>), 
             scales = <environment>, mapping = structure(list(), .Names = character(0), class = "uneval"), 
             theme = structure(list(axis.text.x = structure(list(), class = c("element_blank", 
             "element")), axis.text.y = structure(list(), class = c("element_blank", "element"
             )), axis.ticks = structure(list(), class = c("element_blank", "element")), 
                 legend.key.width = structure(2, unit = 3L, class = c("simpleUnit", "unit"
                 )), legend.text = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = 12, hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, 
                     margin = NULL, debug = NULL, inherit.blank = FALSE), class = c("element_text", 
                 "element")), legend.direction = "horizontal"), class = c("theme", "gg"
             ), complete = FALSE, validate = FALSE), coordinates = <environment>, facet = <environment>, 
             plot_env = <environment>, labels = list(x = "x", y = "y", fill = "value", 
                 xintercept = "xintercept", yintercept = "yintercept"), guides = list(
                 fill = structure(list(title = structure(list(), class = "waiver"), title.position = NULL, 
                     title.theme = NULL, title.hjust = NULL, title.vjust = NULL, label = TRUE, 
                     label.position = NULL, label.theme = NULL, label.hjust = NULL, label.vjust = NULL, 
                     barwidth = structure(15, unit = 3L, class = c("simpleUnit", "unit"
                     )), barheight = structure(1, unit = 3L, class = c("simpleUnit", "unit"
                     )), nbin = 20, raster = TRUE, frame.colour = NULL, frame.linewidth = 0.5, 
                     frame.linetype = 1, ticks = TRUE, ticks.colour = "white", ticks.linewidth = 0.5, 
                     draw.ulim = TRUE, draw.llim = TRUE, direction = NULL, default.unit = "line", 
                     reverse = FALSE, order = 0, available_aes = c("colour", "color", 
                     "fill"), name = "colorbar"), class = c("guide", "colorbar")))), class = c("gg", 
         "ggplot")), row.dendrogram = FALSE, col.dendrogram = FALSE, yt.axis = TRUE, yr.axis = TRUE, 
         yt.axis.name = "NULL", yr.axis.name = "NULL", padding = 1, bottom.label.size = 0.2, 
         left.label.size = 0.2)
  4: gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
         pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
  5: is.grob(grobs)
  6: gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), pattern = "guide-box", trim = TRUE, 
         fixed = TRUE)
  7: grepl(pattern, .subset2(x$layout, "name"), fixed = fixed)
  8: ggplot2::ggplotGrob(gg.legend)
  9: ggplot_gtable(ggplot_build(x))
  10: ggplot_gtable.ggplot_built(ggplot_build(x))
  ...
  22: pushvpgp(x)
  23: pushgrobvp(x$vp)
  24: pushgrobvp.viewport(x$vp)
  25: pushViewport(vp, recording = FALSE)
  26: lapply(vps, push.vp, recording)
  27: FUN(X[[i]], ...)
  28: push.vp.vpTree(X[[i]], ...)
  29: push.vp(vp$parent, recording)
  30: push.vp.viewport(vp$parent, recording)
  31: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 24. Error: no warning when coloring left labels (@test-labels.R#43)  ────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: superheat(X, left.label.col = c("red", "blue", "green", "red", "red", "blue", "purple")) at testthat/test-labels.R:43
  2: do.call(generate_grobs, grob.arg.list)
  3: (function (layout, gg.top = NULL, gg.right = NULL, gg.bottom = NULL, gg.left = NULL, 
         gg.legend = NULL, gg.title = NULL, gg.row.title = NULL, gg.column.title = NULL, 
         row.dendrogram = F, col.dendrogram = F, yt.axis = T, yr.axis = T, yt.axis.name = T, 
         yr.axis.name = T, padding = 1, bottom.label.size = 0.1, left.label.size = 0.1) 
     {
         if (row.dendrogram) {
             yr.axis <- F
         }
         if (col.dendrogram) {
             yt.axis <- F
         }
         if (!is.null(gg.legend)) {
             t <- nrow(layout)
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
                 pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.right)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yr.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "axis-b", trim = TRUE, fixed = TRUE), t = (t + 1), l = l)
             }
             if (yr.axis && !is.null(yr.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "xlab", trim = TRUE, fixed = TRUE), t = (t + 2), l = l)
             }
         }
         if (!is.null(gg.top)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yt.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "axis-l", trim = TRUE, fixed = TRUE), t = t, l = (l - 1))
             }
             if (yt.axis & !is.null(yt.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "ylab", trim = TRUE, fixed = TRUE), t = t, l = (l - 2))
             }
         }
         if (!is.null(gg.left)) {
             t <- 1
             l <- 1
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if ((left.label.size <= 0.2) && !is.null(gg.top) && yt.axis && !is.null(yt.axis.name)) {
                 l <- l + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.row.title) && (!(!is.null(gg.top) && yt.axis) | is.null(gg.top) && 
                 !is.null(gg.left) | !is.null(gg.top) && yt.axis && !is.null(gg.left) && 
                 left.label.size >= 0.2)) {
                 l <- l + 1
             }
             r <- l
             if (left.label.size > 0.2 && !is.null(gg.top) && yt.axis) {
                 r <- r + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.left), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, r = r)
         }
         if (!is.null(gg.bottom)) {
             t <- 2
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             b <- t
             if (bottom.label.size > 0.2 && !is.null(gg.right) && yr.axis) {
                 b <- t + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.bottom), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, b = b)
             b.bottom <- b
         }
         if (!is.null(gg.title)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.row.title)) {
             l <- 1
             t <- 1
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.top) && yt.axis && is.null(gg.left)) {
                 l <- l + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.row.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.column.title)) {
             if (!is.null(gg.bottom)) {
                 t <- b.bottom + 1
             }
             else {
                 t <- 2
                 if (!is.null(gg.title)) {
                     t <- t + 1
                 }
                 if (!is.null(gg.top)) {
                     t <- t + 1
                 }
             }
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.column.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         layout <- gtable::gtable_add_padding(layout, grid::unit(padding, "cm"))
         return(layout)
     })(layout = structure(list(grobs = list(structure(list(name = "panel-1.gTree.1983", 
         gp = NULL, vp = NULL, children = structure(list(grill.gTree.1981 = structure(list(
             name = "grill.gTree.1981", gp = NULL, vp = NULL, children = structure(list(
                 panel.background..rect.1972 = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     just = "centre", hjust = NULL, vjust = NULL, name = "panel.background..rect.1972", 
                     gp = structure(list(lwd = 1.42263779527559, col = NA, fill = "grey92", 
                       lty = 1), class = "gpar"), vp = NULL), class = c("rect", "grob", 
                 "gDesc")), panel.grid.minor.y..polyline.1974 = structure(list(x = structure(c(0, 
                 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.0625, 
                 0.0625, 0.3125, 0.3125, 0.5625, 0.5625, 0.8125, 0.8125), unit = 0L, class = c("simpleUnit", 
                 "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.minor.y..polyline.1974", 
                     gp = structure(list(lwd = 0.711318897637795, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.minor.x..polyline.1976 = structure(list(
                     x = structure(c(0.0833333333333333, 0.0833333333333333, 0.25, 0.25, 
                     0.416666666666667, 0.416666666666667, 0.583333333333333, 0.583333333333333, 
                     0.75, 0.75, 0.916666666666667, 0.916666666666667), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, 
                     name = "panel.grid.minor.x..polyline.1976", gp = structure(list(lwd = 0.711318897637795, 
                       col = "white", lty = 1, lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.y..polyline.1978 = structure(list(
                     x = structure(c(0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0.1875, 0.1875, 0.4375, 0.4375, 0.6875, 
                     0.6875, 0.9375, 0.9375), unit = 4L, class = c("simpleUnit", "unit"
                     )), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.y..polyline.1978", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.x..polyline.1980 = structure(list(
                     x = structure(c(0, 0, 0.166666666666667, 0.166666666666667, 0.333333333333333, 
                     0.333333333333333, 0.5, 0.5, 0.666666666666667, 0.666666666666667, 
                     0.833333333333333, 0.833333333333333, 1, 1), unit = 4L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 
                     1), unit = 0L, class = c("simpleUnit", "unit")), id = NULL, id.lengths = c(2L, 
                     2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.x..polyline.1980", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc"))), class = "gList"), childrenOrder = c("panel.background..rect.1972", 
             "panel.grid.minor.y..polyline.1974", "panel.grid.minor.x..polyline.1976", 
             "panel.grid.major.y..polyline.1978", "panel.grid.major.x..polyline.1980")), class = c("gTree", 
         "grob", "gDesc")), `NULL` = structure(list(name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", 
         "grob", "gDesc")), GRID.rastergrob.1955 = structure(list(raster = structure(c("#CEDE41FF", 
         "#45306FFF", "#FDE725FF", "#45306FFF", "#21908CFF", "#45306FFF", "#5DC863FF", 
         "#45306FFF", "#21908CFF", "#50B572FF", "#45306FFF", "#5DC863FF", "#45306FFF", 
         "#FDE725FF", "#CEDE41FF", "#21908CFF", "#45306FFF", "#45306FFF", "#45306FFF", 
         "#21908CFF", "#5DC863FF", "#45306FFF", "#5DC863FF", "#50B572FF"), .Dim = c(8L, 
         3L), class = "raster"), x = structure(0.5, unit = 4L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), width = structure(1, unit = 4L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             just = "centre", hjust = NULL, vjust = NULL, interpolate = FALSE, name = "GRID.rastergrob.1955", 
             gp = structure(list(), class = "gpar"), vp = NULL), class = c("rastergrob", 
         "grob", "gDesc")), GRID.segments.1956 = structure(list(x0 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1956", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1957 = structure(list(
             x0 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", "unit"
             )), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", 
             "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             arrow = NULL, name = "GRID.segments.1957", gp = structure(list(col = "#000000FF", 
                 fill = "#000000FF", lwd = 1.42263779527559, lty = 1, lineend = "butt", 
                 linejoin = "round"), class = "gpar"), vp = NULL), class = c("segments", 
         "grob", "gDesc")), GRID.segments.1958 = structure(list(x0 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1958", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1959 = structure(list(
             x0 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1959", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1960 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1960", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1961 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.125, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.125, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1961", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1962 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.25, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.25, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1962", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1963 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.375, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.375, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1963", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1964 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.5, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1964", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1965 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.625, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.625, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1965", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1966 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.75, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.75, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1966", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1967 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.875, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.875, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1967", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.1968 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(1, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.1968", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), `NULL` = structure(list(
             name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"
         )), panel.border..zeroGrob.1969 = structure(list(name = "panel.border..zeroGrob.1969", 
             gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"))), class = "gList"), 
         childrenOrder = c("grill.gTree.1981", "NULL", "GRID.rastergrob.1955", "GRID.segments.1956", 
         "GRID.segments.1957", "GRID.segments.1958", "GRID.segments.1959", "GRID.segments.1960", 
         "GRID.segments.1961", "GRID.segments.1962", "GRID.segments.1963", "GRID.segments.1964", 
         "GRID.segments.1965", "GRID.segments.1966", "GRID.segments.1967", "GRID.segments.1968", 
         "NULL", "panel.border..zeroGrob.1969")), class = c("gTree", "grob", "gDesc"))), 
         layout = structure(list(t = 1, l = 2, b = 1, r = 2, z = 1, clip = "on", name = "panel"), row.names = c(NA, 
         -1L), class = "data.frame"), widths = structure(list(list(0.2, NULL, 5L), list(
             1, NULL, 5L)), class = "unit"), heights = structure(list(list(1, NULL, 5L), 
             list(0.2, NULL, 5L), list(0.1, NULL, 5L)), class = "unit"), respect = FALSE, 
         rownames = NULL, colnames = NULL, name = "layout", gp = NULL, vp = NULL, children = structure(list(), class = "gList"), 
         childrenOrder = character(0)), class = c("gtable", "gTree", "grob", "gDesc")), 
         gg.bottom = structure(list(data = structure(list(variable = structure(1:3, .Label = c("1", 
         "2", "3"), class = "factor"), col = structure(c(1L, 2L, 1L), .Label = c("grey95", 
         "grey80"), class = "factor"), n = c(1, 1, 1), id = 1:3, increment = c(0.333333333333333, 
         0.333333333333333, 0.333333333333333), breaks = c(1, 1.33333333333333, 1.66666666666667
         )), row.names = c(NA, -3L), class = "data.frame"), layers = list(<environment>, 
             <environment>), scales = <environment>, mapping = structure(list(xmin = ~breaks, 
             xmax = ~breaks + increment, ymin = 0, ymax = 1, fill = ~col), class = "uneval"), 
             theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(xmin = "breaks", 
                 xmax = "breaks + increment", ymin = "ymin", ymax = "ymax", fill = "col", 
                 x = "breaks + increment/2", y = "pos", label = "variable")), class = c("gg", 
         "ggplot")), gg.left = structure(list(data = structure(list(variable = structure(1:8, .Label = c("1", 
         "2", "3", "4", "5", "6", "7", "8"), class = "factor"), col = structure(c(1L, 
         2L, 3L, 1L, 1L, 2L, 4L, 1L), .Label = c("red", "blue", "green", "purple"), class = "factor"), 
             n = c(1, 1, 1, 1, 1, 1, 1, 1), id = 1:8, increment = c(0.125, 0.125, 0.125, 
             0.125, 0.125, 0.125, 0.125, 0.125), breaks = c(1, 1.125, 1.25, 1.375, 1.5, 
             1.625, 1.75, 1.875)), row.names = c(NA, -8L), class = "data.frame"), layers = list(
             <environment>, <environment>), scales = <environment>, mapping = structure(list(
             xmin = 0, xmax = 1, ymin = ~breaks, ymax = ~breaks + increment, fill = ~col), class = "uneval"), 
             theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(xmin = "xmin", 
                 xmax = "xmax", ymin = "breaks", ymax = "breaks + increment", fill = "col", 
                 x = "pos", y = "breaks + increment/2", label = "variable")), class = c("gg", 
         "ggplot")), gg.legend = structure(list(data = structure(list(value = c(1, 1, 
         2, 1, 4, 5, 1, 7, 5, 2, 1, 8, 1, 1, 2, 1, 4, 5, 1, 7, 5, 2, 1, 8), x = c(1, 1, 
         1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3), y = c(1, 2, 
         3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8)), class = "data.frame", row.names = c(NA, 
         -24L)), layers = list(<environment>, <environment>, <environment>, <environment>, 
             <environment>, <environment>, <environment>, <environment>, <environment>, 
             <environment>, <environment>, <environment>, <environment>, <environment>), 
             scales = <environment>, mapping = structure(list(), .Names = character(0), class = "uneval"), 
             theme = structure(list(axis.text.x = structure(list(), class = c("element_blank", 
             "element")), axis.text.y = structure(list(), class = c("element_blank", "element"
             )), axis.ticks = structure(list(), class = c("element_blank", "element")), 
                 legend.key.width = structure(2, unit = 3L, class = c("simpleUnit", "unit"
                 )), legend.text = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = 12, hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, 
                     margin = NULL, debug = NULL, inherit.blank = FALSE), class = c("element_text", 
                 "element")), legend.direction = "horizontal"), class = c("theme", "gg"
             ), complete = FALSE, validate = FALSE), coordinates = <environment>, facet = <environment>, 
             plot_env = <environment>, labels = list(x = "x", y = "y", fill = "value", 
                 xintercept = "xintercept", yintercept = "yintercept"), guides = list(
                 fill = structure(list(title = structure(list(), class = "waiver"), title.position = NULL, 
                     title.theme = NULL, title.hjust = NULL, title.vjust = NULL, label = TRUE, 
                     label.position = NULL, label.theme = NULL, label.hjust = NULL, label.vjust = NULL, 
                     barwidth = structure(15, unit = 3L, class = c("simpleUnit", "unit"
                     )), barheight = structure(1, unit = 3L, class = c("simpleUnit", "unit"
                     )), nbin = 20, raster = TRUE, frame.colour = NULL, frame.linewidth = 0.5, 
                     frame.linetype = 1, ticks = TRUE, ticks.colour = "white", ticks.linewidth = 0.5, 
                     draw.ulim = TRUE, draw.llim = TRUE, direction = NULL, default.unit = "line", 
                     reverse = FALSE, order = 0, available_aes = c("colour", "color", 
                     "fill"), name = "colorbar"), class = c("guide", "colorbar")))), class = c("gg", 
         "ggplot")), row.dendrogram = FALSE, col.dendrogram = FALSE, yt.axis = TRUE, yr.axis = TRUE, 
         yt.axis.name = "NULL", yr.axis.name = "NULL", padding = 1, bottom.label.size = 0.2, 
         left.label.size = 0.2)
  4: gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
         pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
  5: is.grob(grobs)
  6: gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), pattern = "guide-box", trim = TRUE, 
         fixed = TRUE)
  7: grepl(pattern, .subset2(x$layout, "name"), fixed = fixed)
  8: ggplot2::ggplotGrob(gg.legend)
  9: ggplot_gtable(ggplot_build(x))
  10: ggplot_gtable.ggplot_built(ggplot_build(x))
  ...
  22: pushvpgp(x)
  23: pushgrobvp(x$vp)
  24: pushgrobvp.viewport(x$vp)
  25: pushViewport(vp, recording = FALSE)
  26: lapply(vps, push.vp, recording)
  27: FUN(X[[i]], ...)
  28: push.vp.vpTree(X[[i]], ...)
  29: push.vp(vp$parent, recording)
  30: push.vp.viewport(vp$parent, recording)
  31: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 25. Error: no warning when coloring bottom labels (@test-labels.R#49)  ──────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: superheat(X, bottom.label.col = c("red", "blue", "green")) at testthat/test-labels.R:49
  2: do.call(generate_grobs, grob.arg.list)
  3: (function (layout, gg.top = NULL, gg.right = NULL, gg.bottom = NULL, gg.left = NULL, 
         gg.legend = NULL, gg.title = NULL, gg.row.title = NULL, gg.column.title = NULL, 
         row.dendrogram = F, col.dendrogram = F, yt.axis = T, yr.axis = T, yt.axis.name = T, 
         yr.axis.name = T, padding = 1, bottom.label.size = 0.1, left.label.size = 0.1) 
     {
         if (row.dendrogram) {
             yr.axis <- F
         }
         if (col.dendrogram) {
             yt.axis <- F
         }
         if (!is.null(gg.legend)) {
             t <- nrow(layout)
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
                 pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.right)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yr.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "axis-b", trim = TRUE, fixed = TRUE), t = (t + 1), l = l)
             }
             if (yr.axis && !is.null(yr.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "xlab", trim = TRUE, fixed = TRUE), t = (t + 2), l = l)
             }
         }
         if (!is.null(gg.top)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yt.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "axis-l", trim = TRUE, fixed = TRUE), t = t, l = (l - 1))
             }
             if (yt.axis & !is.null(yt.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "ylab", trim = TRUE, fixed = TRUE), t = t, l = (l - 2))
             }
         }
         if (!is.null(gg.left)) {
             t <- 1
             l <- 1
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if ((left.label.size <= 0.2) && !is.null(gg.top) && yt.axis && !is.null(yt.axis.name)) {
                 l <- l + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.row.title) && (!(!is.null(gg.top) && yt.axis) | is.null(gg.top) && 
                 !is.null(gg.left) | !is.null(gg.top) && yt.axis && !is.null(gg.left) && 
                 left.label.size >= 0.2)) {
                 l <- l + 1
             }
             r <- l
             if (left.label.size > 0.2 && !is.null(gg.top) && yt.axis) {
                 r <- r + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.left), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, r = r)
         }
         if (!is.null(gg.bottom)) {
             t <- 2
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             b <- t
             if (bottom.label.size > 0.2 && !is.null(gg.right) && yr.axis) {
                 b <- t + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.bottom), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, b = b)
             b.bottom <- b
         }
         if (!is.null(gg.title)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.row.title)) {
             l <- 1
             t <- 1
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.top) && yt.axis && is.null(gg.left)) {
                 l <- l + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.row.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.column.title)) {
             if (!is.null(gg.bottom)) {
                 t <- b.bottom + 1
             }
             else {
                 t <- 2
                 if (!is.null(gg.title)) {
                     t <- t + 1
                 }
                 if (!is.null(gg.top)) {
                     t <- t + 1
                 }
             }
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.column.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         layout <- gtable::gtable_add_padding(layout, grid::unit(padding, "cm"))
         return(layout)
     })(layout = structure(list(grobs = list(structure(list(name = "panel-1.gTree.2079", 
         gp = NULL, vp = NULL, children = structure(list(grill.gTree.2077 = structure(list(
             name = "grill.gTree.2077", gp = NULL, vp = NULL, children = structure(list(
                 panel.background..rect.2068 = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     just = "centre", hjust = NULL, vjust = NULL, name = "panel.background..rect.2068", 
                     gp = structure(list(lwd = 1.42263779527559, col = NA, fill = "grey92", 
                       lty = 1), class = "gpar"), vp = NULL), class = c("rect", "grob", 
                 "gDesc")), panel.grid.minor.y..polyline.2070 = structure(list(x = structure(c(0, 
                 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.0625, 
                 0.0625, 0.3125, 0.3125, 0.5625, 0.5625, 0.8125, 0.8125), unit = 0L, class = c("simpleUnit", 
                 "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.minor.y..polyline.2070", 
                     gp = structure(list(lwd = 0.711318897637795, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.minor.x..polyline.2072 = structure(list(
                     x = structure(c(0.0833333333333333, 0.0833333333333333, 0.25, 0.25, 
                     0.416666666666667, 0.416666666666667, 0.583333333333333, 0.583333333333333, 
                     0.75, 0.75, 0.916666666666667, 0.916666666666667), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, 
                     name = "panel.grid.minor.x..polyline.2072", gp = structure(list(lwd = 0.711318897637795, 
                       col = "white", lty = 1, lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.y..polyline.2074 = structure(list(
                     x = structure(c(0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0.1875, 0.1875, 0.4375, 0.4375, 0.6875, 
                     0.6875, 0.9375, 0.9375), unit = 4L, class = c("simpleUnit", "unit"
                     )), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.y..polyline.2074", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.x..polyline.2076 = structure(list(
                     x = structure(c(0, 0, 0.166666666666667, 0.166666666666667, 0.333333333333333, 
                     0.333333333333333, 0.5, 0.5, 0.666666666666667, 0.666666666666667, 
                     0.833333333333333, 0.833333333333333, 1, 1), unit = 4L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 
                     1), unit = 0L, class = c("simpleUnit", "unit")), id = NULL, id.lengths = c(2L, 
                     2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.x..polyline.2076", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc"))), class = "gList"), childrenOrder = c("panel.background..rect.2068", 
             "panel.grid.minor.y..polyline.2070", "panel.grid.minor.x..polyline.2072", 
             "panel.grid.major.y..polyline.2074", "panel.grid.major.x..polyline.2076")), class = c("gTree", 
         "grob", "gDesc")), `NULL` = structure(list(name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", 
         "grob", "gDesc")), GRID.rastergrob.2051 = structure(list(raster = structure(c("#CEDE41FF", 
         "#45306FFF", "#FDE725FF", "#45306FFF", "#21908CFF", "#45306FFF", "#5DC863FF", 
         "#45306FFF", "#21908CFF", "#50B572FF", "#45306FFF", "#5DC863FF", "#45306FFF", 
         "#FDE725FF", "#CEDE41FF", "#21908CFF", "#45306FFF", "#45306FFF", "#45306FFF", 
         "#21908CFF", "#5DC863FF", "#45306FFF", "#5DC863FF", "#50B572FF"), .Dim = c(8L, 
         3L), class = "raster"), x = structure(0.5, unit = 4L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), width = structure(1, unit = 4L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             just = "centre", hjust = NULL, vjust = NULL, interpolate = FALSE, name = "GRID.rastergrob.2051", 
             gp = structure(list(), class = "gpar"), vp = NULL), class = c("rastergrob", 
         "grob", "gDesc")), GRID.segments.2052 = structure(list(x0 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2052", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2053 = structure(list(
             x0 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", "unit"
             )), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", 
             "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             arrow = NULL, name = "GRID.segments.2053", gp = structure(list(col = "#000000FF", 
                 fill = "#000000FF", lwd = 1.42263779527559, lty = 1, lineend = "butt", 
                 linejoin = "round"), class = "gpar"), vp = NULL), class = c("segments", 
         "grob", "gDesc")), GRID.segments.2054 = structure(list(x0 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2054", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2055 = structure(list(
             x0 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2055", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2056 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2056", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2057 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.125, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.125, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2057", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2058 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.25, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.25, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2058", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2059 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.375, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.375, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2059", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2060 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.5, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2060", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2061 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.625, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.625, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2061", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2062 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.75, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.75, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2062", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2063 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.875, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.875, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2063", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2064 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(1, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2064", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), `NULL` = structure(list(
             name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"
         )), panel.border..zeroGrob.2065 = structure(list(name = "panel.border..zeroGrob.2065", 
             gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"))), class = "gList"), 
         childrenOrder = c("grill.gTree.2077", "NULL", "GRID.rastergrob.2051", "GRID.segments.2052", 
         "GRID.segments.2053", "GRID.segments.2054", "GRID.segments.2055", "GRID.segments.2056", 
         "GRID.segments.2057", "GRID.segments.2058", "GRID.segments.2059", "GRID.segments.2060", 
         "GRID.segments.2061", "GRID.segments.2062", "GRID.segments.2063", "GRID.segments.2064", 
         "NULL", "panel.border..zeroGrob.2065")), class = c("gTree", "grob", "gDesc"))), 
         layout = structure(list(t = 1, l = 2, b = 1, r = 2, z = 1, clip = "on", name = "panel"), row.names = c(NA, 
         -1L), class = "data.frame"), widths = structure(list(list(0.2, NULL, 5L), list(
             1, NULL, 5L)), class = "unit"), heights = structure(list(list(1, NULL, 5L), 
             list(0.2, NULL, 5L), list(0.1, NULL, 5L)), class = "unit"), respect = FALSE, 
         rownames = NULL, colnames = NULL, name = "layout", gp = NULL, vp = NULL, children = structure(list(), class = "gList"), 
         childrenOrder = character(0)), class = c("gtable", "gTree", "grob", "gDesc")), 
         gg.bottom = structure(list(data = structure(list(variable = structure(1:3, .Label = c("1", 
         "2", "3"), class = "factor"), col = structure(1:3, .Label = c("red", "blue", 
         "green"), class = "factor"), n = c(1, 1, 1), id = 1:3, increment = c(0.333333333333333, 
         0.333333333333333, 0.333333333333333), breaks = c(1, 1.33333333333333, 1.66666666666667
         )), row.names = c(NA, -3L), class = "data.frame"), layers = list(<environment>, 
             <environment>), scales = <environment>, mapping = structure(list(xmin = ~breaks, 
             xmax = ~breaks + increment, ymin = 0, ymax = 1, fill = ~col), class = "uneval"), 
             theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(xmin = "breaks", 
                 xmax = "breaks + increment", ymin = "ymin", ymax = "ymax", fill = "col", 
                 x = "breaks + increment/2", y = "pos", label = "variable")), class = c("gg", 
         "ggplot")), gg.left = structure(list(data = structure(list(variable = structure(1:8, .Label = c("1", 
         "2", "3", "4", "5", "6", "7", "8"), class = "factor"), col = structure(c(1L, 
         2L, 1L, 2L, 1L, 2L, 1L, 2L), .Label = c("grey95", "grey80"), class = "factor"), 
             n = c(1, 1, 1, 1, 1, 1, 1, 1), id = 1:8, increment = c(0.125, 0.125, 0.125, 
             0.125, 0.125, 0.125, 0.125, 0.125), breaks = c(1, 1.125, 1.25, 1.375, 1.5, 
             1.625, 1.75, 1.875)), row.names = c(NA, -8L), class = "data.frame"), layers = list(
             <environment>, <environment>), scales = <environment>, mapping = structure(list(
             xmin = 0, xmax = 1, ymin = ~breaks, ymax = ~breaks + increment, fill = ~col), class = "uneval"), 
             theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(xmin = "xmin", 
                 xmax = "xmax", ymin = "breaks", ymax = "breaks + increment", fill = "col", 
                 x = "pos", y = "breaks + increment/2", label = "variable")), class = c("gg", 
         "ggplot")), gg.legend = structure(list(data = structure(list(value = c(1, 1, 
         2, 1, 4, 5, 1, 7, 5, 2, 1, 8, 1, 1, 2, 1, 4, 5, 1, 7, 5, 2, 1, 8), x = c(1, 1, 
         1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3), y = c(1, 2, 
         3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8)), class = "data.frame", row.names = c(NA, 
         -24L)), layers = list(<environment>, <environment>, <environment>, <environment>, 
             <environment>, <environment>, <environment>, <environment>, <environment>, 
             <environment>, <environment>, <environment>, <environment>, <environment>), 
             scales = <environment>, mapping = structure(list(), .Names = character(0), class = "uneval"), 
             theme = structure(list(axis.text.x = structure(list(), class = c("element_blank", 
             "element")), axis.text.y = structure(list(), class = c("element_blank", "element"
             )), axis.ticks = structure(list(), class = c("element_blank", "element")), 
                 legend.key.width = structure(2, unit = 3L, class = c("simpleUnit", "unit"
                 )), legend.text = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = 12, hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, 
                     margin = NULL, debug = NULL, inherit.blank = FALSE), class = c("element_text", 
                 "element")), legend.direction = "horizontal"), class = c("theme", "gg"
             ), complete = FALSE, validate = FALSE), coordinates = <environment>, facet = <environment>, 
             plot_env = <environment>, labels = list(x = "x", y = "y", fill = "value", 
                 xintercept = "xintercept", yintercept = "yintercept"), guides = list(
                 fill = structure(list(title = structure(list(), class = "waiver"), title.position = NULL, 
                     title.theme = NULL, title.hjust = NULL, title.vjust = NULL, label = TRUE, 
                     label.position = NULL, label.theme = NULL, label.hjust = NULL, label.vjust = NULL, 
                     barwidth = structure(15, unit = 3L, class = c("simpleUnit", "unit"
                     )), barheight = structure(1, unit = 3L, class = c("simpleUnit", "unit"
                     )), nbin = 20, raster = TRUE, frame.colour = NULL, frame.linewidth = 0.5, 
                     frame.linetype = 1, ticks = TRUE, ticks.colour = "white", ticks.linewidth = 0.5, 
                     draw.ulim = TRUE, draw.llim = TRUE, direction = NULL, default.unit = "line", 
                     reverse = FALSE, order = 0, available_aes = c("colour", "color", 
                     "fill"), name = "colorbar"), class = c("guide", "colorbar")))), class = c("gg", 
         "ggplot")), row.dendrogram = FALSE, col.dendrogram = FALSE, yt.axis = TRUE, yr.axis = TRUE, 
         yt.axis.name = "NULL", yr.axis.name = "NULL", padding = 1, bottom.label.size = 0.2, 
         left.label.size = 0.2)
  4: gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
         pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
  5: is.grob(grobs)
  6: gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), pattern = "guide-box", trim = TRUE, 
         fixed = TRUE)
  7: grepl(pattern, .subset2(x$layout, "name"), fixed = fixed)
  8: ggplot2::ggplotGrob(gg.legend)
  9: ggplot_gtable(ggplot_build(x))
  10: ggplot_gtable.ggplot_built(ggplot_build(x))
  ...
  22: pushvpgp(x)
  23: pushgrobvp(x$vp)
  24: pushgrobvp.viewport(x$vp)
  25: pushViewport(vp, recording = FALSE)
  26: lapply(vps, push.vp, recording)
  27: FUN(X[[i]], ...)
  28: push.vp.vpTree(X[[i]], ...)
  29: push.vp(vp$parent, recording)
  30: push.vp.viewport(vp$parent, recording)
  31: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 26. Error: no warning when coloring bottom labels (@test-labels.R#55)  ──────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: superheat(X, bottom.label.col = c("red", "blue")) at testthat/test-labels.R:55
  2: do.call(generate_grobs, grob.arg.list)
  3: (function (layout, gg.top = NULL, gg.right = NULL, gg.bottom = NULL, gg.left = NULL, 
         gg.legend = NULL, gg.title = NULL, gg.row.title = NULL, gg.column.title = NULL, 
         row.dendrogram = F, col.dendrogram = F, yt.axis = T, yr.axis = T, yt.axis.name = T, 
         yr.axis.name = T, padding = 1, bottom.label.size = 0.1, left.label.size = 0.1) 
     {
         if (row.dendrogram) {
             yr.axis <- F
         }
         if (col.dendrogram) {
             yt.axis <- F
         }
         if (!is.null(gg.legend)) {
             t <- nrow(layout)
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
                 pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.right)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yr.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "axis-b", trim = TRUE, fixed = TRUE), t = (t + 1), l = l)
             }
             if (yr.axis && !is.null(yr.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "xlab", trim = TRUE, fixed = TRUE), t = (t + 2), l = l)
             }
         }
         if (!is.null(gg.top)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yt.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "axis-l", trim = TRUE, fixed = TRUE), t = t, l = (l - 1))
             }
             if (yt.axis & !is.null(yt.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "ylab", trim = TRUE, fixed = TRUE), t = t, l = (l - 2))
             }
         }
         if (!is.null(gg.left)) {
             t <- 1
             l <- 1
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if ((left.label.size <= 0.2) && !is.null(gg.top) && yt.axis && !is.null(yt.axis.name)) {
                 l <- l + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.row.title) && (!(!is.null(gg.top) && yt.axis) | is.null(gg.top) && 
                 !is.null(gg.left) | !is.null(gg.top) && yt.axis && !is.null(gg.left) && 
                 left.label.size >= 0.2)) {
                 l <- l + 1
             }
             r <- l
             if (left.label.size > 0.2 && !is.null(gg.top) && yt.axis) {
                 r <- r + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.left), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, r = r)
         }
         if (!is.null(gg.bottom)) {
             t <- 2
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             b <- t
             if (bottom.label.size > 0.2 && !is.null(gg.right) && yr.axis) {
                 b <- t + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.bottom), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, b = b)
             b.bottom <- b
         }
         if (!is.null(gg.title)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.row.title)) {
             l <- 1
             t <- 1
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.top) && yt.axis && is.null(gg.left)) {
                 l <- l + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.row.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.column.title)) {
             if (!is.null(gg.bottom)) {
                 t <- b.bottom + 1
             }
             else {
                 t <- 2
                 if (!is.null(gg.title)) {
                     t <- t + 1
                 }
                 if (!is.null(gg.top)) {
                     t <- t + 1
                 }
             }
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.column.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         layout <- gtable::gtable_add_padding(layout, grid::unit(padding, "cm"))
         return(layout)
     })(layout = structure(list(grobs = list(structure(list(name = "panel-1.gTree.2175", 
         gp = NULL, vp = NULL, children = structure(list(grill.gTree.2173 = structure(list(
             name = "grill.gTree.2173", gp = NULL, vp = NULL, children = structure(list(
                 panel.background..rect.2164 = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     just = "centre", hjust = NULL, vjust = NULL, name = "panel.background..rect.2164", 
                     gp = structure(list(lwd = 1.42263779527559, col = NA, fill = "grey92", 
                       lty = 1), class = "gpar"), vp = NULL), class = c("rect", "grob", 
                 "gDesc")), panel.grid.minor.y..polyline.2166 = structure(list(x = structure(c(0, 
                 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.0625, 
                 0.0625, 0.3125, 0.3125, 0.5625, 0.5625, 0.8125, 0.8125), unit = 0L, class = c("simpleUnit", 
                 "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.minor.y..polyline.2166", 
                     gp = structure(list(lwd = 0.711318897637795, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.minor.x..polyline.2168 = structure(list(
                     x = structure(c(0.0833333333333333, 0.0833333333333333, 0.25, 0.25, 
                     0.416666666666667, 0.416666666666667, 0.583333333333333, 0.583333333333333, 
                     0.75, 0.75, 0.916666666666667, 0.916666666666667), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, 
                     name = "panel.grid.minor.x..polyline.2168", gp = structure(list(lwd = 0.711318897637795, 
                       col = "white", lty = 1, lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.y..polyline.2170 = structure(list(
                     x = structure(c(0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0.1875, 0.1875, 0.4375, 0.4375, 0.6875, 
                     0.6875, 0.9375, 0.9375), unit = 4L, class = c("simpleUnit", "unit"
                     )), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.y..polyline.2170", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.x..polyline.2172 = structure(list(
                     x = structure(c(0, 0, 0.166666666666667, 0.166666666666667, 0.333333333333333, 
                     0.333333333333333, 0.5, 0.5, 0.666666666666667, 0.666666666666667, 
                     0.833333333333333, 0.833333333333333, 1, 1), unit = 4L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 
                     1), unit = 0L, class = c("simpleUnit", "unit")), id = NULL, id.lengths = c(2L, 
                     2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.x..polyline.2172", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc"))), class = "gList"), childrenOrder = c("panel.background..rect.2164", 
             "panel.grid.minor.y..polyline.2166", "panel.grid.minor.x..polyline.2168", 
             "panel.grid.major.y..polyline.2170", "panel.grid.major.x..polyline.2172")), class = c("gTree", 
         "grob", "gDesc")), `NULL` = structure(list(name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", 
         "grob", "gDesc")), GRID.rastergrob.2147 = structure(list(raster = structure(c("#CEDE41FF", 
         "#45306FFF", "#FDE725FF", "#45306FFF", "#21908CFF", "#45306FFF", "#5DC863FF", 
         "#45306FFF", "#21908CFF", "#50B572FF", "#45306FFF", "#5DC863FF", "#45306FFF", 
         "#FDE725FF", "#CEDE41FF", "#21908CFF", "#45306FFF", "#45306FFF", "#45306FFF", 
         "#21908CFF", "#5DC863FF", "#45306FFF", "#5DC863FF", "#50B572FF"), .Dim = c(8L, 
         3L), class = "raster"), x = structure(0.5, unit = 4L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), width = structure(1, unit = 4L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             just = "centre", hjust = NULL, vjust = NULL, interpolate = FALSE, name = "GRID.rastergrob.2147", 
             gp = structure(list(), class = "gpar"), vp = NULL), class = c("rastergrob", 
         "grob", "gDesc")), GRID.segments.2148 = structure(list(x0 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2148", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2149 = structure(list(
             x0 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", "unit"
             )), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", 
             "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             arrow = NULL, name = "GRID.segments.2149", gp = structure(list(col = "#000000FF", 
                 fill = "#000000FF", lwd = 1.42263779527559, lty = 1, lineend = "butt", 
                 linejoin = "round"), class = "gpar"), vp = NULL), class = c("segments", 
         "grob", "gDesc")), GRID.segments.2150 = structure(list(x0 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2150", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2151 = structure(list(
             x0 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2151", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2152 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2152", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2153 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.125, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.125, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2153", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2154 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.25, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.25, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2154", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2155 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.375, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.375, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2155", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2156 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.5, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2156", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2157 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.625, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.625, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2157", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2158 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.75, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.75, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2158", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2159 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.875, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.875, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2159", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2160 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(1, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2160", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), `NULL` = structure(list(
             name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"
         )), panel.border..zeroGrob.2161 = structure(list(name = "panel.border..zeroGrob.2161", 
             gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"))), class = "gList"), 
         childrenOrder = c("grill.gTree.2173", "NULL", "GRID.rastergrob.2147", "GRID.segments.2148", 
         "GRID.segments.2149", "GRID.segments.2150", "GRID.segments.2151", "GRID.segments.2152", 
         "GRID.segments.2153", "GRID.segments.2154", "GRID.segments.2155", "GRID.segments.2156", 
         "GRID.segments.2157", "GRID.segments.2158", "GRID.segments.2159", "GRID.segments.2160", 
         "NULL", "panel.border..zeroGrob.2161")), class = c("gTree", "grob", "gDesc"))), 
         layout = structure(list(t = 1, l = 2, b = 1, r = 2, z = 1, clip = "on", name = "panel"), row.names = c(NA, 
         -1L), class = "data.frame"), widths = structure(list(list(0.2, NULL, 5L), list(
             1, NULL, 5L)), class = "unit"), heights = structure(list(list(1, NULL, 5L), 
             list(0.2, NULL, 5L), list(0.1, NULL, 5L)), class = "unit"), respect = FALSE, 
         rownames = NULL, colnames = NULL, name = "layout", gp = NULL, vp = NULL, children = structure(list(), class = "gList"), 
         childrenOrder = character(0)), class = c("gtable", "gTree", "grob", "gDesc")), 
         gg.bottom = structure(list(data = structure(list(variable = structure(1:3, .Label = c("1", 
         "2", "3"), class = "factor"), col = structure(c(1L, 2L, 1L), .Label = c("red", 
         "blue"), class = "factor"), n = c(1, 1, 1), id = 1:3, increment = c(0.333333333333333, 
         0.333333333333333, 0.333333333333333), breaks = c(1, 1.33333333333333, 1.66666666666667
         )), row.names = c(NA, -3L), class = "data.frame"), layers = list(<environment>, 
             <environment>), scales = <environment>, mapping = structure(list(xmin = ~breaks, 
             xmax = ~breaks + increment, ymin = 0, ymax = 1, fill = ~col), class = "uneval"), 
             theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(xmin = "breaks", 
                 xmax = "breaks + increment", ymin = "ymin", ymax = "ymax", fill = "col", 
                 x = "breaks + increment/2", y = "pos", label = "variable")), class = c("gg", 
         "ggplot")), gg.left = structure(list(data = structure(list(variable = structure(1:8, .Label = c("1", 
         "2", "3", "4", "5", "6", "7", "8"), class = "factor"), col = structure(c(1L, 
         2L, 1L, 2L, 1L, 2L, 1L, 2L), .Label = c("grey95", "grey80"), class = "factor"), 
             n = c(1, 1, 1, 1, 1, 1, 1, 1), id = 1:8, increment = c(0.125, 0.125, 0.125, 
             0.125, 0.125, 0.125, 0.125, 0.125), breaks = c(1, 1.125, 1.25, 1.375, 1.5, 
             1.625, 1.75, 1.875)), row.names = c(NA, -8L), class = "data.frame"), layers = list(
             <environment>, <environment>), scales = <environment>, mapping = structure(list(
             xmin = 0, xmax = 1, ymin = ~breaks, ymax = ~breaks + increment, fill = ~col), class = "uneval"), 
             theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(xmin = "xmin", 
                 xmax = "xmax", ymin = "breaks", ymax = "breaks + increment", fill = "col", 
                 x = "pos", y = "breaks + increment/2", label = "variable")), class = c("gg", 
         "ggplot")), gg.legend = structure(list(data = structure(list(value = c(1, 1, 
         2, 1, 4, 5, 1, 7, 5, 2, 1, 8, 1, 1, 2, 1, 4, 5, 1, 7, 5, 2, 1, 8), x = c(1, 1, 
         1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3), y = c(1, 2, 
         3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8)), class = "data.frame", row.names = c(NA, 
         -24L)), layers = list(<environment>, <environment>, <environment>, <environment>, 
             <environment>, <environment>, <environment>, <environment>, <environment>, 
             <environment>, <environment>, <environment>, <environment>, <environment>), 
             scales = <environment>, mapping = structure(list(), .Names = character(0), class = "uneval"), 
             theme = structure(list(axis.text.x = structure(list(), class = c("element_blank", 
             "element")), axis.text.y = structure(list(), class = c("element_blank", "element"
             )), axis.ticks = structure(list(), class = c("element_blank", "element")), 
                 legend.key.width = structure(2, unit = 3L, class = c("simpleUnit", "unit"
                 )), legend.text = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = 12, hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, 
                     margin = NULL, debug = NULL, inherit.blank = FALSE), class = c("element_text", 
                 "element")), legend.direction = "horizontal"), class = c("theme", "gg"
             ), complete = FALSE, validate = FALSE), coordinates = <environment>, facet = <environment>, 
             plot_env = <environment>, labels = list(x = "x", y = "y", fill = "value", 
                 xintercept = "xintercept", yintercept = "yintercept"), guides = list(
                 fill = structure(list(title = structure(list(), class = "waiver"), title.position = NULL, 
                     title.theme = NULL, title.hjust = NULL, title.vjust = NULL, label = TRUE, 
                     label.position = NULL, label.theme = NULL, label.hjust = NULL, label.vjust = NULL, 
                     barwidth = structure(15, unit = 3L, class = c("simpleUnit", "unit"
                     )), barheight = structure(1, unit = 3L, class = c("simpleUnit", "unit"
                     )), nbin = 20, raster = TRUE, frame.colour = NULL, frame.linewidth = 0.5, 
                     frame.linetype = 1, ticks = TRUE, ticks.colour = "white", ticks.linewidth = 0.5, 
                     draw.ulim = TRUE, draw.llim = TRUE, direction = NULL, default.unit = "line", 
                     reverse = FALSE, order = 0, available_aes = c("colour", "color", 
                     "fill"), name = "colorbar"), class = c("guide", "colorbar")))), class = c("gg", 
         "ggplot")), row.dendrogram = FALSE, col.dendrogram = FALSE, yt.axis = TRUE, yr.axis = TRUE, 
         yt.axis.name = "NULL", yr.axis.name = "NULL", padding = 1, bottom.label.size = 0.2, 
         left.label.size = 0.2)
  4: gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
         pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
  5: is.grob(grobs)
  6: gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), pattern = "guide-box", trim = TRUE, 
         fixed = TRUE)
  7: grepl(pattern, .subset2(x$layout, "name"), fixed = fixed)
  8: ggplot2::ggplotGrob(gg.legend)
  9: ggplot_gtable(ggplot_build(x))
  10: ggplot_gtable.ggplot_built(ggplot_build(x))
  ...
  22: pushvpgp(x)
  23: pushgrobvp(x$vp)
  24: pushgrobvp.viewport(x$vp)
  25: pushViewport(vp, recording = FALSE)
  26: lapply(vps, push.vp, recording)
  27: FUN(X[[i]], ...)
  28: push.vp.vpTree(X[[i]], ...)
  29: push.vp(vp$parent, recording)
  30: push.vp.viewport(vp$parent, recording)
  31: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 27. Error: no warning when clustering and coloring bottom labels (@test-label
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: superheat(X, membership.cols = cluster.cols, bottom.label.col = c("red", "blue")) at testthat/test-labels.R:62
  2: do.call(generate_grobs, grob.arg.list)
  3: (function (layout, gg.top = NULL, gg.right = NULL, gg.bottom = NULL, gg.left = NULL, 
         gg.legend = NULL, gg.title = NULL, gg.row.title = NULL, gg.column.title = NULL, 
         row.dendrogram = F, col.dendrogram = F, yt.axis = T, yr.axis = T, yt.axis.name = T, 
         yr.axis.name = T, padding = 1, bottom.label.size = 0.1, left.label.size = 0.1) 
     {
         if (row.dendrogram) {
             yr.axis <- F
         }
         if (col.dendrogram) {
             yt.axis <- F
         }
         if (!is.null(gg.legend)) {
             t <- nrow(layout)
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
                 pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.right)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yr.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "axis-b", trim = TRUE, fixed = TRUE), t = (t + 1), l = l)
             }
             if (yr.axis && !is.null(yr.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "xlab", trim = TRUE, fixed = TRUE), t = (t + 2), l = l)
             }
         }
         if (!is.null(gg.top)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yt.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "axis-l", trim = TRUE, fixed = TRUE), t = t, l = (l - 1))
             }
             if (yt.axis & !is.null(yt.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "ylab", trim = TRUE, fixed = TRUE), t = t, l = (l - 2))
             }
         }
         if (!is.null(gg.left)) {
             t <- 1
             l <- 1
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if ((left.label.size <= 0.2) && !is.null(gg.top) && yt.axis && !is.null(yt.axis.name)) {
                 l <- l + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.row.title) && (!(!is.null(gg.top) && yt.axis) | is.null(gg.top) && 
                 !is.null(gg.left) | !is.null(gg.top) && yt.axis && !is.null(gg.left) && 
                 left.label.size >= 0.2)) {
                 l <- l + 1
             }
             r <- l
             if (left.label.size > 0.2 && !is.null(gg.top) && yt.axis) {
                 r <- r + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.left), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, r = r)
         }
         if (!is.null(gg.bottom)) {
             t <- 2
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             b <- t
             if (bottom.label.size > 0.2 && !is.null(gg.right) && yr.axis) {
                 b <- t + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.bottom), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, b = b)
             b.bottom <- b
         }
         if (!is.null(gg.title)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.row.title)) {
             l <- 1
             t <- 1
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.top) && yt.axis && is.null(gg.left)) {
                 l <- l + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.row.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.column.title)) {
             if (!is.null(gg.bottom)) {
                 t <- b.bottom + 1
             }
             else {
                 t <- 2
                 if (!is.null(gg.title)) {
                     t <- t + 1
                 }
                 if (!is.null(gg.top)) {
                     t <- t + 1
                 }
             }
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.column.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         layout <- gtable::gtable_add_padding(layout, grid::unit(padding, "cm"))
         return(layout)
     })(layout = structure(list(grobs = list(structure(list(name = "panel-1.gTree.2270", 
         gp = NULL, vp = NULL, children = structure(list(grill.gTree.2268 = structure(list(
             name = "grill.gTree.2268", gp = NULL, vp = NULL, children = structure(list(
                 panel.background..rect.2259 = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     just = "centre", hjust = NULL, vjust = NULL, name = "panel.background..rect.2259", 
                     gp = structure(list(lwd = 1.42263779527559, col = NA, fill = "grey92", 
                       lty = 1), class = "gpar"), vp = NULL), class = c("rect", "grob", 
                 "gDesc")), panel.grid.minor.y..polyline.2261 = structure(list(x = structure(c(0, 
                 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.0625, 
                 0.0625, 0.3125, 0.3125, 0.5625, 0.5625, 0.8125, 0.8125), unit = 0L, class = c("simpleUnit", 
                 "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.minor.y..polyline.2261", 
                     gp = structure(list(lwd = 0.711318897637795, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.minor.x..polyline.2263 = structure(list(
                     x = structure(c(0.0833333333333333, 0.0833333333333333, 0.25, 0.25, 
                     0.416666666666667, 0.416666666666667, 0.583333333333333, 0.583333333333333, 
                     0.75, 0.75, 0.916666666666667, 0.916666666666667), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, 
                     name = "panel.grid.minor.x..polyline.2263", gp = structure(list(lwd = 0.711318897637795, 
                       col = "white", lty = 1, lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.y..polyline.2265 = structure(list(
                     x = structure(c(0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0.1875, 0.1875, 0.4375, 0.4375, 0.6875, 
                     0.6875, 0.9375, 0.9375), unit = 4L, class = c("simpleUnit", "unit"
                     )), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.y..polyline.2265", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.x..polyline.2267 = structure(list(
                     x = structure(c(0, 0, 0.166666666666667, 0.166666666666667, 0.333333333333333, 
                     0.333333333333333, 0.5, 0.5, 0.666666666666667, 0.666666666666667, 
                     0.833333333333333, 0.833333333333333, 1, 1), unit = 4L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 
                     1), unit = 0L, class = c("simpleUnit", "unit")), id = NULL, id.lengths = c(2L, 
                     2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.x..polyline.2267", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc"))), class = "gList"), childrenOrder = c("panel.background..rect.2259", 
             "panel.grid.minor.y..polyline.2261", "panel.grid.minor.x..polyline.2263", 
             "panel.grid.major.y..polyline.2265", "panel.grid.major.x..polyline.2267")), class = c("gTree", 
         "grob", "gDesc")), `NULL` = structure(list(name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", 
         "grob", "gDesc")), GRID.rastergrob.2243 = structure(list(raster = structure(c("#CEDE41FF", 
         "#45306FFF", "#FDE725FF", "#45306FFF", "#21908CFF", "#45306FFF", "#5DC863FF", 
         "#45306FFF", "#21908CFF", "#50B572FF", "#45306FFF", "#5DC863FF", "#45306FFF", 
         "#FDE725FF", "#CEDE41FF", "#21908CFF", "#45306FFF", "#45306FFF", "#45306FFF", 
         "#21908CFF", "#5DC863FF", "#45306FFF", "#5DC863FF", "#50B572FF"), .Dim = c(8L, 
         3L), class = "raster"), x = structure(0.5, unit = 4L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), width = structure(1, unit = 4L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             just = "centre", hjust = NULL, vjust = NULL, interpolate = FALSE, name = "GRID.rastergrob.2243", 
             gp = structure(list(), class = "gpar"), vp = NULL), class = c("rastergrob", 
         "grob", "gDesc")), GRID.segments.2244 = structure(list(x0 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2244", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2245 = structure(list(
             x0 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", "unit"
             )), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
             "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             arrow = NULL, name = "GRID.segments.2245", gp = structure(list(col = "#000000FF", 
                 fill = "#000000FF", lwd = 1.42263779527559, lty = 1, lineend = "butt", 
                 linejoin = "round"), class = "gpar"), vp = NULL), class = c("segments", 
         "grob", "gDesc")), GRID.segments.2246 = structure(list(x0 = structure(1, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2246", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2247 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2247", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2248 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.125, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.125, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2248", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2249 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.25, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.25, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2249", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2250 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.375, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.375, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2250", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2251 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.5, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2251", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2252 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.625, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.625, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2252", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2253 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.75, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.75, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2253", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2254 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.875, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.875, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2254", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2255 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(1, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2255", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), `NULL` = structure(list(
             name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"
         )), panel.border..zeroGrob.2256 = structure(list(name = "panel.border..zeroGrob.2256", 
             gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"))), class = "gList"), 
         childrenOrder = c("grill.gTree.2268", "NULL", "GRID.rastergrob.2243", "GRID.segments.2244", 
         "GRID.segments.2245", "GRID.segments.2246", "GRID.segments.2247", "GRID.segments.2248", 
         "GRID.segments.2249", "GRID.segments.2250", "GRID.segments.2251", "GRID.segments.2252", 
         "GRID.segments.2253", "GRID.segments.2254", "GRID.segments.2255", "NULL", "panel.border..zeroGrob.2256"
         )), class = c("gTree", "grob", "gDesc"))), layout = structure(list(t = 1, l = 2, 
         b = 1, r = 2, z = 1, clip = "on", name = "panel"), row.names = c(NA, -1L), class = "data.frame"), 
         widths = structure(list(list(0.2, NULL, 5L), list(1, NULL, 5L)), class = "unit"), 
         heights = structure(list(list(1, NULL, 5L), list(0.2, NULL, 5L), list(0.1, NULL, 
             5L)), class = "unit"), respect = FALSE, rownames = NULL, colnames = NULL, 
         name = "layout", gp = NULL, vp = NULL, children = structure(list(), class = "gList"), 
         childrenOrder = character(0)), class = c("gtable", "gTree", "grob", "gDesc")), 
         gg.bottom = structure(list(data = structure(list(cluster = structure(1:2, .Label = c("1", 
         "2"), class = "factor"), col = structure(1:2, .Label = c("red", "blue"), class = "factor"), 
             n = 2:1, id = 1:2, increment = c(1.33333333333333, 0.666666666666667), breaks = c(1, 
             2.33333333333333), cluster.names = c("1", "2")), row.names = c(NA, -2L), class = "data.frame"), 
             layers = list(<environment>, <environment>), scales = <environment>, mapping = structure(list(
                 xmin = ~breaks, xmax = ~breaks + increment, ymin = 0, ymax = 1, fill = ~col), class = "uneval"), 
             theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(xmin = "breaks", 
                 xmax = "breaks + increment", ymin = "ymin", ymax = "ymax", fill = "col", 
                 x = "breaks + increment/2", y = "pos", label = "cluster.names")), class = c("gg", 
         "ggplot")), gg.left = structure(list(data = structure(list(variable = structure(1:8, .Label = c("1", 
         "2", "3", "4", "5", "6", "7", "8"), class = "factor"), col = structure(c(1L, 
         2L, 1L, 2L, 1L, 2L, 1L, 2L), .Label = c("grey95", "grey80"), class = "factor"), 
             n = c(1, 1, 1, 1, 1, 1, 1, 1), id = 1:8, increment = c(0.125, 0.125, 0.125, 
             0.125, 0.125, 0.125, 0.125, 0.125), breaks = c(1, 1.125, 1.25, 1.375, 1.5, 
             1.625, 1.75, 1.875)), row.names = c(NA, -8L), class = "data.frame"), layers = list(
             <environment>, <environment>), scales = <environment>, mapping = structure(list(
             xmin = 0, xmax = 1, ymin = ~breaks, ymax = ~breaks + increment, fill = ~col), class = "uneval"), 
             theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(xmin = "xmin", 
                 xmax = "xmax", ymin = "breaks", ymax = "breaks + increment", fill = "col", 
                 x = "pos", y = "breaks + increment/2", label = "variable")), class = c("gg", 
         "ggplot")), gg.legend = structure(list(data = structure(list(value = c(1, 1, 
         2, 1, 4, 5, 1, 7, 5, 2, 1, 8, 1, 1, 2, 1, 4, 5, 1, 7, 5, 2, 1, 8), x = c(1, 1, 
         1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3), y = c(1, 2, 
         3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8)), class = "data.frame", row.names = c(NA, 
         -24L)), layers = list(<environment>, <environment>, <environment>, <environment>, 
             <environment>, <environment>, <environment>, <environment>, <environment>, 
             <environment>, <environment>, <environment>, <environment>), scales = <environment>, 
             mapping = structure(list(), .Names = character(0), class = "uneval"), theme = structure(list(
                 axis.text.x = structure(list(), class = c("element_blank", "element")), 
                 axis.text.y = structure(list(), class = c("element_blank", "element")), 
                 axis.ticks = structure(list(), class = c("element_blank", "element")), 
                 legend.key.width = structure(2, unit = 3L, class = c("simpleUnit", "unit"
                 )), legend.text = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = 12, hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, 
                     margin = NULL, debug = NULL, inherit.blank = FALSE), class = c("element_text", 
                 "element")), legend.direction = "horizontal"), class = c("theme", "gg"
             ), complete = FALSE, validate = FALSE), coordinates = <environment>, facet = <environment>, 
             plot_env = <environment>, labels = list(x = "x", y = "y", fill = "value", 
                 xintercept = "xintercept", yintercept = "yintercept"), guides = list(
                 fill = structure(list(title = structure(list(), class = "waiver"), title.position = NULL, 
                     title.theme = NULL, title.hjust = NULL, title.vjust = NULL, label = TRUE, 
                     label.position = NULL, label.theme = NULL, label.hjust = NULL, label.vjust = NULL, 
                     barwidth = structure(15, unit = 3L, class = c("simpleUnit", "unit"
                     )), barheight = structure(1, unit = 3L, class = c("simpleUnit", "unit"
                     )), nbin = 20, raster = TRUE, frame.colour = NULL, frame.linewidth = 0.5, 
                     frame.linetype = 1, ticks = TRUE, ticks.colour = "white", ticks.linewidth = 0.5, 
                     draw.ulim = TRUE, draw.llim = TRUE, direction = NULL, default.unit = "line", 
                     reverse = FALSE, order = 0, available_aes = c("colour", "color", 
                     "fill"), name = "colorbar"), class = c("guide", "colorbar")))), class = c("gg", 
         "ggplot")), row.dendrogram = FALSE, col.dendrogram = FALSE, yt.axis = TRUE, yr.axis = TRUE, 
         yt.axis.name = "NULL", yr.axis.name = "NULL", padding = 1, bottom.label.size = 0.2, 
         left.label.size = 0.2)
  4: gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
         pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
  5: is.grob(grobs)
  6: gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), pattern = "guide-box", trim = TRUE, 
         fixed = TRUE)
  7: grepl(pattern, .subset2(x$layout, "name"), fixed = fixed)
  8: ggplot2::ggplotGrob(gg.legend)
  9: ggplot_gtable(ggplot_build(x))
  10: ggplot_gtable.ggplot_built(ggplot_build(x))
  ...
  22: pushvpgp(x)
  23: pushgrobvp(x$vp)
  24: pushgrobvp.viewport(x$vp)
  25: pushViewport(vp, recording = FALSE)
  26: lapply(vps, push.vp, recording)
  27: FUN(X[[i]], ...)
  28: push.vp.vpTree(X[[i]], ...)
  29: push.vp(vp$parent, recording)
  30: push.vp.viewport(vp$parent, recording)
  31: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 28. Error: no warning when clustering and coloring left labels (@test-labels.
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: superheat(X, membership.rows = cluster.rows, left.label.col = c("red", "blue", "green", 
         "purple")) at testthat/test-labels.R:69
  2: do.call(generate_grobs, grob.arg.list)
  3: (function (layout, gg.top = NULL, gg.right = NULL, gg.bottom = NULL, gg.left = NULL, 
         gg.legend = NULL, gg.title = NULL, gg.row.title = NULL, gg.column.title = NULL, 
         row.dendrogram = F, col.dendrogram = F, yt.axis = T, yr.axis = T, yt.axis.name = T, 
         yr.axis.name = T, padding = 1, bottom.label.size = 0.1, left.label.size = 0.1) 
     {
         if (row.dendrogram) {
             yr.axis <- F
         }
         if (col.dendrogram) {
             yt.axis <- F
         }
         if (!is.null(gg.legend)) {
             t <- nrow(layout)
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
                 pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.right)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yr.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "axis-b", trim = TRUE, fixed = TRUE), t = (t + 1), l = l)
             }
             if (yr.axis && !is.null(yr.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "xlab", trim = TRUE, fixed = TRUE), t = (t + 2), l = l)
             }
         }
         if (!is.null(gg.top)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yt.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "axis-l", trim = TRUE, fixed = TRUE), t = t, l = (l - 1))
             }
             if (yt.axis & !is.null(yt.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "ylab", trim = TRUE, fixed = TRUE), t = t, l = (l - 2))
             }
         }
         if (!is.null(gg.left)) {
             t <- 1
             l <- 1
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if ((left.label.size <= 0.2) && !is.null(gg.top) && yt.axis && !is.null(yt.axis.name)) {
                 l <- l + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.row.title) && (!(!is.null(gg.top) && yt.axis) | is.null(gg.top) && 
                 !is.null(gg.left) | !is.null(gg.top) && yt.axis && !is.null(gg.left) && 
                 left.label.size >= 0.2)) {
                 l <- l + 1
             }
             r <- l
             if (left.label.size > 0.2 && !is.null(gg.top) && yt.axis) {
                 r <- r + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.left), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, r = r)
         }
         if (!is.null(gg.bottom)) {
             t <- 2
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             b <- t
             if (bottom.label.size > 0.2 && !is.null(gg.right) && yr.axis) {
                 b <- t + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.bottom), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, b = b)
             b.bottom <- b
         }
         if (!is.null(gg.title)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.row.title)) {
             l <- 1
             t <- 1
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.top) && yt.axis && is.null(gg.left)) {
                 l <- l + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.row.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.column.title)) {
             if (!is.null(gg.bottom)) {
                 t <- b.bottom + 1
             }
             else {
                 t <- 2
                 if (!is.null(gg.title)) {
                     t <- t + 1
                 }
                 if (!is.null(gg.top)) {
                     t <- t + 1
                 }
             }
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.column.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         layout <- gtable::gtable_add_padding(layout, grid::unit(padding, "cm"))
         return(layout)
     })(layout = structure(list(grobs = list(structure(list(name = "panel-1.gTree.2361", 
         gp = NULL, vp = NULL, children = structure(list(grill.gTree.2359 = structure(list(
             name = "grill.gTree.2359", gp = NULL, vp = NULL, children = structure(list(
                 panel.background..rect.2350 = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     just = "centre", hjust = NULL, vjust = NULL, name = "panel.background..rect.2350", 
                     gp = structure(list(lwd = 1.42263779527559, col = NA, fill = "grey92", 
                       lty = 1), class = "gpar"), vp = NULL), class = c("rect", "grob", 
                 "gDesc")), panel.grid.minor.y..polyline.2352 = structure(list(x = structure(c(0, 
                 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.0625, 
                 0.0625, 0.3125, 0.3125, 0.5625, 0.5625, 0.8125, 0.8125), unit = 0L, class = c("simpleUnit", 
                 "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.minor.y..polyline.2352", 
                     gp = structure(list(lwd = 0.711318897637795, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.minor.x..polyline.2354 = structure(list(
                     x = structure(c(0.0833333333333333, 0.0833333333333333, 0.25, 0.25, 
                     0.416666666666667, 0.416666666666667, 0.583333333333333, 0.583333333333333, 
                     0.75, 0.75, 0.916666666666667, 0.916666666666667), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, 
                     name = "panel.grid.minor.x..polyline.2354", gp = structure(list(lwd = 0.711318897637795, 
                       col = "white", lty = 1, lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.y..polyline.2356 = structure(list(
                     x = structure(c(0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0.1875, 0.1875, 0.4375, 0.4375, 0.6875, 
                     0.6875, 0.9375, 0.9375), unit = 4L, class = c("simpleUnit", "unit"
                     )), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.y..polyline.2356", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.x..polyline.2358 = structure(list(
                     x = structure(c(0, 0, 0.166666666666667, 0.166666666666667, 0.333333333333333, 
                     0.333333333333333, 0.5, 0.5, 0.666666666666667, 0.666666666666667, 
                     0.833333333333333, 0.833333333333333, 1, 1), unit = 4L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 
                     1), unit = 0L, class = c("simpleUnit", "unit")), id = NULL, id.lengths = c(2L, 
                     2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.x..polyline.2358", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc"))), class = "gList"), childrenOrder = c("panel.background..rect.2350", 
             "panel.grid.minor.y..polyline.2352", "panel.grid.minor.x..polyline.2354", 
             "panel.grid.major.y..polyline.2356", "panel.grid.major.x..polyline.2358")), class = c("gTree", 
         "grob", "gDesc")), `NULL` = structure(list(name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", 
         "grob", "gDesc")), GRID.rastergrob.2337 = structure(list(raster = structure(c("#CEDE41FF", 
         "#45306FFF", "#FDE725FF", "#45306FFF", "#21908CFF", "#45306FFF", "#5DC863FF", 
         "#45306FFF", "#21908CFF", "#50B572FF", "#45306FFF", "#5DC863FF", "#45306FFF", 
         "#21908CFF", "#5DC863FF", "#45306FFF", "#FDE725FF", "#CEDE41FF", "#21908CFF", 
         "#45306FFF", "#45306FFF", "#45306FFF", "#5DC863FF", "#50B572FF"), .Dim = c(8L, 
         3L), class = "raster"), x = structure(0.5, unit = 4L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), width = structure(1, unit = 4L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             just = "centre", hjust = NULL, vjust = NULL, interpolate = FALSE, name = "GRID.rastergrob.2337", 
             gp = structure(list(), class = "gpar"), vp = NULL), class = c("rastergrob", 
         "grob", "gDesc")), GRID.segments.2338 = structure(list(x0 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2338", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2339 = structure(list(
             x0 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", "unit"
             )), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", 
             "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             arrow = NULL, name = "GRID.segments.2339", gp = structure(list(col = "#000000FF", 
                 fill = "#000000FF", lwd = 1.42263779527559, lty = 1, lineend = "butt", 
                 linejoin = "round"), class = "gpar"), vp = NULL), class = c("segments", 
         "grob", "gDesc")), GRID.segments.2340 = structure(list(x0 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2340", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2341 = structure(list(
             x0 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2341", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2342 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2342", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2343 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.375, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.375, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2343", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2344 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.625, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.625, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2344", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2345 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.75, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.75, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2345", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2346 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(1, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2346", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), `NULL` = structure(list(
             name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"
         )), panel.border..zeroGrob.2347 = structure(list(name = "panel.border..zeroGrob.2347", 
             gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"))), class = "gList"), 
         childrenOrder = c("grill.gTree.2359", "NULL", "GRID.rastergrob.2337", "GRID.segments.2338", 
         "GRID.segments.2339", "GRID.segments.2340", "GRID.segments.2341", "GRID.segments.2342", 
         "GRID.segments.2343", "GRID.segments.2344", "GRID.segments.2345", "GRID.segments.2346", 
         "NULL", "panel.border..zeroGrob.2347")), class = c("gTree", "grob", "gDesc"))), 
         layout = structure(list(t = 1, l = 2, b = 1, r = 2, z = 1, clip = "on", name = "panel"), row.names = c(NA, 
         -1L), class = "data.frame"), widths = structure(list(list(0.2, NULL, 5L), list(
             1, NULL, 5L)), class = "unit"), heights = structure(list(list(1, NULL, 5L), 
             list(0.2, NULL, 5L), list(0.1, NULL, 5L)), class = "unit"), respect = FALSE, 
         rownames = NULL, colnames = NULL, name = "layout", gp = NULL, vp = NULL, children = structure(list(), class = "gList"), 
         childrenOrder = character(0)), class = c("gtable", "gTree", "grob", "gDesc")), 
         gg.bottom = structure(list(data = structure(list(variable = structure(1:3, .Label = c("1", 
         "2", "3"), class = "factor"), col = structure(c(1L, 2L, 1L), .Label = c("grey95", 
         "grey80"), class = "factor"), n = c(1, 1, 1), id = 1:3, increment = c(0.333333333333333, 
         0.333333333333333, 0.333333333333333), breaks = c(1, 1.33333333333333, 1.66666666666667
         )), row.names = c(NA, -3L), class = "data.frame"), layers = list(<environment>, 
             <environment>), scales = <environment>, mapping = structure(list(xmin = ~breaks, 
             xmax = ~breaks + increment, ymin = 0, ymax = 1, fill = ~col), class = "uneval"), 
             theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(xmin = "breaks", 
                 xmax = "breaks + increment", ymin = "ymin", ymax = "ymax", fill = "col", 
                 x = "breaks + increment/2", y = "pos", label = "variable")), class = c("gg", 
         "ggplot")), gg.left = structure(list(data = structure(list(cluster = structure(1:4, .Label = c("1", 
         "2", "3", "4"), class = "factor"), col = structure(1:4, .Label = c("red", "green", 
         "purple", "blue"), class = "factor"), n = c(3L, 2L, 1L, 2L), id = 1:4, increment = c(1.5, 
         1, 0.5, 1), breaks = c(1, 2.5, 3.5, 4), cluster.names = c("1", "2", "3", "4")), row.names = c(NA, 
         -4L), class = "data.frame"), layers = list(<environment>, <environment>), scales = <environment>, 
             mapping = structure(list(xmin = 0, xmax = 1, ymin = ~breaks, ymax = ~breaks + 
                 increment, fill = ~col), class = "uneval"), theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(xmin = "xmin", 
                 xmax = "xmax", ymin = "breaks", ymax = "breaks + increment", fill = "col", 
                 x = "pos", y = "breaks + increment/2", label = "cluster.names")), class = c("gg", 
         "ggplot")), gg.legend = structure(list(data = structure(list(value = c(1, 2, 
         1, 1, 4, 5, 1, 7, 5, 1, 8, 2, 1, 1, 2, 1, 4, 1, 7, 5, 5, 2, 1, 8), x = c(1, 1, 
         1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3), y = c(1, 2, 
         3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8)), class = "data.frame", row.names = c(NA, 
         -24L)), layers = list(<environment>, <environment>, <environment>, <environment>, 
             <environment>, <environment>, <environment>, <environment>, <environment>, 
             <environment>), scales = <environment>, mapping = structure(list(), .Names = character(0), class = "uneval"), 
             theme = structure(list(axis.text.x = structure(list(), class = c("element_blank", 
             "element")), axis.text.y = structure(list(), class = c("element_blank", "element"
             )), axis.ticks = structure(list(), class = c("element_blank", "element")), 
                 legend.key.width = structure(2, unit = 3L, class = c("simpleUnit", "unit"
                 )), legend.text = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = 12, hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, 
                     margin = NULL, debug = NULL, inherit.blank = FALSE), class = c("element_text", 
                 "element")), legend.direction = "horizontal"), class = c("theme", "gg"
             ), complete = FALSE, validate = FALSE), coordinates = <environment>, facet = <environment>, 
             plot_env = <environment>, labels = list(x = "x", y = "y", fill = "value", 
                 xintercept = "xintercept", yintercept = "yintercept"), guides = list(
                 fill = structure(list(title = structure(list(), class = "waiver"), title.position = NULL, 
                     title.theme = NULL, title.hjust = NULL, title.vjust = NULL, label = TRUE, 
                     label.position = NULL, label.theme = NULL, label.hjust = NULL, label.vjust = NULL, 
                     barwidth = structure(15, unit = 3L, class = c("simpleUnit", "unit"
                     )), barheight = structure(1, unit = 3L, class = c("simpleUnit", "unit"
                     )), nbin = 20, raster = TRUE, frame.colour = NULL, frame.linewidth = 0.5, 
                     frame.linetype = 1, ticks = TRUE, ticks.colour = "white", ticks.linewidth = 0.5, 
                     draw.ulim = TRUE, draw.llim = TRUE, direction = NULL, default.unit = "line", 
                     reverse = FALSE, order = 0, available_aes = c("colour", "color", 
                     "fill"), name = "colorbar"), class = c("guide", "colorbar")))), class = c("gg", 
         "ggplot")), row.dendrogram = FALSE, col.dendrogram = FALSE, yt.axis = TRUE, yr.axis = TRUE, 
         yt.axis.name = "NULL", yr.axis.name = "NULL", padding = 1, bottom.label.size = 0.2, 
         left.label.size = 0.2)
  4: gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
         pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
  5: is.grob(grobs)
  6: gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), pattern = "guide-box", trim = TRUE, 
         fixed = TRUE)
  7: grepl(pattern, .subset2(x$layout, "name"), fixed = fixed)
  8: ggplot2::ggplotGrob(gg.legend)
  9: ggplot_gtable(ggplot_build(x))
  10: ggplot_gtable.ggplot_built(ggplot_build(x))
  ...
  22: pushvpgp(x)
  23: pushgrobvp(x$vp)
  24: pushgrobvp.viewport(x$vp)
  25: pushViewport(vp, recording = FALSE)
  26: lapply(vps, push.vp, recording)
  27: FUN(X[[i]], ...)
  28: push.vp.vpTree(X[[i]], ...)
  29: push.vp(vp$parent, recording)
  30: push.vp.viewport(vp$parent, recording)
  31: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 29. Error: no warning when clustering and coloring left label text (@test-lab
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: superheat(X, membership.rows = cluster.rows, left.label.text.col = c("red", "blue", 
         "green")) at testthat/test-labels.R:77
  2: do.call(generate_grobs, grob.arg.list)
  3: (function (layout, gg.top = NULL, gg.right = NULL, gg.bottom = NULL, gg.left = NULL, 
         gg.legend = NULL, gg.title = NULL, gg.row.title = NULL, gg.column.title = NULL, 
         row.dendrogram = F, col.dendrogram = F, yt.axis = T, yr.axis = T, yt.axis.name = T, 
         yr.axis.name = T, padding = 1, bottom.label.size = 0.1, left.label.size = 0.1) 
     {
         if (row.dendrogram) {
             yr.axis <- F
         }
         if (col.dendrogram) {
             yt.axis <- F
         }
         if (!is.null(gg.legend)) {
             t <- nrow(layout)
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
                 pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.right)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yr.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "axis-b", trim = TRUE, fixed = TRUE), t = (t + 1), l = l)
             }
             if (yr.axis && !is.null(yr.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "xlab", trim = TRUE, fixed = TRUE), t = (t + 2), l = l)
             }
         }
         if (!is.null(gg.top)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yt.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "axis-l", trim = TRUE, fixed = TRUE), t = t, l = (l - 1))
             }
             if (yt.axis & !is.null(yt.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "ylab", trim = TRUE, fixed = TRUE), t = t, l = (l - 2))
             }
         }
         if (!is.null(gg.left)) {
             t <- 1
             l <- 1
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if ((left.label.size <= 0.2) && !is.null(gg.top) && yt.axis && !is.null(yt.axis.name)) {
                 l <- l + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.row.title) && (!(!is.null(gg.top) && yt.axis) | is.null(gg.top) && 
                 !is.null(gg.left) | !is.null(gg.top) && yt.axis && !is.null(gg.left) && 
                 left.label.size >= 0.2)) {
                 l <- l + 1
             }
             r <- l
             if (left.label.size > 0.2 && !is.null(gg.top) && yt.axis) {
                 r <- r + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.left), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, r = r)
         }
         if (!is.null(gg.bottom)) {
             t <- 2
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             b <- t
             if (bottom.label.size > 0.2 && !is.null(gg.right) && yr.axis) {
                 b <- t + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.bottom), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, b = b)
             b.bottom <- b
         }
         if (!is.null(gg.title)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.row.title)) {
             l <- 1
             t <- 1
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.top) && yt.axis && is.null(gg.left)) {
                 l <- l + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.row.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.column.title)) {
             if (!is.null(gg.bottom)) {
                 t <- b.bottom + 1
             }
             else {
                 t <- 2
                 if (!is.null(gg.title)) {
                     t <- t + 1
                 }
                 if (!is.null(gg.top)) {
                     t <- t + 1
                 }
             }
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.column.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         layout <- gtable::gtable_add_padding(layout, grid::unit(padding, "cm"))
         return(layout)
     })(layout = structure(list(grobs = list(structure(list(name = "panel-1.gTree.2449", 
         gp = NULL, vp = NULL, children = structure(list(grill.gTree.2447 = structure(list(
             name = "grill.gTree.2447", gp = NULL, vp = NULL, children = structure(list(
                 panel.background..rect.2438 = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     just = "centre", hjust = NULL, vjust = NULL, name = "panel.background..rect.2438", 
                     gp = structure(list(lwd = 1.42263779527559, col = NA, fill = "grey92", 
                       lty = 1), class = "gpar"), vp = NULL), class = c("rect", "grob", 
                 "gDesc")), panel.grid.minor.y..polyline.2440 = structure(list(x = structure(c(0, 
                 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.0625, 
                 0.0625, 0.3125, 0.3125, 0.5625, 0.5625, 0.8125, 0.8125), unit = 0L, class = c("simpleUnit", 
                 "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.minor.y..polyline.2440", 
                     gp = structure(list(lwd = 0.711318897637795, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.minor.x..polyline.2442 = structure(list(
                     x = structure(c(0.0833333333333333, 0.0833333333333333, 0.25, 0.25, 
                     0.416666666666667, 0.416666666666667, 0.583333333333333, 0.583333333333333, 
                     0.75, 0.75, 0.916666666666667, 0.916666666666667), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, 
                     name = "panel.grid.minor.x..polyline.2442", gp = structure(list(lwd = 0.711318897637795, 
                       col = "white", lty = 1, lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.y..polyline.2444 = structure(list(
                     x = structure(c(0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0.1875, 0.1875, 0.4375, 0.4375, 0.6875, 
                     0.6875, 0.9375, 0.9375), unit = 4L, class = c("simpleUnit", "unit"
                     )), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.y..polyline.2444", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.x..polyline.2446 = structure(list(
                     x = structure(c(0, 0, 0.166666666666667, 0.166666666666667, 0.333333333333333, 
                     0.333333333333333, 0.5, 0.5, 0.666666666666667, 0.666666666666667, 
                     0.833333333333333, 0.833333333333333, 1, 1), unit = 4L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 
                     1), unit = 0L, class = c("simpleUnit", "unit")), id = NULL, id.lengths = c(2L, 
                     2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.x..polyline.2446", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc"))), class = "gList"), childrenOrder = c("panel.background..rect.2438", 
             "panel.grid.minor.y..polyline.2440", "panel.grid.minor.x..polyline.2442", 
             "panel.grid.major.y..polyline.2444", "panel.grid.major.x..polyline.2446")), class = c("gTree", 
         "grob", "gDesc")), `NULL` = structure(list(name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", 
         "grob", "gDesc")), GRID.rastergrob.2425 = structure(list(raster = structure(c("#CEDE41FF", 
         "#45306FFF", "#FDE725FF", "#45306FFF", "#21908CFF", "#45306FFF", "#5DC863FF", 
         "#45306FFF", "#21908CFF", "#50B572FF", "#45306FFF", "#5DC863FF", "#45306FFF", 
         "#21908CFF", "#5DC863FF", "#45306FFF", "#FDE725FF", "#CEDE41FF", "#21908CFF", 
         "#45306FFF", "#45306FFF", "#45306FFF", "#5DC863FF", "#50B572FF"), .Dim = c(8L, 
         3L), class = "raster"), x = structure(0.5, unit = 4L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), width = structure(1, unit = 4L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             just = "centre", hjust = NULL, vjust = NULL, interpolate = FALSE, name = "GRID.rastergrob.2425", 
             gp = structure(list(), class = "gpar"), vp = NULL), class = c("rastergrob", 
         "grob", "gDesc")), GRID.segments.2426 = structure(list(x0 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2426", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2427 = structure(list(
             x0 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", "unit"
             )), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", 
             "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             arrow = NULL, name = "GRID.segments.2427", gp = structure(list(col = "#000000FF", 
                 fill = "#000000FF", lwd = 1.42263779527559, lty = 1, lineend = "butt", 
                 linejoin = "round"), class = "gpar"), vp = NULL), class = c("segments", 
         "grob", "gDesc")), GRID.segments.2428 = structure(list(x0 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2428", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2429 = structure(list(
             x0 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2429", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2430 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2430", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2431 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.375, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.375, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2431", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2432 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.625, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.625, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2432", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2433 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.75, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.75, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2433", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2434 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(1, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2434", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), `NULL` = structure(list(
             name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"
         )), panel.border..zeroGrob.2435 = structure(list(name = "panel.border..zeroGrob.2435", 
             gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"))), class = "gList"), 
         childrenOrder = c("grill.gTree.2447", "NULL", "GRID.rastergrob.2425", "GRID.segments.2426", 
         "GRID.segments.2427", "GRID.segments.2428", "GRID.segments.2429", "GRID.segments.2430", 
         "GRID.segments.2431", "GRID.segments.2432", "GRID.segments.2433", "GRID.segments.2434", 
         "NULL", "panel.border..zeroGrob.2435")), class = c("gTree", "grob", "gDesc"))), 
         layout = structure(list(t = 1, l = 2, b = 1, r = 2, z = 1, clip = "on", name = "panel"), row.names = c(NA, 
         -1L), class = "data.frame"), widths = structure(list(list(0.2, NULL, 5L), list(
             1, NULL, 5L)), class = "unit"), heights = structure(list(list(1, NULL, 5L), 
             list(0.2, NULL, 5L), list(0.1, NULL, 5L)), class = "unit"), respect = FALSE, 
         rownames = NULL, colnames = NULL, name = "layout", gp = NULL, vp = NULL, children = structure(list(), class = "gList"), 
         childrenOrder = character(0)), class = c("gtable", "gTree", "grob", "gDesc")), 
         gg.bottom = structure(list(data = structure(list(variable = structure(1:3, .Label = c("1", 
         "2", "3"), class = "factor"), col = structure(c(1L, 2L, 1L), .Label = c("grey95", 
         "grey80"), class = "factor"), n = c(1, 1, 1), id = 1:3, increment = c(0.333333333333333, 
         0.333333333333333, 0.333333333333333), breaks = c(1, 1.33333333333333, 1.66666666666667
         )), row.names = c(NA, -3L), class = "data.frame"), layers = list(<environment>, 
             <environment>), scales = <environment>, mapping = structure(list(xmin = ~breaks, 
             xmax = ~breaks + increment, ymin = 0, ymax = 1, fill = ~col), class = "uneval"), 
             theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(xmin = "breaks", 
                 xmax = "breaks + increment", ymin = "ymin", ymax = "ymax", fill = "col", 
                 x = "breaks + increment/2", y = "pos", label = "variable")), class = c("gg", 
         "ggplot")), gg.left = structure(list(data = structure(list(cluster = structure(1:4, .Label = c("1", 
         "2", "3", "4"), class = "factor"), col = structure(c(1L, 2L, 1L, 2L), .Label = c("grey95", 
         "grey80"), class = "factor"), n = c(3L, 2L, 1L, 2L), id = 1:4, increment = c(1.5, 
         1, 0.5, 1), breaks = c(1, 2.5, 3.5, 4), cluster.names = c("1", "2", "3", "4")), row.names = c(NA, 
         -4L), class = "data.frame"), layers = list(<environment>, <environment>), scales = <environment>, 
             mapping = structure(list(xmin = 0, xmax = 1, ymin = ~breaks, ymax = ~breaks + 
                 increment, fill = ~col), class = "uneval"), theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(xmin = "xmin", 
                 xmax = "xmax", ymin = "breaks", ymax = "breaks + increment", fill = "col", 
                 x = "pos", y = "breaks + increment/2", label = "cluster.names")), class = c("gg", 
         "ggplot")), gg.legend = structure(list(data = structure(list(value = c(1, 2, 
         1, 1, 4, 5, 1, 7, 5, 1, 8, 2, 1, 1, 2, 1, 4, 1, 7, 5, 5, 2, 1, 8), x = c(1, 1, 
         1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3), y = c(1, 2, 
         3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8)), class = "data.frame", row.names = c(NA, 
         -24L)), layers = list(<environment>, <environment>, <environment>, <environment>, 
             <environment>, <environment>, <environment>, <environment>, <environment>, 
             <environment>), scales = <environment>, mapping = structure(list(), .Names = character(0), class = "uneval"), 
             theme = structure(list(axis.text.x = structure(list(), class = c("element_blank", 
             "element")), axis.text.y = structure(list(), class = c("element_blank", "element"
             )), axis.ticks = structure(list(), class = c("element_blank", "element")), 
                 legend.key.width = structure(2, unit = 3L, class = c("simpleUnit", "unit"
                 )), legend.text = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = 12, hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, 
                     margin = NULL, debug = NULL, inherit.blank = FALSE), class = c("element_text", 
                 "element")), legend.direction = "horizontal"), class = c("theme", "gg"
             ), complete = FALSE, validate = FALSE), coordinates = <environment>, facet = <environment>, 
             plot_env = <environment>, labels = list(x = "x", y = "y", fill = "value", 
                 xintercept = "xintercept", yintercept = "yintercept"), guides = list(
                 fill = structure(list(title = structure(list(), class = "waiver"), title.position = NULL, 
                     title.theme = NULL, title.hjust = NULL, title.vjust = NULL, label = TRUE, 
                     label.position = NULL, label.theme = NULL, label.hjust = NULL, label.vjust = NULL, 
                     barwidth = structure(15, unit = 3L, class = c("simpleUnit", "unit"
                     )), barheight = structure(1, unit = 3L, class = c("simpleUnit", "unit"
                     )), nbin = 20, raster = TRUE, frame.colour = NULL, frame.linewidth = 0.5, 
                     frame.linetype = 1, ticks = TRUE, ticks.colour = "white", ticks.linewidth = 0.5, 
                     draw.ulim = TRUE, draw.llim = TRUE, direction = NULL, default.unit = "line", 
                     reverse = FALSE, order = 0, available_aes = c("colour", "color", 
                     "fill"), name = "colorbar"), class = c("guide", "colorbar")))), class = c("gg", 
         "ggplot")), row.dendrogram = FALSE, col.dendrogram = FALSE, yt.axis = TRUE, yr.axis = TRUE, 
         yt.axis.name = "NULL", yr.axis.name = "NULL", padding = 1, bottom.label.size = 0.2, 
         left.label.size = 0.2)
  4: gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
         pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
  5: is.grob(grobs)
  6: gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), pattern = "guide-box", trim = TRUE, 
         fixed = TRUE)
  7: grepl(pattern, .subset2(x$layout, "name"), fixed = fixed)
  8: ggplot2::ggplotGrob(gg.legend)
  9: ggplot_gtable(ggplot_build(x))
  10: ggplot_gtable.ggplot_built(ggplot_build(x))
  ...
  22: pushvpgp(x)
  23: pushgrobvp(x$vp)
  24: pushgrobvp.viewport(x$vp)
  25: pushViewport(vp, recording = FALSE)
  26: lapply(vps, push.vp, recording)
  27: FUN(X[[i]], ...)
  28: push.vp.vpTree(X[[i]], ...)
  29: push.vp(vp$parent, recording)
  30: push.vp.viewport(vp$parent, recording)
  31: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 30. Error: no warning when clustering and coloring bottom label text (@test-l
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: superheat(X, membership.rows = cluster.rows, bottom.label.text.col = c("red", "blue")) at testthat/test-labels.R:84
  2: do.call(generate_grobs, grob.arg.list)
  3: (function (layout, gg.top = NULL, gg.right = NULL, gg.bottom = NULL, gg.left = NULL, 
         gg.legend = NULL, gg.title = NULL, gg.row.title = NULL, gg.column.title = NULL, 
         row.dendrogram = F, col.dendrogram = F, yt.axis = T, yr.axis = T, yt.axis.name = T, 
         yr.axis.name = T, padding = 1, bottom.label.size = 0.1, left.label.size = 0.1) 
     {
         if (row.dendrogram) {
             yr.axis <- F
         }
         if (col.dendrogram) {
             yt.axis <- F
         }
         if (!is.null(gg.legend)) {
             t <- nrow(layout)
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
                 pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.right)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yr.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "axis-b", trim = TRUE, fixed = TRUE), t = (t + 1), l = l)
             }
             if (yr.axis && !is.null(yr.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "xlab", trim = TRUE, fixed = TRUE), t = (t + 2), l = l)
             }
         }
         if (!is.null(gg.top)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yt.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "axis-l", trim = TRUE, fixed = TRUE), t = t, l = (l - 1))
             }
             if (yt.axis & !is.null(yt.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "ylab", trim = TRUE, fixed = TRUE), t = t, l = (l - 2))
             }
         }
         if (!is.null(gg.left)) {
             t <- 1
             l <- 1
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if ((left.label.size <= 0.2) && !is.null(gg.top) && yt.axis && !is.null(yt.axis.name)) {
                 l <- l + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.row.title) && (!(!is.null(gg.top) && yt.axis) | is.null(gg.top) && 
                 !is.null(gg.left) | !is.null(gg.top) && yt.axis && !is.null(gg.left) && 
                 left.label.size >= 0.2)) {
                 l <- l + 1
             }
             r <- l
             if (left.label.size > 0.2 && !is.null(gg.top) && yt.axis) {
                 r <- r + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.left), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, r = r)
         }
         if (!is.null(gg.bottom)) {
             t <- 2
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             b <- t
             if (bottom.label.size > 0.2 && !is.null(gg.right) && yr.axis) {
                 b <- t + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.bottom), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, b = b)
             b.bottom <- b
         }
         if (!is.null(gg.title)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.row.title)) {
             l <- 1
             t <- 1
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.top) && yt.axis && is.null(gg.left)) {
                 l <- l + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.row.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.column.title)) {
             if (!is.null(gg.bottom)) {
                 t <- b.bottom + 1
             }
             else {
                 t <- 2
                 if (!is.null(gg.title)) {
                     t <- t + 1
                 }
                 if (!is.null(gg.top)) {
                     t <- t + 1
                 }
             }
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.column.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         layout <- gtable::gtable_add_padding(layout, grid::unit(padding, "cm"))
         return(layout)
     })(layout = structure(list(grobs = list(structure(list(name = "panel-1.gTree.2537", 
         gp = NULL, vp = NULL, children = structure(list(grill.gTree.2535 = structure(list(
             name = "grill.gTree.2535", gp = NULL, vp = NULL, children = structure(list(
                 panel.background..rect.2526 = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     just = "centre", hjust = NULL, vjust = NULL, name = "panel.background..rect.2526", 
                     gp = structure(list(lwd = 1.42263779527559, col = NA, fill = "grey92", 
                       lty = 1), class = "gpar"), vp = NULL), class = c("rect", "grob", 
                 "gDesc")), panel.grid.minor.y..polyline.2528 = structure(list(x = structure(c(0, 
                 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.0625, 
                 0.0625, 0.3125, 0.3125, 0.5625, 0.5625, 0.8125, 0.8125), unit = 0L, class = c("simpleUnit", 
                 "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.minor.y..polyline.2528", 
                     gp = structure(list(lwd = 0.711318897637795, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.minor.x..polyline.2530 = structure(list(
                     x = structure(c(0.0833333333333333, 0.0833333333333333, 0.25, 0.25, 
                     0.416666666666667, 0.416666666666667, 0.583333333333333, 0.583333333333333, 
                     0.75, 0.75, 0.916666666666667, 0.916666666666667), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, 
                     name = "panel.grid.minor.x..polyline.2530", gp = structure(list(lwd = 0.711318897637795, 
                       col = "white", lty = 1, lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.y..polyline.2532 = structure(list(
                     x = structure(c(0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0.1875, 0.1875, 0.4375, 0.4375, 0.6875, 
                     0.6875, 0.9375, 0.9375), unit = 4L, class = c("simpleUnit", "unit"
                     )), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.y..polyline.2532", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.x..polyline.2534 = structure(list(
                     x = structure(c(0, 0, 0.166666666666667, 0.166666666666667, 0.333333333333333, 
                     0.333333333333333, 0.5, 0.5, 0.666666666666667, 0.666666666666667, 
                     0.833333333333333, 0.833333333333333, 1, 1), unit = 4L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 
                     1), unit = 0L, class = c("simpleUnit", "unit")), id = NULL, id.lengths = c(2L, 
                     2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.x..polyline.2534", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc"))), class = "gList"), childrenOrder = c("panel.background..rect.2526", 
             "panel.grid.minor.y..polyline.2528", "panel.grid.minor.x..polyline.2530", 
             "panel.grid.major.y..polyline.2532", "panel.grid.major.x..polyline.2534")), class = c("gTree", 
         "grob", "gDesc")), `NULL` = structure(list(name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", 
         "grob", "gDesc")), GRID.rastergrob.2513 = structure(list(raster = structure(c("#CEDE41FF", 
         "#45306FFF", "#FDE725FF", "#45306FFF", "#21908CFF", "#45306FFF", "#5DC863FF", 
         "#45306FFF", "#21908CFF", "#50B572FF", "#45306FFF", "#5DC863FF", "#45306FFF", 
         "#21908CFF", "#5DC863FF", "#45306FFF", "#FDE725FF", "#CEDE41FF", "#21908CFF", 
         "#45306FFF", "#45306FFF", "#45306FFF", "#5DC863FF", "#50B572FF"), .Dim = c(8L, 
         3L), class = "raster"), x = structure(0.5, unit = 4L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), width = structure(1, unit = 4L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             just = "centre", hjust = NULL, vjust = NULL, interpolate = FALSE, name = "GRID.rastergrob.2513", 
             gp = structure(list(), class = "gpar"), vp = NULL), class = c("rastergrob", 
         "grob", "gDesc")), GRID.segments.2514 = structure(list(x0 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2514", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2515 = structure(list(
             x0 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", "unit"
             )), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", 
             "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             arrow = NULL, name = "GRID.segments.2515", gp = structure(list(col = "#000000FF", 
                 fill = "#000000FF", lwd = 1.42263779527559, lty = 1, lineend = "butt", 
                 linejoin = "round"), class = "gpar"), vp = NULL), class = c("segments", 
         "grob", "gDesc")), GRID.segments.2516 = structure(list(x0 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2516", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2517 = structure(list(
             x0 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2517", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2518 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2518", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2519 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.375, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.375, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2519", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2520 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.625, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.625, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2520", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2521 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.75, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.75, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2521", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2522 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(1, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2522", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), `NULL` = structure(list(
             name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"
         )), panel.border..zeroGrob.2523 = structure(list(name = "panel.border..zeroGrob.2523", 
             gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"))), class = "gList"), 
         childrenOrder = c("grill.gTree.2535", "NULL", "GRID.rastergrob.2513", "GRID.segments.2514", 
         "GRID.segments.2515", "GRID.segments.2516", "GRID.segments.2517", "GRID.segments.2518", 
         "GRID.segments.2519", "GRID.segments.2520", "GRID.segments.2521", "GRID.segments.2522", 
         "NULL", "panel.border..zeroGrob.2523")), class = c("gTree", "grob", "gDesc"))), 
         layout = structure(list(t = 1, l = 2, b = 1, r = 2, z = 1, clip = "on", name = "panel"), row.names = c(NA, 
         -1L), class = "data.frame"), widths = structure(list(list(0.2, NULL, 5L), list(
             1, NULL, 5L)), class = "unit"), heights = structure(list(list(1, NULL, 5L), 
             list(0.2, NULL, 5L), list(0.1, NULL, 5L)), class = "unit"), respect = FALSE, 
         rownames = NULL, colnames = NULL, name = "layout", gp = NULL, vp = NULL, children = structure(list(), class = "gList"), 
         childrenOrder = character(0)), class = c("gtable", "gTree", "grob", "gDesc")), 
         gg.bottom = structure(list(data = structure(list(variable = structure(1:3, .Label = c("1", 
         "2", "3"), class = "factor"), col = structure(c(1L, 2L, 1L), .Label = c("grey95", 
         "grey80"), class = "factor"), n = c(1, 1, 1), id = 1:3, increment = c(0.333333333333333, 
         0.333333333333333, 0.333333333333333), breaks = c(1, 1.33333333333333, 1.66666666666667
         )), row.names = c(NA, -3L), class = "data.frame"), layers = list(<environment>, 
             <environment>), scales = <environment>, mapping = structure(list(xmin = ~breaks, 
             xmax = ~breaks + increment, ymin = 0, ymax = 1, fill = ~col), class = "uneval"), 
             theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(xmin = "breaks", 
                 xmax = "breaks + increment", ymin = "ymin", ymax = "ymax", fill = "col", 
                 x = "breaks + increment/2", y = "pos", label = "variable")), class = c("gg", 
         "ggplot")), gg.left = structure(list(data = structure(list(cluster = structure(1:4, .Label = c("1", 
         "2", "3", "4"), class = "factor"), col = structure(c(1L, 2L, 1L, 2L), .Label = c("grey95", 
         "grey80"), class = "factor"), n = c(3L, 2L, 1L, 2L), id = 1:4, increment = c(1.5, 
         1, 0.5, 1), breaks = c(1, 2.5, 3.5, 4), cluster.names = c("1", "2", "3", "4")), row.names = c(NA, 
         -4L), class = "data.frame"), layers = list(<environment>, <environment>), scales = <environment>, 
             mapping = structure(list(xmin = 0, xmax = 1, ymin = ~breaks, ymax = ~breaks + 
                 increment, fill = ~col), class = "uneval"), theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(xmin = "xmin", 
                 xmax = "xmax", ymin = "breaks", ymax = "breaks + increment", fill = "col", 
                 x = "pos", y = "breaks + increment/2", label = "cluster.names")), class = c("gg", 
         "ggplot")), gg.legend = structure(list(data = structure(list(value = c(1, 2, 
         1, 1, 4, 5, 1, 7, 5, 1, 8, 2, 1, 1, 2, 1, 4, 1, 7, 5, 5, 2, 1, 8), x = c(1, 1, 
         1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3), y = c(1, 2, 
         3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8)), class = "data.frame", row.names = c(NA, 
         -24L)), layers = list(<environment>, <environment>, <environment>, <environment>, 
             <environment>, <environment>, <environment>, <environment>, <environment>, 
             <environment>), scales = <environment>, mapping = structure(list(), .Names = character(0), class = "uneval"), 
             theme = structure(list(axis.text.x = structure(list(), class = c("element_blank", 
             "element")), axis.text.y = structure(list(), class = c("element_blank", "element"
             )), axis.ticks = structure(list(), class = c("element_blank", "element")), 
                 legend.key.width = structure(2, unit = 3L, class = c("simpleUnit", "unit"
                 )), legend.text = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = 12, hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, 
                     margin = NULL, debug = NULL, inherit.blank = FALSE), class = c("element_text", 
                 "element")), legend.direction = "horizontal"), class = c("theme", "gg"
             ), complete = FALSE, validate = FALSE), coordinates = <environment>, facet = <environment>, 
             plot_env = <environment>, labels = list(x = "x", y = "y", fill = "value", 
                 xintercept = "xintercept", yintercept = "yintercept"), guides = list(
                 fill = structure(list(title = structure(list(), class = "waiver"), title.position = NULL, 
                     title.theme = NULL, title.hjust = NULL, title.vjust = NULL, label = TRUE, 
                     label.position = NULL, label.theme = NULL, label.hjust = NULL, label.vjust = NULL, 
                     barwidth = structure(15, unit = 3L, class = c("simpleUnit", "unit"
                     )), barheight = structure(1, unit = 3L, class = c("simpleUnit", "unit"
                     )), nbin = 20, raster = TRUE, frame.colour = NULL, frame.linewidth = 0.5, 
                     frame.linetype = 1, ticks = TRUE, ticks.colour = "white", ticks.linewidth = 0.5, 
                     draw.ulim = TRUE, draw.llim = TRUE, direction = NULL, default.unit = "line", 
                     reverse = FALSE, order = 0, available_aes = c("colour", "color", 
                     "fill"), name = "colorbar"), class = c("guide", "colorbar")))), class = c("gg", 
         "ggplot")), row.dendrogram = FALSE, col.dendrogram = FALSE, yt.axis = TRUE, yr.axis = TRUE, 
         yt.axis.name = "NULL", yr.axis.name = "NULL", padding = 1, bottom.label.size = 0.2, 
         left.label.size = 0.2)
  4: gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
         pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
  5: is.grob(grobs)
  6: gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), pattern = "guide-box", trim = TRUE, 
         fixed = TRUE)
  7: grepl(pattern, .subset2(x$layout, "name"), fixed = fixed)
  8: ggplot2::ggplotGrob(gg.legend)
  9: ggplot_gtable(ggplot_build(x))
  10: ggplot_gtable.ggplot_built(ggplot_build(x))
  ...
  22: pushvpgp(x)
  23: pushgrobvp(x$vp)
  24: pushgrobvp.viewport(x$vp)
  25: pushViewport(vp, recording = FALSE)
  26: lapply(vps, push.vp, recording)
  27: FUN(X[[i]], ...)
  28: push.vp.vpTree(X[[i]], ...)
  29: push.vp(vp$parent, recording)
  30: push.vp.viewport(vp$parent, recording)
  31: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 31. Error: no warning on default (@test-layout-examples.R#10)  ──────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: superheat(X) at testthat/test-layout-examples.R:10
  2: do.call(generate_grobs, grob.arg.list)
  3: (function (layout, gg.top = NULL, gg.right = NULL, gg.bottom = NULL, gg.left = NULL, 
         gg.legend = NULL, gg.title = NULL, gg.row.title = NULL, gg.column.title = NULL, 
         row.dendrogram = F, col.dendrogram = F, yt.axis = T, yr.axis = T, yt.axis.name = T, 
         yr.axis.name = T, padding = 1, bottom.label.size = 0.1, left.label.size = 0.1) 
     {
         if (row.dendrogram) {
             yr.axis <- F
         }
         if (col.dendrogram) {
             yt.axis <- F
         }
         if (!is.null(gg.legend)) {
             t <- nrow(layout)
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
                 pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.right)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yr.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "axis-b", trim = TRUE, fixed = TRUE), t = (t + 1), l = l)
             }
             if (yr.axis && !is.null(yr.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "xlab", trim = TRUE, fixed = TRUE), t = (t + 2), l = l)
             }
         }
         if (!is.null(gg.top)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yt.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "axis-l", trim = TRUE, fixed = TRUE), t = t, l = (l - 1))
             }
             if (yt.axis & !is.null(yt.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "ylab", trim = TRUE, fixed = TRUE), t = t, l = (l - 2))
             }
         }
         if (!is.null(gg.left)) {
             t <- 1
             l <- 1
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if ((left.label.size <= 0.2) && !is.null(gg.top) && yt.axis && !is.null(yt.axis.name)) {
                 l <- l + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.row.title) && (!(!is.null(gg.top) && yt.axis) | is.null(gg.top) && 
                 !is.null(gg.left) | !is.null(gg.top) && yt.axis && !is.null(gg.left) && 
                 left.label.size >= 0.2)) {
                 l <- l + 1
             }
             r <- l
             if (left.label.size > 0.2 && !is.null(gg.top) && yt.axis) {
                 r <- r + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.left), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, r = r)
         }
         if (!is.null(gg.bottom)) {
             t <- 2
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             b <- t
             if (bottom.label.size > 0.2 && !is.null(gg.right) && yr.axis) {
                 b <- t + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.bottom), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, b = b)
             b.bottom <- b
         }
         if (!is.null(gg.title)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.row.title)) {
             l <- 1
             t <- 1
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.top) && yt.axis && is.null(gg.left)) {
                 l <- l + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.row.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.column.title)) {
             if (!is.null(gg.bottom)) {
                 t <- b.bottom + 1
             }
             else {
                 t <- 2
                 if (!is.null(gg.title)) {
                     t <- t + 1
                 }
                 if (!is.null(gg.top)) {
                     t <- t + 1
                 }
             }
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.column.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         layout <- gtable::gtable_add_padding(layout, grid::unit(padding, "cm"))
         return(layout)
     })(layout = structure(list(grobs = list(structure(list(name = "panel-1.gTree.2629", 
         gp = NULL, vp = NULL, children = structure(list(grill.gTree.2627 = structure(list(
             name = "grill.gTree.2627", gp = NULL, vp = NULL, children = structure(list(
                 panel.background..rect.2618 = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     just = "centre", hjust = NULL, vjust = NULL, name = "panel.background..rect.2618", 
                     gp = structure(list(lwd = 1.42263779527559, col = NA, fill = "grey92", 
                       lty = 1), class = "gpar"), vp = NULL), class = c("rect", "grob", 
                 "gDesc")), panel.grid.minor.y..polyline.2620 = structure(list(x = structure(c(0, 
                 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.0625, 
                 0.0625, 0.3125, 0.3125, 0.5625, 0.5625, 0.8125, 0.8125), unit = 0L, class = c("simpleUnit", 
                 "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.minor.y..polyline.2620", 
                     gp = structure(list(lwd = 0.711318897637795, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.minor.x..polyline.2622 = structure(list(
                     x = structure(c(0.0833333333333333, 0.0833333333333333, 0.25, 0.25, 
                     0.416666666666667, 0.416666666666667, 0.583333333333333, 0.583333333333333, 
                     0.75, 0.75, 0.916666666666667, 0.916666666666667), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, 
                     name = "panel.grid.minor.x..polyline.2622", gp = structure(list(lwd = 0.711318897637795, 
                       col = "white", lty = 1, lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.y..polyline.2624 = structure(list(
                     x = structure(c(0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0.1875, 0.1875, 0.4375, 0.4375, 0.6875, 
                     0.6875, 0.9375, 0.9375), unit = 4L, class = c("simpleUnit", "unit"
                     )), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.y..polyline.2624", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.x..polyline.2626 = structure(list(
                     x = structure(c(0, 0, 0.166666666666667, 0.166666666666667, 0.333333333333333, 
                     0.333333333333333, 0.5, 0.5, 0.666666666666667, 0.666666666666667, 
                     0.833333333333333, 0.833333333333333, 1, 1), unit = 4L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 
                     1), unit = 0L, class = c("simpleUnit", "unit")), id = NULL, id.lengths = c(2L, 
                     2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.x..polyline.2626", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc"))), class = "gList"), childrenOrder = c("panel.background..rect.2618", 
             "panel.grid.minor.y..polyline.2620", "panel.grid.minor.x..polyline.2622", 
             "panel.grid.major.y..polyline.2624", "panel.grid.major.x..polyline.2626")), class = c("gTree", 
         "grob", "gDesc")), `NULL` = structure(list(name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", 
         "grob", "gDesc")), GRID.rastergrob.2601 = structure(list(raster = structure(c("#CEDE41FF", 
         "#45306FFF", "#FDE725FF", "#45306FFF", "#21908CFF", "#45306FFF", "#5DC863FF", 
         "#45306FFF", "#21908CFF", "#50B572FF", "#45306FFF", "#5DC863FF", "#45306FFF", 
         "#FDE725FF", "#CEDE41FF", "#21908CFF", "#45306FFF", "#45306FFF", "#45306FFF", 
         "#21908CFF", "#5DC863FF", "#45306FFF", "#5DC863FF", "#50B572FF"), .Dim = c(8L, 
         3L), class = "raster"), x = structure(0.5, unit = 4L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), width = structure(1, unit = 4L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             just = "centre", hjust = NULL, vjust = NULL, interpolate = FALSE, name = "GRID.rastergrob.2601", 
             gp = structure(list(), class = "gpar"), vp = NULL), class = c("rastergrob", 
         "grob", "gDesc")), GRID.segments.2602 = structure(list(x0 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2602", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2603 = structure(list(
             x0 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", "unit"
             )), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", 
             "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             arrow = NULL, name = "GRID.segments.2603", gp = structure(list(col = "#000000FF", 
                 fill = "#000000FF", lwd = 1.42263779527559, lty = 1, lineend = "butt", 
                 linejoin = "round"), class = "gpar"), vp = NULL), class = c("segments", 
         "grob", "gDesc")), GRID.segments.2604 = structure(list(x0 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2604", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2605 = structure(list(
             x0 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2605", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2606 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2606", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2607 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.125, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.125, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2607", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2608 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.25, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.25, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2608", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2609 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.375, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.375, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2609", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2610 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.5, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2610", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2611 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.625, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.625, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2611", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2612 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.75, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.75, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2612", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2613 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.875, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.875, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2613", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2614 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(1, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2614", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), `NULL` = structure(list(
             name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"
         )), panel.border..zeroGrob.2615 = structure(list(name = "panel.border..zeroGrob.2615", 
             gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"))), class = "gList"), 
         childrenOrder = c("grill.gTree.2627", "NULL", "GRID.rastergrob.2601", "GRID.segments.2602", 
         "GRID.segments.2603", "GRID.segments.2604", "GRID.segments.2605", "GRID.segments.2606", 
         "GRID.segments.2607", "GRID.segments.2608", "GRID.segments.2609", "GRID.segments.2610", 
         "GRID.segments.2611", "GRID.segments.2612", "GRID.segments.2613", "GRID.segments.2614", 
         "NULL", "panel.border..zeroGrob.2615")), class = c("gTree", "grob", "gDesc"))), 
         layout = structure(list(t = 1, l = 2, b = 1, r = 2, z = 1, clip = "on", name = "panel"), row.names = c(NA, 
         -1L), class = "data.frame"), widths = structure(list(list(0.2, NULL, 5L), list(
             1, NULL, 5L)), class = "unit"), heights = structure(list(list(1, NULL, 5L), 
             list(0.2, NULL, 5L), list(0.1, NULL, 5L)), class = "unit"), respect = FALSE, 
         rownames = NULL, colnames = NULL, name = "layout", gp = NULL, vp = NULL, children = structure(list(), class = "gList"), 
         childrenOrder = character(0)), class = c("gtable", "gTree", "grob", "gDesc")), 
         gg.bottom = structure(list(data = structure(list(variable = structure(1:3, .Label = c("1", 
         "2", "3"), class = "factor"), col = structure(c(1L, 2L, 1L), .Label = c("grey95", 
         "grey80"), class = "factor"), n = c(1, 1, 1), id = 1:3, increment = c(0.333333333333333, 
         0.333333333333333, 0.333333333333333), breaks = c(1, 1.33333333333333, 1.66666666666667
         )), row.names = c(NA, -3L), class = "data.frame"), layers = list(<environment>, 
             <environment>), scales = <environment>, mapping = structure(list(xmin = ~breaks, 
             xmax = ~breaks + increment, ymin = 0, ymax = 1, fill = ~col), class = "uneval"), 
             theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(xmin = "breaks", 
                 xmax = "breaks + increment", ymin = "ymin", ymax = "ymax", fill = "col", 
                 x = "breaks + increment/2", y = "pos", label = "variable")), class = c("gg", 
         "ggplot")), gg.left = structure(list(data = structure(list(variable = structure(1:8, .Label = c("1", 
         "2", "3", "4", "5", "6", "7", "8"), class = "factor"), col = structure(c(1L, 
         2L, 1L, 2L, 1L, 2L, 1L, 2L), .Label = c("grey95", "grey80"), class = "factor"), 
             n = c(1, 1, 1, 1, 1, 1, 1, 1), id = 1:8, increment = c(0.125, 0.125, 0.125, 
             0.125, 0.125, 0.125, 0.125, 0.125), breaks = c(1, 1.125, 1.25, 1.375, 1.5, 
             1.625, 1.75, 1.875)), row.names = c(NA, -8L), class = "data.frame"), layers = list(
             <environment>, <environment>), scales = <environment>, mapping = structure(list(
             xmin = 0, xmax = 1, ymin = ~breaks, ymax = ~breaks + increment, fill = ~col), class = "uneval"), 
             theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(xmin = "xmin", 
                 xmax = "xmax", ymin = "breaks", ymax = "breaks + increment", fill = "col", 
                 x = "pos", y = "breaks + increment/2", label = "variable")), class = c("gg", 
         "ggplot")), gg.legend = structure(list(data = structure(list(value = c(1, 1, 
         2, 1, 4, 5, 1, 7, 5, 2, 1, 8, 1, 1, 2, 1, 4, 5, 1, 7, 5, 2, 1, 8), x = c(1, 1, 
         1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3), y = c(1, 2, 
         3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8)), class = "data.frame", row.names = c(NA, 
         -24L)), layers = list(<environment>, <environment>, <environment>, <environment>, 
             <environment>, <environment>, <environment>, <environment>, <environment>, 
             <environment>, <environment>, <environment>, <environment>, <environment>), 
             scales = <environment>, mapping = structure(list(), .Names = character(0), class = "uneval"), 
             theme = structure(list(axis.text.x = structure(list(), class = c("element_blank", 
             "element")), axis.text.y = structure(list(), class = c("element_blank", "element"
             )), axis.ticks = structure(list(), class = c("element_blank", "element")), 
                 legend.key.width = structure(2, unit = 3L, class = c("simpleUnit", "unit"
                 )), legend.text = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = 12, hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, 
                     margin = NULL, debug = NULL, inherit.blank = FALSE), class = c("element_text", 
                 "element")), legend.direction = "horizontal"), class = c("theme", "gg"
             ), complete = FALSE, validate = FALSE), coordinates = <environment>, facet = <environment>, 
             plot_env = <environment>, labels = list(x = "x", y = "y", fill = "value", 
                 xintercept = "xintercept", yintercept = "yintercept"), guides = list(
                 fill = structure(list(title = structure(list(), class = "waiver"), title.position = NULL, 
                     title.theme = NULL, title.hjust = NULL, title.vjust = NULL, label = TRUE, 
                     label.position = NULL, label.theme = NULL, label.hjust = NULL, label.vjust = NULL, 
                     barwidth = structure(15, unit = 3L, class = c("simpleUnit", "unit"
                     )), barheight = structure(1, unit = 3L, class = c("simpleUnit", "unit"
                     )), nbin = 20, raster = TRUE, frame.colour = NULL, frame.linewidth = 0.5, 
                     frame.linetype = 1, ticks = TRUE, ticks.colour = "white", ticks.linewidth = 0.5, 
                     draw.ulim = TRUE, draw.llim = TRUE, direction = NULL, default.unit = "line", 
                     reverse = FALSE, order = 0, available_aes = c("colour", "color", 
                     "fill"), name = "colorbar"), class = c("guide", "colorbar")))), class = c("gg", 
         "ggplot")), row.dendrogram = FALSE, col.dendrogram = FALSE, yt.axis = TRUE, yr.axis = TRUE, 
         yt.axis.name = "NULL", yr.axis.name = "NULL", padding = 1, bottom.label.size = 0.2, 
         left.label.size = 0.2)
  4: gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
         pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
  5: is.grob(grobs)
  6: gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), pattern = "guide-box", trim = TRUE, 
         fixed = TRUE)
  7: grepl(pattern, .subset2(x$layout, "name"), fixed = fixed)
  8: ggplot2::ggplotGrob(gg.legend)
  9: ggplot_gtable(ggplot_build(x))
  10: ggplot_gtable.ggplot_built(ggplot_build(x))
  ...
  22: pushvpgp(x)
  23: pushgrobvp(x$vp)
  24: pushgrobvp.viewport(x$vp)
  25: pushViewport(vp, recording = FALSE)
  26: lapply(vps, push.vp, recording)
  27: FUN(X[[i]], ...)
  28: push.vp.vpTree(X[[i]], ...)
  29: push.vp(vp$parent, recording)
  30: push.vp.viewport(vp$parent, recording)
  31: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 32. Error: Removing left labels (@test-layout-examples.R#23)  ───────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: superheat(X, left.label = "none") at testthat/test-layout-examples.R:23
  2: do.call(generate_grobs, grob.arg.list)
  3: (function (layout, gg.top = NULL, gg.right = NULL, gg.bottom = NULL, gg.left = NULL, 
         gg.legend = NULL, gg.title = NULL, gg.row.title = NULL, gg.column.title = NULL, 
         row.dendrogram = F, col.dendrogram = F, yt.axis = T, yr.axis = T, yt.axis.name = T, 
         yr.axis.name = T, padding = 1, bottom.label.size = 0.1, left.label.size = 0.1) 
     {
         if (row.dendrogram) {
             yr.axis <- F
         }
         if (col.dendrogram) {
             yt.axis <- F
         }
         if (!is.null(gg.legend)) {
             t <- nrow(layout)
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
                 pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.right)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yr.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "axis-b", trim = TRUE, fixed = TRUE), t = (t + 1), l = l)
             }
             if (yr.axis && !is.null(yr.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "xlab", trim = TRUE, fixed = TRUE), t = (t + 2), l = l)
             }
         }
         if (!is.null(gg.top)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yt.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "axis-l", trim = TRUE, fixed = TRUE), t = t, l = (l - 1))
             }
             if (yt.axis & !is.null(yt.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "ylab", trim = TRUE, fixed = TRUE), t = t, l = (l - 2))
             }
         }
         if (!is.null(gg.left)) {
             t <- 1
             l <- 1
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if ((left.label.size <= 0.2) && !is.null(gg.top) && yt.axis && !is.null(yt.axis.name)) {
                 l <- l + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.row.title) && (!(!is.null(gg.top) && yt.axis) | is.null(gg.top) && 
                 !is.null(gg.left) | !is.null(gg.top) && yt.axis && !is.null(gg.left) && 
                 left.label.size >= 0.2)) {
                 l <- l + 1
             }
             r <- l
             if (left.label.size > 0.2 && !is.null(gg.top) && yt.axis) {
                 r <- r + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.left), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, r = r)
         }
         if (!is.null(gg.bottom)) {
             t <- 2
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             b <- t
             if (bottom.label.size > 0.2 && !is.null(gg.right) && yr.axis) {
                 b <- t + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.bottom), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, b = b)
             b.bottom <- b
         }
         if (!is.null(gg.title)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.row.title)) {
             l <- 1
             t <- 1
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.top) && yt.axis && is.null(gg.left)) {
                 l <- l + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.row.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.column.title)) {
             if (!is.null(gg.bottom)) {
                 t <- b.bottom + 1
             }
             else {
                 t <- 2
                 if (!is.null(gg.title)) {
                     t <- t + 1
                 }
                 if (!is.null(gg.top)) {
                     t <- t + 1
                 }
             }
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.column.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         layout <- gtable::gtable_add_padding(layout, grid::unit(padding, "cm"))
         return(layout)
     })(layout = structure(list(grobs = list(structure(list(name = "panel-1.gTree.2830", 
         gp = NULL, vp = NULL, children = structure(list(grill.gTree.2828 = structure(list(
             name = "grill.gTree.2828", gp = NULL, vp = NULL, children = structure(list(
                 panel.background..rect.2819 = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     just = "centre", hjust = NULL, vjust = NULL, name = "panel.background..rect.2819", 
                     gp = structure(list(lwd = 1.42263779527559, col = NA, fill = "grey92", 
                       lty = 1), class = "gpar"), vp = NULL), class = c("rect", "grob", 
                 "gDesc")), panel.grid.minor.y..polyline.2821 = structure(list(x = structure(c(0, 
                 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.0625, 
                 0.0625, 0.3125, 0.3125, 0.5625, 0.5625, 0.8125, 0.8125), unit = 0L, class = c("simpleUnit", 
                 "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.minor.y..polyline.2821", 
                     gp = structure(list(lwd = 0.711318897637795, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.minor.x..polyline.2823 = structure(list(
                     x = structure(c(0.0833333333333333, 0.0833333333333333, 0.25, 0.25, 
                     0.416666666666667, 0.416666666666667, 0.583333333333333, 0.583333333333333, 
                     0.75, 0.75, 0.916666666666667, 0.916666666666667), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, 
                     name = "panel.grid.minor.x..polyline.2823", gp = structure(list(lwd = 0.711318897637795, 
                       col = "white", lty = 1, lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.y..polyline.2825 = structure(list(
                     x = structure(c(0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0.1875, 0.1875, 0.4375, 0.4375, 0.6875, 
                     0.6875, 0.9375, 0.9375), unit = 4L, class = c("simpleUnit", "unit"
                     )), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.y..polyline.2825", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.x..polyline.2827 = structure(list(
                     x = structure(c(0, 0, 0.166666666666667, 0.166666666666667, 0.333333333333333, 
                     0.333333333333333, 0.5, 0.5, 0.666666666666667, 0.666666666666667, 
                     0.833333333333333, 0.833333333333333, 1, 1), unit = 4L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 
                     1), unit = 0L, class = c("simpleUnit", "unit")), id = NULL, id.lengths = c(2L, 
                     2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.x..polyline.2827", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc"))), class = "gList"), childrenOrder = c("panel.background..rect.2819", 
             "panel.grid.minor.y..polyline.2821", "panel.grid.minor.x..polyline.2823", 
             "panel.grid.major.y..polyline.2825", "panel.grid.major.x..polyline.2827")), class = c("gTree", 
         "grob", "gDesc")), `NULL` = structure(list(name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", 
         "grob", "gDesc")), GRID.rastergrob.2802 = structure(list(raster = structure(c("#CEDE41FF", 
         "#45306FFF", "#FDE725FF", "#45306FFF", "#21908CFF", "#45306FFF", "#5DC863FF", 
         "#45306FFF", "#21908CFF", "#50B572FF", "#45306FFF", "#5DC863FF", "#45306FFF", 
         "#FDE725FF", "#CEDE41FF", "#21908CFF", "#45306FFF", "#45306FFF", "#45306FFF", 
         "#21908CFF", "#5DC863FF", "#45306FFF", "#5DC863FF", "#50B572FF"), .Dim = c(8L, 
         3L), class = "raster"), x = structure(0.5, unit = 4L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), width = structure(1, unit = 4L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             just = "centre", hjust = NULL, vjust = NULL, interpolate = FALSE, name = "GRID.rastergrob.2802", 
             gp = structure(list(), class = "gpar"), vp = NULL), class = c("rastergrob", 
         "grob", "gDesc")), GRID.segments.2803 = structure(list(x0 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2803", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2804 = structure(list(
             x0 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", "unit"
             )), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", 
             "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             arrow = NULL, name = "GRID.segments.2804", gp = structure(list(col = "#000000FF", 
                 fill = "#000000FF", lwd = 1.42263779527559, lty = 1, lineend = "butt", 
                 linejoin = "round"), class = "gpar"), vp = NULL), class = c("segments", 
         "grob", "gDesc")), GRID.segments.2805 = structure(list(x0 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2805", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2806 = structure(list(
             x0 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2806", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2807 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2807", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2808 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.125, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.125, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2808", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2809 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.25, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.25, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2809", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2810 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.375, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.375, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2810", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2811 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.5, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2811", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2812 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.625, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.625, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2812", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2813 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.75, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.75, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2813", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2814 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.875, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.875, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2814", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2815 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(1, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2815", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), `NULL` = structure(list(
             name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"
         )), panel.border..zeroGrob.2816 = structure(list(name = "panel.border..zeroGrob.2816", 
             gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"))), class = "gList"), 
         childrenOrder = c("grill.gTree.2828", "NULL", "GRID.rastergrob.2802", "GRID.segments.2803", 
         "GRID.segments.2804", "GRID.segments.2805", "GRID.segments.2806", "GRID.segments.2807", 
         "GRID.segments.2808", "GRID.segments.2809", "GRID.segments.2810", "GRID.segments.2811", 
         "GRID.segments.2812", "GRID.segments.2813", "GRID.segments.2814", "GRID.segments.2815", 
         "NULL", "panel.border..zeroGrob.2816")), class = c("gTree", "grob", "gDesc"))), 
         layout = structure(list(t = 1, l = 1, b = 1, r = 1, z = 1, clip = "on", name = "panel"), row.names = c(NA, 
         -1L), class = "data.frame"), widths = structure(list(list(1, NULL, 5L)), class = "unit"), 
         heights = structure(list(list(1, NULL, 5L), list(0.2, NULL, 5L), list(0.1, NULL, 
             5L)), class = "unit"), respect = FALSE, rownames = NULL, colnames = NULL, 
         name = "layout", gp = NULL, vp = NULL, children = structure(list(), class = "gList"), 
         childrenOrder = character(0)), class = c("gtable", "gTree", "grob", "gDesc")), 
         gg.bottom = structure(list(data = structure(list(variable = structure(1:3, .Label = c("1", 
         "2", "3"), class = "factor"), col = structure(c(1L, 2L, 1L), .Label = c("grey95", 
         "grey80"), class = "factor"), n = c(1, 1, 1), id = 1:3, increment = c(0.333333333333333, 
         0.333333333333333, 0.333333333333333), breaks = c(1, 1.33333333333333, 1.66666666666667
         )), row.names = c(NA, -3L), class = "data.frame"), layers = list(<environment>, 
             <environment>), scales = <environment>, mapping = structure(list(xmin = ~breaks, 
             xmax = ~breaks + increment, ymin = 0, ymax = 1, fill = ~col), class = "uneval"), 
             theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(xmin = "breaks", 
                 xmax = "breaks + increment", ymin = "ymin", ymax = "ymax", fill = "col", 
                 x = "breaks + increment/2", y = "pos", label = "variable")), class = c("gg", 
         "ggplot")), gg.legend = structure(list(data = structure(list(value = c(1, 1, 
         2, 1, 4, 5, 1, 7, 5, 2, 1, 8, 1, 1, 2, 1, 4, 5, 1, 7, 5, 2, 1, 8), x = c(1, 1, 
         1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3), y = c(1, 2, 
         3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8)), class = "data.frame", row.names = c(NA, 
         -24L)), layers = list(<environment>, <environment>, <environment>, <environment>, 
             <environment>, <environment>, <environment>, <environment>, <environment>, 
             <environment>, <environment>, <environment>, <environment>, <environment>), 
             scales = <environment>, mapping = structure(list(), .Names = character(0), class = "uneval"), 
             theme = structure(list(axis.text.x = structure(list(), class = c("element_blank", 
             "element")), axis.text.y = structure(list(), class = c("element_blank", "element"
             )), axis.ticks = structure(list(), class = c("element_blank", "element")), 
                 legend.key.width = structure(2, unit = 3L, class = c("simpleUnit", "unit"
                 )), legend.text = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = 12, hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, 
                     margin = NULL, debug = NULL, inherit.blank = FALSE), class = c("element_text", 
                 "element")), legend.direction = "horizontal"), class = c("theme", "gg"
             ), complete = FALSE, validate = FALSE), coordinates = <environment>, facet = <environment>, 
             plot_env = <environment>, labels = list(x = "x", y = "y", fill = "value", 
                 xintercept = "xintercept", yintercept = "yintercept"), guides = list(
                 fill = structure(list(title = structure(list(), class = "waiver"), title.position = NULL, 
                     title.theme = NULL, title.hjust = NULL, title.vjust = NULL, label = TRUE, 
                     label.position = NULL, label.theme = NULL, label.hjust = NULL, label.vjust = NULL, 
                     barwidth = structure(15, unit = 3L, class = c("simpleUnit", "unit"
                     )), barheight = structure(1, unit = 3L, class = c("simpleUnit", "unit"
                     )), nbin = 20, raster = TRUE, frame.colour = NULL, frame.linewidth = 0.5, 
                     frame.linetype = 1, ticks = TRUE, ticks.colour = "white", ticks.linewidth = 0.5, 
                     draw.ulim = TRUE, draw.llim = TRUE, direction = NULL, default.unit = "line", 
                     reverse = FALSE, order = 0, available_aes = c("colour", "color", 
                     "fill"), name = "colorbar"), class = c("guide", "colorbar")))), class = c("gg", 
         "ggplot")), row.dendrogram = FALSE, col.dendrogram = FALSE, yt.axis = TRUE, yr.axis = TRUE, 
         yt.axis.name = "NULL", yr.axis.name = "NULL", padding = 1, bottom.label.size = 0.2, 
         left.label.size = 0.2)
  4: gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
         pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
  5: is.grob(grobs)
  6: gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), pattern = "guide-box", trim = TRUE, 
         fixed = TRUE)
  7: grepl(pattern, .subset2(x$layout, "name"), fixed = fixed)
  8: ggplot2::ggplotGrob(gg.legend)
  9: ggplot_gtable(ggplot_build(x))
  10: ggplot_gtable.ggplot_built(ggplot_build(x))
  ...
  22: pushvpgp(x)
  23: pushgrobvp(x$vp)
  24: pushgrobvp.viewport(x$vp)
  25: pushViewport(vp, recording = FALSE)
  26: lapply(vps, push.vp, recording)
  27: FUN(X[[i]], ...)
  28: push.vp.vpTree(X[[i]], ...)
  29: push.vp(vp$parent, recording)
  30: push.vp.viewport(vp$parent, recording)
  31: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 33. Error: Removing bottom labels (@test-layout-examples.R#29)  ─────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: superheat(X, bottom.label = "none") at testthat/test-layout-examples.R:29
  2: do.call(generate_grobs, grob.arg.list)
  3: (function (layout, gg.top = NULL, gg.right = NULL, gg.bottom = NULL, gg.left = NULL, 
         gg.legend = NULL, gg.title = NULL, gg.row.title = NULL, gg.column.title = NULL, 
         row.dendrogram = F, col.dendrogram = F, yt.axis = T, yr.axis = T, yt.axis.name = T, 
         yr.axis.name = T, padding = 1, bottom.label.size = 0.1, left.label.size = 0.1) 
     {
         if (row.dendrogram) {
             yr.axis <- F
         }
         if (col.dendrogram) {
             yt.axis <- F
         }
         if (!is.null(gg.legend)) {
             t <- nrow(layout)
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
                 pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.right)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yr.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "axis-b", trim = TRUE, fixed = TRUE), t = (t + 1), l = l)
             }
             if (yr.axis && !is.null(yr.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "xlab", trim = TRUE, fixed = TRUE), t = (t + 2), l = l)
             }
         }
         if (!is.null(gg.top)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yt.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "axis-l", trim = TRUE, fixed = TRUE), t = t, l = (l - 1))
             }
             if (yt.axis & !is.null(yt.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "ylab", trim = TRUE, fixed = TRUE), t = t, l = (l - 2))
             }
         }
         if (!is.null(gg.left)) {
             t <- 1
             l <- 1
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if ((left.label.size <= 0.2) && !is.null(gg.top) && yt.axis && !is.null(yt.axis.name)) {
                 l <- l + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.row.title) && (!(!is.null(gg.top) && yt.axis) | is.null(gg.top) && 
                 !is.null(gg.left) | !is.null(gg.top) && yt.axis && !is.null(gg.left) && 
                 left.label.size >= 0.2)) {
                 l <- l + 1
             }
             r <- l
             if (left.label.size > 0.2 && !is.null(gg.top) && yt.axis) {
                 r <- r + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.left), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, r = r)
         }
         if (!is.null(gg.bottom)) {
             t <- 2
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             b <- t
             if (bottom.label.size > 0.2 && !is.null(gg.right) && yr.axis) {
                 b <- t + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.bottom), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, b = b)
             b.bottom <- b
         }
         if (!is.null(gg.title)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.row.title)) {
             l <- 1
             t <- 1
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.top) && yt.axis && is.null(gg.left)) {
                 l <- l + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.row.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.column.title)) {
             if (!is.null(gg.bottom)) {
                 t <- b.bottom + 1
             }
             else {
                 t <- 2
                 if (!is.null(gg.title)) {
                     t <- t + 1
                 }
                 if (!is.null(gg.top)) {
                     t <- t + 1
                 }
             }
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.column.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         layout <- gtable::gtable_add_padding(layout, grid::unit(padding, "cm"))
         return(layout)
     })(layout = structure(list(grobs = list(structure(list(name = "panel-1.gTree.2926", 
         gp = NULL, vp = NULL, children = structure(list(grill.gTree.2924 = structure(list(
             name = "grill.gTree.2924", gp = NULL, vp = NULL, children = structure(list(
                 panel.background..rect.2915 = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     just = "centre", hjust = NULL, vjust = NULL, name = "panel.background..rect.2915", 
                     gp = structure(list(lwd = 1.42263779527559, col = NA, fill = "grey92", 
                       lty = 1), class = "gpar"), vp = NULL), class = c("rect", "grob", 
                 "gDesc")), panel.grid.minor.y..polyline.2917 = structure(list(x = structure(c(0, 
                 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.0625, 
                 0.0625, 0.3125, 0.3125, 0.5625, 0.5625, 0.8125, 0.8125), unit = 0L, class = c("simpleUnit", 
                 "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.minor.y..polyline.2917", 
                     gp = structure(list(lwd = 0.711318897637795, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.minor.x..polyline.2919 = structure(list(
                     x = structure(c(0.0833333333333333, 0.0833333333333333, 0.25, 0.25, 
                     0.416666666666667, 0.416666666666667, 0.583333333333333, 0.583333333333333, 
                     0.75, 0.75, 0.916666666666667, 0.916666666666667), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, 
                     name = "panel.grid.minor.x..polyline.2919", gp = structure(list(lwd = 0.711318897637795, 
                       col = "white", lty = 1, lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.y..polyline.2921 = structure(list(
                     x = structure(c(0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0.1875, 0.1875, 0.4375, 0.4375, 0.6875, 
                     0.6875, 0.9375, 0.9375), unit = 4L, class = c("simpleUnit", "unit"
                     )), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.y..polyline.2921", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.x..polyline.2923 = structure(list(
                     x = structure(c(0, 0, 0.166666666666667, 0.166666666666667, 0.333333333333333, 
                     0.333333333333333, 0.5, 0.5, 0.666666666666667, 0.666666666666667, 
                     0.833333333333333, 0.833333333333333, 1, 1), unit = 4L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 
                     1), unit = 0L, class = c("simpleUnit", "unit")), id = NULL, id.lengths = c(2L, 
                     2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.x..polyline.2923", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc"))), class = "gList"), childrenOrder = c("panel.background..rect.2915", 
             "panel.grid.minor.y..polyline.2917", "panel.grid.minor.x..polyline.2919", 
             "panel.grid.major.y..polyline.2921", "panel.grid.major.x..polyline.2923")), class = c("gTree", 
         "grob", "gDesc")), `NULL` = structure(list(name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", 
         "grob", "gDesc")), GRID.rastergrob.2898 = structure(list(raster = structure(c("#CEDE41FF", 
         "#45306FFF", "#FDE725FF", "#45306FFF", "#21908CFF", "#45306FFF", "#5DC863FF", 
         "#45306FFF", "#21908CFF", "#50B572FF", "#45306FFF", "#5DC863FF", "#45306FFF", 
         "#FDE725FF", "#CEDE41FF", "#21908CFF", "#45306FFF", "#45306FFF", "#45306FFF", 
         "#21908CFF", "#5DC863FF", "#45306FFF", "#5DC863FF", "#50B572FF"), .Dim = c(8L, 
         3L), class = "raster"), x = structure(0.5, unit = 4L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), width = structure(1, unit = 4L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             just = "centre", hjust = NULL, vjust = NULL, interpolate = FALSE, name = "GRID.rastergrob.2898", 
             gp = structure(list(), class = "gpar"), vp = NULL), class = c("rastergrob", 
         "grob", "gDesc")), GRID.segments.2899 = structure(list(x0 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2899", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2900 = structure(list(
             x0 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", "unit"
             )), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", 
             "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             arrow = NULL, name = "GRID.segments.2900", gp = structure(list(col = "#000000FF", 
                 fill = "#000000FF", lwd = 1.42263779527559, lty = 1, lineend = "butt", 
                 linejoin = "round"), class = "gpar"), vp = NULL), class = c("segments", 
         "grob", "gDesc")), GRID.segments.2901 = structure(list(x0 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2901", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2902 = structure(list(
             x0 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2902", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2903 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2903", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2904 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.125, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.125, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2904", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2905 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.25, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.25, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2905", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2906 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.375, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.375, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2906", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2907 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.5, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2907", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2908 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.625, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.625, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2908", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2909 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.75, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.75, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2909", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2910 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.875, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.875, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2910", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2911 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(1, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2911", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), `NULL` = structure(list(
             name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"
         )), panel.border..zeroGrob.2912 = structure(list(name = "panel.border..zeroGrob.2912", 
             gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"))), class = "gList"), 
         childrenOrder = c("grill.gTree.2924", "NULL", "GRID.rastergrob.2898", "GRID.segments.2899", 
         "GRID.segments.2900", "GRID.segments.2901", "GRID.segments.2902", "GRID.segments.2903", 
         "GRID.segments.2904", "GRID.segments.2905", "GRID.segments.2906", "GRID.segments.2907", 
         "GRID.segments.2908", "GRID.segments.2909", "GRID.segments.2910", "GRID.segments.2911", 
         "NULL", "panel.border..zeroGrob.2912")), class = c("gTree", "grob", "gDesc"))), 
         layout = structure(list(t = 1, l = 2, b = 1, r = 2, z = 1, clip = "on", name = "panel"), row.names = c(NA, 
         -1L), class = "data.frame"), widths = structure(list(list(0.2, NULL, 5L), list(
             1, NULL, 5L)), class = "unit"), heights = structure(list(list(1, NULL, 5L), 
             list(0.1, NULL, 5L)), class = "unit"), respect = FALSE, rownames = NULL, 
         colnames = NULL, name = "layout", gp = NULL, vp = NULL, children = structure(list(), class = "gList"), 
         childrenOrder = character(0)), class = c("gtable", "gTree", "grob", "gDesc")), 
         gg.left = structure(list(data = structure(list(variable = structure(1:8, .Label = c("1", 
         "2", "3", "4", "5", "6", "7", "8"), class = "factor"), col = structure(c(1L, 
         2L, 1L, 2L, 1L, 2L, 1L, 2L), .Label = c("grey95", "grey80"), class = "factor"), 
             n = c(1, 1, 1, 1, 1, 1, 1, 1), id = 1:8, increment = c(0.125, 0.125, 0.125, 
             0.125, 0.125, 0.125, 0.125, 0.125), breaks = c(1, 1.125, 1.25, 1.375, 1.5, 
             1.625, 1.75, 1.875)), row.names = c(NA, -8L), class = "data.frame"), layers = list(
             <environment>, <environment>), scales = <environment>, mapping = structure(list(
             xmin = 0, xmax = 1, ymin = ~breaks, ymax = ~breaks + increment, fill = ~col), class = "uneval"), 
             theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(xmin = "xmin", 
                 xmax = "xmax", ymin = "breaks", ymax = "breaks + increment", fill = "col", 
                 x = "pos", y = "breaks + increment/2", label = "variable")), class = c("gg", 
         "ggplot")), gg.legend = structure(list(data = structure(list(value = c(1, 1, 
         2, 1, 4, 5, 1, 7, 5, 2, 1, 8, 1, 1, 2, 1, 4, 5, 1, 7, 5, 2, 1, 8), x = c(1, 1, 
         1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3), y = c(1, 2, 
         3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8)), class = "data.frame", row.names = c(NA, 
         -24L)), layers = list(<environment>, <environment>, <environment>, <environment>, 
             <environment>, <environment>, <environment>, <environment>, <environment>, 
             <environment>, <environment>, <environment>, <environment>, <environment>), 
             scales = <environment>, mapping = structure(list(), .Names = character(0), class = "uneval"), 
             theme = structure(list(axis.text.x = structure(list(), class = c("element_blank", 
             "element")), axis.text.y = structure(list(), class = c("element_blank", "element"
             )), axis.ticks = structure(list(), class = c("element_blank", "element")), 
                 legend.key.width = structure(2, unit = 3L, class = c("simpleUnit", "unit"
                 )), legend.text = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = 12, hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, 
                     margin = NULL, debug = NULL, inherit.blank = FALSE), class = c("element_text", 
                 "element")), legend.direction = "horizontal"), class = c("theme", "gg"
             ), complete = FALSE, validate = FALSE), coordinates = <environment>, facet = <environment>, 
             plot_env = <environment>, labels = list(x = "x", y = "y", fill = "value", 
                 xintercept = "xintercept", yintercept = "yintercept"), guides = list(
                 fill = structure(list(title = structure(list(), class = "waiver"), title.position = NULL, 
                     title.theme = NULL, title.hjust = NULL, title.vjust = NULL, label = TRUE, 
                     label.position = NULL, label.theme = NULL, label.hjust = NULL, label.vjust = NULL, 
                     barwidth = structure(15, unit = 3L, class = c("simpleUnit", "unit"
                     )), barheight = structure(1, unit = 3L, class = c("simpleUnit", "unit"
                     )), nbin = 20, raster = TRUE, frame.colour = NULL, frame.linewidth = 0.5, 
                     frame.linetype = 1, ticks = TRUE, ticks.colour = "white", ticks.linewidth = 0.5, 
                     draw.ulim = TRUE, draw.llim = TRUE, direction = NULL, default.unit = "line", 
                     reverse = FALSE, order = 0, available_aes = c("colour", "color", 
                     "fill"), name = "colorbar"), class = c("guide", "colorbar")))), class = c("gg", 
         "ggplot")), row.dendrogram = FALSE, col.dendrogram = FALSE, yt.axis = TRUE, yr.axis = TRUE, 
         yt.axis.name = "NULL", yr.axis.name = "NULL", padding = 1, bottom.label.size = 0.2, 
         left.label.size = 0.2)
  4: gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
         pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
  5: is.grob(grobs)
  6: gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), pattern = "guide-box", trim = TRUE, 
         fixed = TRUE)
  7: grepl(pattern, .subset2(x$layout, "name"), fixed = fixed)
  8: ggplot2::ggplotGrob(gg.legend)
  9: ggplot_gtable(ggplot_build(x))
  10: ggplot_gtable.ggplot_built(ggplot_build(x))
  ...
  22: pushvpgp(x)
  23: pushgrobvp(x$vp)
  24: pushgrobvp.viewport(x$vp)
  25: pushViewport(vp, recording = FALSE)
  26: lapply(vps, push.vp, recording)
  27: FUN(X[[i]], ...)
  28: push.vp.vpTree(X[[i]], ...)
  29: push.vp(vp$parent, recording)
  30: push.vp.viewport(vp$parent, recording)
  31: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 34. Error: Adding title (@test-layout-examples.R#38)  ───────────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: superheat(X, title = "title!") at testthat/test-layout-examples.R:38
  2: do.call(generate_grobs, grob.arg.list)
  3: (function (layout, gg.top = NULL, gg.right = NULL, gg.bottom = NULL, gg.left = NULL, 
         gg.legend = NULL, gg.title = NULL, gg.row.title = NULL, gg.column.title = NULL, 
         row.dendrogram = F, col.dendrogram = F, yt.axis = T, yr.axis = T, yt.axis.name = T, 
         yr.axis.name = T, padding = 1, bottom.label.size = 0.1, left.label.size = 0.1) 
     {
         if (row.dendrogram) {
             yr.axis <- F
         }
         if (col.dendrogram) {
             yt.axis <- F
         }
         if (!is.null(gg.legend)) {
             t <- nrow(layout)
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
                 pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.right)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yr.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "axis-b", trim = TRUE, fixed = TRUE), t = (t + 1), l = l)
             }
             if (yr.axis && !is.null(yr.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "xlab", trim = TRUE, fixed = TRUE), t = (t + 2), l = l)
             }
         }
         if (!is.null(gg.top)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yt.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "axis-l", trim = TRUE, fixed = TRUE), t = t, l = (l - 1))
             }
             if (yt.axis & !is.null(yt.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "ylab", trim = TRUE, fixed = TRUE), t = t, l = (l - 2))
             }
         }
         if (!is.null(gg.left)) {
             t <- 1
             l <- 1
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if ((left.label.size <= 0.2) && !is.null(gg.top) && yt.axis && !is.null(yt.axis.name)) {
                 l <- l + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.row.title) && (!(!is.null(gg.top) && yt.axis) | is.null(gg.top) && 
                 !is.null(gg.left) | !is.null(gg.top) && yt.axis && !is.null(gg.left) && 
                 left.label.size >= 0.2)) {
                 l <- l + 1
             }
             r <- l
             if (left.label.size > 0.2 && !is.null(gg.top) && yt.axis) {
                 r <- r + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.left), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, r = r)
         }
         if (!is.null(gg.bottom)) {
             t <- 2
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             b <- t
             if (bottom.label.size > 0.2 && !is.null(gg.right) && yr.axis) {
                 b <- t + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.bottom), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, b = b)
             b.bottom <- b
         }
         if (!is.null(gg.title)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.row.title)) {
             l <- 1
             t <- 1
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.top) && yt.axis && is.null(gg.left)) {
                 l <- l + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.row.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.column.title)) {
             if (!is.null(gg.bottom)) {
                 t <- b.bottom + 1
             }
             else {
                 t <- 2
                 if (!is.null(gg.title)) {
                     t <- t + 1
                 }
                 if (!is.null(gg.top)) {
                     t <- t + 1
                 }
             }
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.column.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         layout <- gtable::gtable_add_padding(layout, grid::unit(padding, "cm"))
         return(layout)
     })(layout = structure(list(grobs = list(structure(list(name = "panel-1.gTree.3022", 
         gp = NULL, vp = NULL, children = structure(list(grill.gTree.3020 = structure(list(
             name = "grill.gTree.3020", gp = NULL, vp = NULL, children = structure(list(
                 panel.background..rect.3011 = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     just = "centre", hjust = NULL, vjust = NULL, name = "panel.background..rect.3011", 
                     gp = structure(list(lwd = 1.42263779527559, col = NA, fill = "grey92", 
                       lty = 1), class = "gpar"), vp = NULL), class = c("rect", "grob", 
                 "gDesc")), panel.grid.minor.y..polyline.3013 = structure(list(x = structure(c(0, 
                 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.0625, 
                 0.0625, 0.3125, 0.3125, 0.5625, 0.5625, 0.8125, 0.8125), unit = 0L, class = c("simpleUnit", 
                 "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.minor.y..polyline.3013", 
                     gp = structure(list(lwd = 0.711318897637795, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.minor.x..polyline.3015 = structure(list(
                     x = structure(c(0.0833333333333333, 0.0833333333333333, 0.25, 0.25, 
                     0.416666666666667, 0.416666666666667, 0.583333333333333, 0.583333333333333, 
                     0.75, 0.75, 0.916666666666667, 0.916666666666667), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, 
                     name = "panel.grid.minor.x..polyline.3015", gp = structure(list(lwd = 0.711318897637795, 
                       col = "white", lty = 1, lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.y..polyline.3017 = structure(list(
                     x = structure(c(0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0.1875, 0.1875, 0.4375, 0.4375, 0.6875, 
                     0.6875, 0.9375, 0.9375), unit = 4L, class = c("simpleUnit", "unit"
                     )), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.y..polyline.3017", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.x..polyline.3019 = structure(list(
                     x = structure(c(0, 0, 0.166666666666667, 0.166666666666667, 0.333333333333333, 
                     0.333333333333333, 0.5, 0.5, 0.666666666666667, 0.666666666666667, 
                     0.833333333333333, 0.833333333333333, 1, 1), unit = 4L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 
                     1), unit = 0L, class = c("simpleUnit", "unit")), id = NULL, id.lengths = c(2L, 
                     2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.x..polyline.3019", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc"))), class = "gList"), childrenOrder = c("panel.background..rect.3011", 
             "panel.grid.minor.y..polyline.3013", "panel.grid.minor.x..polyline.3015", 
             "panel.grid.major.y..polyline.3017", "panel.grid.major.x..polyline.3019")), class = c("gTree", 
         "grob", "gDesc")), `NULL` = structure(list(name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", 
         "grob", "gDesc")), GRID.rastergrob.2994 = structure(list(raster = structure(c("#CEDE41FF", 
         "#45306FFF", "#FDE725FF", "#45306FFF", "#21908CFF", "#45306FFF", "#5DC863FF", 
         "#45306FFF", "#21908CFF", "#50B572FF", "#45306FFF", "#5DC863FF", "#45306FFF", 
         "#FDE725FF", "#CEDE41FF", "#21908CFF", "#45306FFF", "#45306FFF", "#45306FFF", 
         "#21908CFF", "#5DC863FF", "#45306FFF", "#5DC863FF", "#50B572FF"), .Dim = c(8L, 
         3L), class = "raster"), x = structure(0.5, unit = 4L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), width = structure(1, unit = 4L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             just = "centre", hjust = NULL, vjust = NULL, interpolate = FALSE, name = "GRID.rastergrob.2994", 
             gp = structure(list(), class = "gpar"), vp = NULL), class = c("rastergrob", 
         "grob", "gDesc")), GRID.segments.2995 = structure(list(x0 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2995", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2996 = structure(list(
             x0 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", "unit"
             )), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", 
             "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             arrow = NULL, name = "GRID.segments.2996", gp = structure(list(col = "#000000FF", 
                 fill = "#000000FF", lwd = 1.42263779527559, lty = 1, lineend = "butt", 
                 linejoin = "round"), class = "gpar"), vp = NULL), class = c("segments", 
         "grob", "gDesc")), GRID.segments.2997 = structure(list(x0 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2997", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2998 = structure(list(
             x0 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2998", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.2999 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.2999", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3000 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.125, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.125, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3000", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3001 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.25, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.25, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3001", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3002 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.375, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.375, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3002", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3003 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.5, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3003", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3004 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.625, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.625, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3004", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3005 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.75, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.75, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3005", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3006 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.875, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.875, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3006", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3007 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(1, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3007", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), `NULL` = structure(list(
             name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"
         )), panel.border..zeroGrob.3008 = structure(list(name = "panel.border..zeroGrob.3008", 
             gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"))), class = "gList"), 
         childrenOrder = c("grill.gTree.3020", "NULL", "GRID.rastergrob.2994", "GRID.segments.2995", 
         "GRID.segments.2996", "GRID.segments.2997", "GRID.segments.2998", "GRID.segments.2999", 
         "GRID.segments.3000", "GRID.segments.3001", "GRID.segments.3002", "GRID.segments.3003", 
         "GRID.segments.3004", "GRID.segments.3005", "GRID.segments.3006", "GRID.segments.3007", 
         "NULL", "panel.border..zeroGrob.3008")), class = c("gTree", "grob", "gDesc"))), 
         layout = structure(list(t = 2, l = 2, b = 2, r = 2, z = 1, clip = "on", name = "panel"), row.names = c(NA, 
         -1L), class = "data.frame"), widths = structure(list(list(0.2, NULL, 5L), list(
             1, NULL, 5L)), class = "unit"), heights = structure(list(list(0.2, NULL, 
             5L), list(1, NULL, 5L), list(0.2, NULL, 5L), list(0.1, NULL, 5L)), class = "unit"), 
         respect = FALSE, rownames = NULL, colnames = NULL, name = "layout", gp = NULL, 
         vp = NULL, children = structure(list(), class = "gList"), childrenOrder = character(0)), class = c("gtable", 
     "gTree", "grob", "gDesc")), gg.bottom = structure(list(data = structure(list(variable = structure(1:3, .Label = c("1", 
     "2", "3"), class = "factor"), col = structure(c(1L, 2L, 1L), .Label = c("grey95", 
     "grey80"), class = "factor"), n = c(1, 1, 1), id = 1:3, increment = c(0.333333333333333, 
     0.333333333333333, 0.333333333333333), breaks = c(1, 1.33333333333333, 1.66666666666667
     )), row.names = c(NA, -3L), class = "data.frame"), layers = list(<environment>, <environment>), 
         scales = <environment>, mapping = structure(list(xmin = ~breaks, xmax = ~breaks + 
             increment, ymin = 0, ymax = 1, fill = ~col), class = "uneval"), theme = structure(list(
             line = structure(list(), class = c("element_blank", "element")), rect = structure(list(), class = c("element_blank", 
             "element")), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
             axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, size = NULL, 
                 hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, margin = structure(c(2.2, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text.y = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = 1, vjust = NULL, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = 0, vjust = NULL, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.ticks = structure(list(), class = c("element_blank", "element")), 
             axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", "unit"
             )), axis.line = structure(list(), class = c("element_blank", "element")), 
             axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                 fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
             "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
             "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                 fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
             "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                 family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                 hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                 debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                 face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                 lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
             legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
             0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
             "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
             "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                 size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                 size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
             "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                 colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, arrow = FALSE, 
                 inherit.blank = TRUE), class = c("element_line", "element")), panel.grid.minor = structure(list(
                 colour = NULL, size = structure(0.5, class = "rel"), linetype = NULL, 
                 lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
             "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                 colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), plot.title = structure(list(), class = c("element_blank", "element"
             )), plot.subtitle = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, margin = structure(c(0, 
                 0, 5.5, 0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), plot.caption = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, angle = NULL, 
                 lineheight = NULL, margin = structure(c(5.5, 0, 0, 0), unit = 8L, class = c("margin", 
                 "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                 lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
             0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                 fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), strip.placement = "inside", strip.text = structure(list(), class = c("element_blank", 
             "element")), strip.text.x = NULL, strip.text.y = structure(list(family = NULL, 
                 face = NULL, colour = NULL, size = NULL, hjust = NULL, vjust = NULL, 
                 angle = -90, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
             "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
             "unit")), axis.title = structure(list(), class = c("element_blank", "element"
             ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
         facet = <environment>, plot_env = <environment>, labels = list(xmin = "breaks", 
             xmax = "breaks + increment", ymin = "ymin", ymax = "ymax", fill = "col", 
             x = "breaks + increment/2", y = "pos", label = "variable")), class = c("gg", 
     "ggplot")), gg.left = structure(list(data = structure(list(variable = structure(1:8, .Label = c("1", 
     "2", "3", "4", "5", "6", "7", "8"), class = "factor"), col = structure(c(1L, 2L, 
     1L, 2L, 1L, 2L, 1L, 2L), .Label = c("grey95", "grey80"), class = "factor"), n = c(1, 
     1, 1, 1, 1, 1, 1, 1), id = 1:8, increment = c(0.125, 0.125, 0.125, 0.125, 0.125, 
     0.125, 0.125, 0.125), breaks = c(1, 1.125, 1.25, 1.375, 1.5, 1.625, 1.75, 1.875)), row.names = c(NA, 
     -8L), class = "data.frame"), layers = list(<environment>, <environment>), scales = <environment>, 
         mapping = structure(list(xmin = 0, xmax = 1, ymin = ~breaks, ymax = ~breaks + 
             increment, fill = ~col), class = "uneval"), theme = structure(list(line = structure(list(), class = c("element_blank", 
         "element")), rect = structure(list(), class = c("element_blank", "element")), 
             text = structure(list(family = "", face = "plain", colour = "black", size = 11, 
                 hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
             axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, size = NULL, 
                 hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, margin = structure(c(2.2, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text.y = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = 1, vjust = NULL, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = 0, vjust = NULL, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.ticks = structure(list(), class = c("element_blank", "element")), 
             axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", "unit"
             )), axis.line = structure(list(), class = c("element_blank", "element")), 
             axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                 fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
             "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
             "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                 fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
             "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                 family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                 hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                 debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                 face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                 lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
             legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
             0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
             "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
             "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                 size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                 size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
             "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                 colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, arrow = FALSE, 
                 inherit.blank = TRUE), class = c("element_line", "element")), panel.grid.minor = structure(list(
                 colour = NULL, size = structure(0.5, class = "rel"), linetype = NULL, 
                 lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
             "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                 colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), plot.title = structure(list(), class = c("element_blank", "element"
             )), plot.subtitle = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, margin = structure(c(0, 
                 0, 5.5, 0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), plot.caption = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, angle = NULL, 
                 lineheight = NULL, margin = structure(c(5.5, 0, 0, 0), unit = 8L, class = c("margin", 
                 "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                 lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
             0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                 fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), strip.placement = "inside", strip.text = structure(list(), class = c("element_blank", 
             "element")), strip.text.x = NULL, strip.text.y = structure(list(family = NULL, 
                 face = NULL, colour = NULL, size = NULL, hjust = NULL, vjust = NULL, 
                 angle = -90, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
             "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
             "unit")), axis.title = structure(list(), class = c("element_blank", "element"
             ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
         facet = <environment>, plot_env = <environment>, labels = list(xmin = "xmin", 
             xmax = "xmax", ymin = "breaks", ymax = "breaks + increment", fill = "col", 
             x = "pos", y = "breaks + increment/2", label = "variable")), class = c("gg", 
     "ggplot")), gg.legend = structure(list(data = structure(list(value = c(1, 1, 2, 1, 
     4, 5, 1, 7, 5, 2, 1, 8, 1, 1, 2, 1, 4, 5, 1, 7, 5, 2, 1, 8), x = c(1, 1, 1, 1, 1, 
     1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3), y = c(1, 2, 3, 4, 5, 6, 
     7, 8, 1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8)), class = "data.frame", row.names = c(NA, 
     -24L)), layers = list(<environment>, <environment>, <environment>, <environment>, 
         <environment>, <environment>, <environment>, <environment>, <environment>, <environment>, 
         <environment>, <environment>, <environment>, <environment>), scales = <environment>, 
         mapping = structure(list(), .Names = character(0), class = "uneval"), theme = structure(list(
             axis.text.x = structure(list(), class = c("element_blank", "element")), axis.text.y = structure(list(), class = c("element_blank", 
             "element")), axis.ticks = structure(list(), class = c("element_blank", "element"
             )), legend.key.width = structure(2, unit = 3L, class = c("simpleUnit", "unit"
             )), legend.text = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = 12, hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, 
                 margin = NULL, debug = NULL, inherit.blank = FALSE), class = c("element_text", 
             "element")), legend.direction = "horizontal"), class = c("theme", "gg"), complete = FALSE, validate = FALSE), 
         coordinates = <environment>, facet = <environment>, plot_env = <environment>, 
         labels = list(x = "x", y = "y", fill = "value", xintercept = "xintercept", yintercept = "yintercept"), 
         guides = list(fill = structure(list(title = structure(list(), class = "waiver"), 
             title.position = NULL, title.theme = NULL, title.hjust = NULL, title.vjust = NULL, 
             label = TRUE, label.position = NULL, label.theme = NULL, label.hjust = NULL, 
             label.vjust = NULL, barwidth = structure(15, unit = 3L, class = c("simpleUnit", 
             "unit")), barheight = structure(1, unit = 3L, class = c("simpleUnit", "unit"
             )), nbin = 20, raster = TRUE, frame.colour = NULL, frame.linewidth = 0.5, 
             frame.linetype = 1, ticks = TRUE, ticks.colour = "white", ticks.linewidth = 0.5, 
             draw.ulim = TRUE, draw.llim = TRUE, direction = NULL, default.unit = "line", 
             reverse = FALSE, order = 0, available_aes = c("colour", "color", "fill"), 
             name = "colorbar"), class = c("guide", "colorbar")))), class = c("gg", "ggplot"
     )), gg.title = structure(list(data = structure(list(x = 0, y = 0, title = structure(1L, .Label = "title!", class = "factor")), class = "data.frame", row.names = c(NA, 
     -1L)), layers = list(<environment>), scales = <environment>, mapping = structure(list(), .Names = character(0), class = "uneval"), 
         theme = structure(list(line = structure(list(), class = c("element_blank", "element"
         )), rect = structure(list(), class = c("element_blank", "element")), text = structure(list(
             family = "", face = "plain", colour = "black", size = 11, hjust = 0.5, vjust = 0.5, 
             angle = 0, lineheight = 0.9, margin = structure(c(0, 0, 0, 0), unit = 8L, class = c("margin", 
             "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
         "element")), axis.title.x = structure(list(), class = c("element_blank", "element"
         )), axis.title.x.top = structure(list(family = NULL, face = NULL, colour = NULL, 
             size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, margin = structure(c(0, 
             0, 2.75, 0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
         "element")), axis.title.y = structure(list(), class = c("element_blank", "element"
         )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
             size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, margin = structure(c(0, 
             0, 0, 2.75), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
         "element")), axis.text = structure(list(), class = c("element_blank", "element"
         )), axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, size = NULL, 
             hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, margin = structure(c(2.2, 
             0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
         "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, colour = NULL, 
             size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, margin = structure(c(0, 
             0, 2.2, 0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
         "element")), axis.text.y = structure(list(family = NULL, face = NULL, colour = NULL, 
             size = NULL, hjust = 1, vjust = NULL, angle = NULL, lineheight = NULL, margin = structure(c(0, 
             2.2, 0, 0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
         "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
             size = NULL, hjust = 0, vjust = NULL, angle = NULL, lineheight = NULL, margin = structure(c(0, 
             0, 0, 2.2), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
         "element")), axis.ticks = structure(list(), class = c("element_blank", "element"
         )), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", "unit"
         )), axis.line = structure(list(), class = c("element_blank", "element")), axis.line.x = NULL, 
             axis.line.y = NULL, legend.background = structure(list(fill = NULL, colour = NA, 
                 size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
             "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
             "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                 fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
             "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                 family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                 hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                 debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                 face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                 lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
             legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
             0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
             "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
             "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                 size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                 size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
             "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                 colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, arrow = FALSE, 
                 inherit.blank = TRUE), class = c("element_line", "element")), panel.grid.minor = structure(list(
                 colour = NULL, size = structure(0.5, class = "rel"), linetype = NULL, 
                 lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
             "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                 colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), plot.title = structure(list(), class = c("element_blank", "element"
             )), plot.subtitle = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, margin = structure(c(0, 
                 0, 5.5, 0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), plot.caption = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, angle = NULL, 
                 lineheight = NULL, margin = structure(c(5.5, 0, 0, 0), unit = 8L, class = c("margin", 
                 "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                 lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
             0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                 fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), strip.placement = "inside", strip.text = structure(list(), class = c("element_blank", 
             "element")), strip.text.x = NULL, strip.text.y = structure(list(family = NULL, 
                 face = NULL, colour = NULL, size = NULL, hjust = NULL, vjust = NULL, 
                 angle = -90, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
             "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
             "unit")), axis.title = structure(list(), class = c("element_blank", "element"
             ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
         facet = <environment>, plot_env = <environment>, labels = list(x = "x", y = "y", 
             label = "title")), class = c("gg", "ggplot")), row.dendrogram = FALSE, col.dendrogram = FALSE, 
         yt.axis = TRUE, yr.axis = TRUE, yt.axis.name = "NULL", yr.axis.name = "NULL", 
         padding = 1, bottom.label.size = 0.2, left.label.size = 0.2)
  4: gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
         pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
  5: is.grob(grobs)
  6: gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), pattern = "guide-box", trim = TRUE, 
         fixed = TRUE)
  7: grepl(pattern, .subset2(x$layout, "name"), fixed = fixed)
  8: ggplot2::ggplotGrob(gg.legend)
  9: ggplot_gtable(ggplot_build(x))
  10: ggplot_gtable.ggplot_built(ggplot_build(x))
  ...
  22: pushvpgp(x)
  23: pushgrobvp(x$vp)
  24: pushgrobvp.viewport(x$vp)
  25: pushViewport(vp, recording = FALSE)
  26: lapply(vps, push.vp, recording)
  27: FUN(X[[i]], ...)
  28: push.vp.vpTree(X[[i]], ...)
  29: push.vp(vp$parent, recording)
  30: push.vp.viewport(vp$parent, recording)
  31: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 35. Error: Adding column name (@test-layout-examples.R#46)  ─────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: superheat(X, column.title = "colname") at testthat/test-layout-examples.R:46
  2: do.call(generate_grobs, grob.arg.list)
  3: (function (layout, gg.top = NULL, gg.right = NULL, gg.bottom = NULL, gg.left = NULL, 
         gg.legend = NULL, gg.title = NULL, gg.row.title = NULL, gg.column.title = NULL, 
         row.dendrogram = F, col.dendrogram = F, yt.axis = T, yr.axis = T, yt.axis.name = T, 
         yr.axis.name = T, padding = 1, bottom.label.size = 0.1, left.label.size = 0.1) 
     {
         if (row.dendrogram) {
             yr.axis <- F
         }
         if (col.dendrogram) {
             yt.axis <- F
         }
         if (!is.null(gg.legend)) {
             t <- nrow(layout)
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
                 pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.right)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yr.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "axis-b", trim = TRUE, fixed = TRUE), t = (t + 1), l = l)
             }
             if (yr.axis && !is.null(yr.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "xlab", trim = TRUE, fixed = TRUE), t = (t + 2), l = l)
             }
         }
         if (!is.null(gg.top)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yt.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "axis-l", trim = TRUE, fixed = TRUE), t = t, l = (l - 1))
             }
             if (yt.axis & !is.null(yt.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "ylab", trim = TRUE, fixed = TRUE), t = t, l = (l - 2))
             }
         }
         if (!is.null(gg.left)) {
             t <- 1
             l <- 1
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if ((left.label.size <= 0.2) && !is.null(gg.top) && yt.axis && !is.null(yt.axis.name)) {
                 l <- l + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.row.title) && (!(!is.null(gg.top) && yt.axis) | is.null(gg.top) && 
                 !is.null(gg.left) | !is.null(gg.top) && yt.axis && !is.null(gg.left) && 
                 left.label.size >= 0.2)) {
                 l <- l + 1
             }
             r <- l
             if (left.label.size > 0.2 && !is.null(gg.top) && yt.axis) {
                 r <- r + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.left), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, r = r)
         }
         if (!is.null(gg.bottom)) {
             t <- 2
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             b <- t
             if (bottom.label.size > 0.2 && !is.null(gg.right) && yr.axis) {
                 b <- t + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.bottom), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, b = b)
             b.bottom <- b
         }
         if (!is.null(gg.title)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.row.title)) {
             l <- 1
             t <- 1
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.top) && yt.axis && is.null(gg.left)) {
                 l <- l + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.row.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.column.title)) {
             if (!is.null(gg.bottom)) {
                 t <- b.bottom + 1
             }
             else {
                 t <- 2
                 if (!is.null(gg.title)) {
                     t <- t + 1
                 }
                 if (!is.null(gg.top)) {
                     t <- t + 1
                 }
             }
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.column.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         layout <- gtable::gtable_add_padding(layout, grid::unit(padding, "cm"))
         return(layout)
     })(layout = structure(list(grobs = list(structure(list(name = "panel-1.gTree.3118", 
         gp = NULL, vp = NULL, children = structure(list(grill.gTree.3116 = structure(list(
             name = "grill.gTree.3116", gp = NULL, vp = NULL, children = structure(list(
                 panel.background..rect.3107 = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     just = "centre", hjust = NULL, vjust = NULL, name = "panel.background..rect.3107", 
                     gp = structure(list(lwd = 1.42263779527559, col = NA, fill = "grey92", 
                       lty = 1), class = "gpar"), vp = NULL), class = c("rect", "grob", 
                 "gDesc")), panel.grid.minor.y..polyline.3109 = structure(list(x = structure(c(0, 
                 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.0625, 
                 0.0625, 0.3125, 0.3125, 0.5625, 0.5625, 0.8125, 0.8125), unit = 0L, class = c("simpleUnit", 
                 "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.minor.y..polyline.3109", 
                     gp = structure(list(lwd = 0.711318897637795, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.minor.x..polyline.3111 = structure(list(
                     x = structure(c(0.0833333333333333, 0.0833333333333333, 0.25, 0.25, 
                     0.416666666666667, 0.416666666666667, 0.583333333333333, 0.583333333333333, 
                     0.75, 0.75, 0.916666666666667, 0.916666666666667), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, 
                     name = "panel.grid.minor.x..polyline.3111", gp = structure(list(lwd = 0.711318897637795, 
                       col = "white", lty = 1, lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.y..polyline.3113 = structure(list(
                     x = structure(c(0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0.1875, 0.1875, 0.4375, 0.4375, 0.6875, 
                     0.6875, 0.9375, 0.9375), unit = 4L, class = c("simpleUnit", "unit"
                     )), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.y..polyline.3113", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.x..polyline.3115 = structure(list(
                     x = structure(c(0, 0, 0.166666666666667, 0.166666666666667, 0.333333333333333, 
                     0.333333333333333, 0.5, 0.5, 0.666666666666667, 0.666666666666667, 
                     0.833333333333333, 0.833333333333333, 1, 1), unit = 4L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 
                     1), unit = 0L, class = c("simpleUnit", "unit")), id = NULL, id.lengths = c(2L, 
                     2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.x..polyline.3115", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc"))), class = "gList"), childrenOrder = c("panel.background..rect.3107", 
             "panel.grid.minor.y..polyline.3109", "panel.grid.minor.x..polyline.3111", 
             "panel.grid.major.y..polyline.3113", "panel.grid.major.x..polyline.3115")), class = c("gTree", 
         "grob", "gDesc")), `NULL` = structure(list(name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", 
         "grob", "gDesc")), GRID.rastergrob.3090 = structure(list(raster = structure(c("#CEDE41FF", 
         "#45306FFF", "#FDE725FF", "#45306FFF", "#21908CFF", "#45306FFF", "#5DC863FF", 
         "#45306FFF", "#21908CFF", "#50B572FF", "#45306FFF", "#5DC863FF", "#45306FFF", 
         "#FDE725FF", "#CEDE41FF", "#21908CFF", "#45306FFF", "#45306FFF", "#45306FFF", 
         "#21908CFF", "#5DC863FF", "#45306FFF", "#5DC863FF", "#50B572FF"), .Dim = c(8L, 
         3L), class = "raster"), x = structure(0.5, unit = 4L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), width = structure(1, unit = 4L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             just = "centre", hjust = NULL, vjust = NULL, interpolate = FALSE, name = "GRID.rastergrob.3090", 
             gp = structure(list(), class = "gpar"), vp = NULL), class = c("rastergrob", 
         "grob", "gDesc")), GRID.segments.3091 = structure(list(x0 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3091", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3092 = structure(list(
             x0 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", "unit"
             )), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", 
             "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             arrow = NULL, name = "GRID.segments.3092", gp = structure(list(col = "#000000FF", 
                 fill = "#000000FF", lwd = 1.42263779527559, lty = 1, lineend = "butt", 
                 linejoin = "round"), class = "gpar"), vp = NULL), class = c("segments", 
         "grob", "gDesc")), GRID.segments.3093 = structure(list(x0 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3093", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3094 = structure(list(
             x0 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3094", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3095 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3095", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3096 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.125, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.125, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3096", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3097 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.25, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.25, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3097", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3098 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.375, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.375, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3098", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3099 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.5, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3099", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3100 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.625, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.625, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3100", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3101 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.75, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.75, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3101", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3102 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.875, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.875, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3102", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3103 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(1, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3103", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), `NULL` = structure(list(
             name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"
         )), panel.border..zeroGrob.3104 = structure(list(name = "panel.border..zeroGrob.3104", 
             gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"))), class = "gList"), 
         childrenOrder = c("grill.gTree.3116", "NULL", "GRID.rastergrob.3090", "GRID.segments.3091", 
         "GRID.segments.3092", "GRID.segments.3093", "GRID.segments.3094", "GRID.segments.3095", 
         "GRID.segments.3096", "GRID.segments.3097", "GRID.segments.3098", "GRID.segments.3099", 
         "GRID.segments.3100", "GRID.segments.3101", "GRID.segments.3102", "GRID.segments.3103", 
         "NULL", "panel.border..zeroGrob.3104")), class = c("gTree", "grob", "gDesc"))), 
         layout = structure(list(t = 1, l = 2, b = 1, r = 2, z = 1, clip = "on", name = "panel"), row.names = c(NA, 
         -1L), class = "data.frame"), widths = structure(list(list(0.2, NULL, 5L), list(
             1, NULL, 5L)), class = "unit"), heights = structure(list(list(1, NULL, 5L), 
             list(0.2, NULL, 5L), list(0.1, NULL, 5L), list(0.1, NULL, 5L)), class = "unit"), 
         respect = FALSE, rownames = NULL, colnames = NULL, name = "layout", gp = NULL, 
         vp = NULL, children = structure(list(), class = "gList"), childrenOrder = character(0)), class = c("gtable", 
     "gTree", "grob", "gDesc")), gg.bottom = structure(list(data = structure(list(variable = structure(1:3, .Label = c("1", 
     "2", "3"), class = "factor"), col = structure(c(1L, 2L, 1L), .Label = c("grey95", 
     "grey80"), class = "factor"), n = c(1, 1, 1), id = 1:3, increment = c(0.333333333333333, 
     0.333333333333333, 0.333333333333333), breaks = c(1, 1.33333333333333, 1.66666666666667
     )), row.names = c(NA, -3L), class = "data.frame"), layers = list(<environment>, <environment>), 
         scales = <environment>, mapping = structure(list(xmin = ~breaks, xmax = ~breaks + 
             increment, ymin = 0, ymax = 1, fill = ~col), class = "uneval"), theme = structure(list(
             line = structure(list(), class = c("element_blank", "element")), rect = structure(list(), class = c("element_blank", 
             "element")), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
             axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, size = NULL, 
                 hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, margin = structure(c(2.2, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text.y = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = 1, vjust = NULL, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = 0, vjust = NULL, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.ticks = structure(list(), class = c("element_blank", "element")), 
             axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", "unit"
             )), axis.line = structure(list(), class = c("element_blank", "element")), 
             axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                 fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
             "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
             "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                 fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
             "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                 family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                 hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                 debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                 face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                 lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
             legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
             0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
             "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
             "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                 size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                 size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
             "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                 colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, arrow = FALSE, 
                 inherit.blank = TRUE), class = c("element_line", "element")), panel.grid.minor = structure(list(
                 colour = NULL, size = structure(0.5, class = "rel"), linetype = NULL, 
                 lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
             "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                 colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), plot.title = structure(list(), class = c("element_blank", "element"
             )), plot.subtitle = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, margin = structure(c(0, 
                 0, 5.5, 0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), plot.caption = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, angle = NULL, 
                 lineheight = NULL, margin = structure(c(5.5, 0, 0, 0), unit = 8L, class = c("margin", 
                 "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                 lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
             0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                 fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), strip.placement = "inside", strip.text = structure(list(), class = c("element_blank", 
             "element")), strip.text.x = NULL, strip.text.y = structure(list(family = NULL, 
                 face = NULL, colour = NULL, size = NULL, hjust = NULL, vjust = NULL, 
                 angle = -90, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
             "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
             "unit")), axis.title = structure(list(), class = c("element_blank", "element"
             ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
         facet = <environment>, plot_env = <environment>, labels = list(xmin = "breaks", 
             xmax = "breaks + increment", ymin = "ymin", ymax = "ymax", fill = "col", 
             x = "breaks + increment/2", y = "pos", label = "variable")), class = c("gg", 
     "ggplot")), gg.left = structure(list(data = structure(list(variable = structure(1:8, .Label = c("1", 
     "2", "3", "4", "5", "6", "7", "8"), class = "factor"), col = structure(c(1L, 2L, 
     1L, 2L, 1L, 2L, 1L, 2L), .Label = c("grey95", "grey80"), class = "factor"), n = c(1, 
     1, 1, 1, 1, 1, 1, 1), id = 1:8, increment = c(0.125, 0.125, 0.125, 0.125, 0.125, 
     0.125, 0.125, 0.125), breaks = c(1, 1.125, 1.25, 1.375, 1.5, 1.625, 1.75, 1.875)), row.names = c(NA, 
     -8L), class = "data.frame"), layers = list(<environment>, <environment>), scales = <environment>, 
         mapping = structure(list(xmin = 0, xmax = 1, ymin = ~breaks, ymax = ~breaks + 
             increment, fill = ~col), class = "uneval"), theme = structure(list(line = structure(list(), class = c("element_blank", 
         "element")), rect = structure(list(), class = c("element_blank", "element")), 
             text = structure(list(family = "", face = "plain", colour = "black", size = 11, 
                 hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
             axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, size = NULL, 
                 hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, margin = structure(c(2.2, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text.y = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = 1, vjust = NULL, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = 0, vjust = NULL, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.ticks = structure(list(), class = c("element_blank", "element")), 
             axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", "unit"
             )), axis.line = structure(list(), class = c("element_blank", "element")), 
             axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                 fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
             "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
             "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                 fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
             "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                 family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                 hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                 debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                 face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                 lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
             legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
             0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
             "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
             "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                 size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                 size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
             "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                 colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, arrow = FALSE, 
                 inherit.blank = TRUE), class = c("element_line", "element")), panel.grid.minor = structure(list(
                 colour = NULL, size = structure(0.5, class = "rel"), linetype = NULL, 
                 lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
             "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                 colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), plot.title = structure(list(), class = c("element_blank", "element"
             )), plot.subtitle = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, margin = structure(c(0, 
                 0, 5.5, 0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), plot.caption = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, angle = NULL, 
                 lineheight = NULL, margin = structure(c(5.5, 0, 0, 0), unit = 8L, class = c("margin", 
                 "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                 lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
             0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                 fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), strip.placement = "inside", strip.text = structure(list(), class = c("element_blank", 
             "element")), strip.text.x = NULL, strip.text.y = structure(list(family = NULL, 
                 face = NULL, colour = NULL, size = NULL, hjust = NULL, vjust = NULL, 
                 angle = -90, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
             "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
             "unit")), axis.title = structure(list(), class = c("element_blank", "element"
             ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
         facet = <environment>, plot_env = <environment>, labels = list(xmin = "xmin", 
             xmax = "xmax", ymin = "breaks", ymax = "breaks + increment", fill = "col", 
             x = "pos", y = "breaks + increment/2", label = "variable")), class = c("gg", 
     "ggplot")), gg.legend = structure(list(data = structure(list(value = c(1, 1, 2, 1, 
     4, 5, 1, 7, 5, 2, 1, 8, 1, 1, 2, 1, 4, 5, 1, 7, 5, 2, 1, 8), x = c(1, 1, 1, 1, 1, 
     1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3), y = c(1, 2, 3, 4, 5, 6, 
     7, 8, 1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8)), class = "data.frame", row.names = c(NA, 
     -24L)), layers = list(<environment>, <environment>, <environment>, <environment>, 
         <environment>, <environment>, <environment>, <environment>, <environment>, <environment>, 
         <environment>, <environment>, <environment>, <environment>), scales = <environment>, 
         mapping = structure(list(), .Names = character(0), class = "uneval"), theme = structure(list(
             axis.text.x = structure(list(), class = c("element_blank", "element")), axis.text.y = structure(list(), class = c("element_blank", 
             "element")), axis.ticks = structure(list(), class = c("element_blank", "element"
             )), legend.key.width = structure(2, unit = 3L, class = c("simpleUnit", "unit"
             )), legend.text = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = 12, hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, 
                 margin = NULL, debug = NULL, inherit.blank = FALSE), class = c("element_text", 
             "element")), legend.direction = "horizontal"), class = c("theme", "gg"), complete = FALSE, validate = FALSE), 
         coordinates = <environment>, facet = <environment>, plot_env = <environment>, 
         labels = list(x = "x", y = "y", fill = "value", xintercept = "xintercept", yintercept = "yintercept"), 
         guides = list(fill = structure(list(title = structure(list(), class = "waiver"), 
             title.position = NULL, title.theme = NULL, title.hjust = NULL, title.vjust = NULL, 
             label = TRUE, label.position = NULL, label.theme = NULL, label.hjust = NULL, 
             label.vjust = NULL, barwidth = structure(15, unit = 3L, class = c("simpleUnit", 
             "unit")), barheight = structure(1, unit = 3L, class = c("simpleUnit", "unit"
             )), nbin = 20, raster = TRUE, frame.colour = NULL, frame.linewidth = 0.5, 
             frame.linetype = 1, ticks = TRUE, ticks.colour = "white", ticks.linewidth = 0.5, 
             draw.ulim = TRUE, draw.llim = TRUE, direction = NULL, default.unit = "line", 
             reverse = FALSE, order = 0, available_aes = c("colour", "color", "fill"), 
             name = "colorbar"), class = c("guide", "colorbar")))), class = c("gg", "ggplot"
     )), gg.column.title = structure(list(data = structure(list(x = 0, y = 0, name = structure(1L, .Label = "colname", class = "factor")), class = "data.frame", row.names = c(NA, 
     -1L)), layers = list(<environment>), scales = <environment>, mapping = structure(list(), .Names = character(0), class = "uneval"), 
         theme = structure(list(line = structure(list(), class = c("element_blank", "element"
         )), rect = structure(list(), class = c("element_blank", "element")), text = structure(list(
             family = "", face = "plain", colour = "black", size = 11, hjust = 0.5, vjust = 0.5, 
             angle = 0, lineheight = 0.9, margin = structure(c(0, 0, 0, 0), unit = 8L, class = c("margin", 
             "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
         "element")), axis.title.x = structure(list(), class = c("element_blank", "element"
         )), axis.title.x.top = structure(list(family = NULL, face = NULL, colour = NULL, 
             size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, margin = structure(c(0, 
             0, 2.75, 0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
         "element")), axis.title.y = structure(list(), class = c("element_blank", "element"
         )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
             size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, margin = structure(c(0, 
             0, 0, 2.75), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
         "element")), axis.text = structure(list(), class = c("element_blank", "element"
         )), axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, size = NULL, 
             hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, margin = structure(c(2.2, 
             0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
         "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, colour = NULL, 
             size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, margin = structure(c(0, 
             0, 2.2, 0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
         "element")), axis.text.y = structure(list(family = NULL, face = NULL, colour = NULL, 
             size = NULL, hjust = 1, vjust = NULL, angle = NULL, lineheight = NULL, margin = structure(c(0, 
             2.2, 0, 0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
         "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
             size = NULL, hjust = 0, vjust = NULL, angle = NULL, lineheight = NULL, margin = structure(c(0, 
             0, 0, 2.2), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
         "element")), axis.ticks = structure(list(), class = c("element_blank", "element"
         )), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", "unit"
         )), axis.line = structure(list(), class = c("element_blank", "element")), axis.line.x = NULL, 
             axis.line.y = NULL, legend.background = structure(list(fill = NULL, colour = NA, 
                 size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
             "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
             "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                 fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
             "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                 family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                 hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                 debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                 face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                 lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
             legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
             0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
             "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
             "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                 size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                 size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
             "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                 colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, arrow = FALSE, 
                 inherit.blank = TRUE), class = c("element_line", "element")), panel.grid.minor = structure(list(
                 colour = NULL, size = structure(0.5, class = "rel"), linetype = NULL, 
                 lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
             "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                 colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), plot.title = structure(list(), class = c("element_blank", "element"
             )), plot.subtitle = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, margin = structure(c(0, 
                 0, 5.5, 0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), plot.caption = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, angle = NULL, 
                 lineheight = NULL, margin = structure(c(5.5, 0, 0, 0), unit = 8L, class = c("margin", 
                 "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                 lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
             0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                 fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), strip.placement = "inside", strip.text = structure(list(), class = c("element_blank", 
             "element")), strip.text.x = NULL, strip.text.y = structure(list(family = NULL, 
                 face = NULL, colour = NULL, size = NULL, hjust = NULL, vjust = NULL, 
                 angle = -90, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
             "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
             "unit")), axis.title = structure(list(), class = c("element_blank", "element"
             ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
         facet = <environment>, plot_env = <environment>, labels = list(x = "x", y = "y", 
             label = "name")), class = c("gg", "ggplot")), row.dendrogram = FALSE, col.dendrogram = FALSE, 
         yt.axis = TRUE, yr.axis = TRUE, yt.axis.name = "NULL", yr.axis.name = "NULL", 
         padding = 1, bottom.label.size = 0.2, left.label.size = 0.2)
  4: gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
         pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
  5: is.grob(grobs)
  6: gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), pattern = "guide-box", trim = TRUE, 
         fixed = TRUE)
  7: grepl(pattern, .subset2(x$layout, "name"), fixed = fixed)
  8: ggplot2::ggplotGrob(gg.legend)
  9: ggplot_gtable(ggplot_build(x))
  10: ggplot_gtable.ggplot_built(ggplot_build(x))
  ...
  22: pushvpgp(x)
  23: pushgrobvp(x$vp)
  24: pushgrobvp.viewport(x$vp)
  25: pushViewport(vp, recording = FALSE)
  26: lapply(vps, push.vp, recording)
  27: FUN(X[[i]], ...)
  28: push.vp.vpTree(X[[i]], ...)
  29: push.vp(vp$parent, recording)
  30: push.vp.viewport(vp$parent, recording)
  31: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 36. Error: Adding column name with title (@test-layout-examples.R#52)  ──────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: superheat(X, column.title = "colname", title = "title") at testthat/test-layout-examples.R:52
  2: do.call(generate_grobs, grob.arg.list)
  3: (function (layout, gg.top = NULL, gg.right = NULL, gg.bottom = NULL, gg.left = NULL, 
         gg.legend = NULL, gg.title = NULL, gg.row.title = NULL, gg.column.title = NULL, 
         row.dendrogram = F, col.dendrogram = F, yt.axis = T, yr.axis = T, yt.axis.name = T, 
         yr.axis.name = T, padding = 1, bottom.label.size = 0.1, left.label.size = 0.1) 
     {
         if (row.dendrogram) {
             yr.axis <- F
         }
         if (col.dendrogram) {
             yt.axis <- F
         }
         if (!is.null(gg.legend)) {
             t <- nrow(layout)
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
                 pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.right)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yr.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "axis-b", trim = TRUE, fixed = TRUE), t = (t + 1), l = l)
             }
             if (yr.axis && !is.null(yr.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "xlab", trim = TRUE, fixed = TRUE), t = (t + 2), l = l)
             }
         }
         if (!is.null(gg.top)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yt.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "axis-l", trim = TRUE, fixed = TRUE), t = t, l = (l - 1))
             }
             if (yt.axis & !is.null(yt.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "ylab", trim = TRUE, fixed = TRUE), t = t, l = (l - 2))
             }
         }
         if (!is.null(gg.left)) {
             t <- 1
             l <- 1
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if ((left.label.size <= 0.2) && !is.null(gg.top) && yt.axis && !is.null(yt.axis.name)) {
                 l <- l + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.row.title) && (!(!is.null(gg.top) && yt.axis) | is.null(gg.top) && 
                 !is.null(gg.left) | !is.null(gg.top) && yt.axis && !is.null(gg.left) && 
                 left.label.size >= 0.2)) {
                 l <- l + 1
             }
             r <- l
             if (left.label.size > 0.2 && !is.null(gg.top) && yt.axis) {
                 r <- r + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.left), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, r = r)
         }
         if (!is.null(gg.bottom)) {
             t <- 2
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             b <- t
             if (bottom.label.size > 0.2 && !is.null(gg.right) && yr.axis) {
                 b <- t + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.bottom), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, b = b)
             b.bottom <- b
         }
         if (!is.null(gg.title)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.row.title)) {
             l <- 1
             t <- 1
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.top) && yt.axis && is.null(gg.left)) {
                 l <- l + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.row.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.column.title)) {
             if (!is.null(gg.bottom)) {
                 t <- b.bottom + 1
             }
             else {
                 t <- 2
                 if (!is.null(gg.title)) {
                     t <- t + 1
                 }
                 if (!is.null(gg.top)) {
                     t <- t + 1
                 }
             }
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.column.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         layout <- gtable::gtable_add_padding(layout, grid::unit(padding, "cm"))
         return(layout)
     })(layout = structure(list(grobs = list(structure(list(name = "panel-1.gTree.3214", 
         gp = NULL, vp = NULL, children = structure(list(grill.gTree.3212 = structure(list(
             name = "grill.gTree.3212", gp = NULL, vp = NULL, children = structure(list(
                 panel.background..rect.3203 = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     just = "centre", hjust = NULL, vjust = NULL, name = "panel.background..rect.3203", 
                     gp = structure(list(lwd = 1.42263779527559, col = NA, fill = "grey92", 
                       lty = 1), class = "gpar"), vp = NULL), class = c("rect", "grob", 
                 "gDesc")), panel.grid.minor.y..polyline.3205 = structure(list(x = structure(c(0, 
                 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.0625, 
                 0.0625, 0.3125, 0.3125, 0.5625, 0.5625, 0.8125, 0.8125), unit = 0L, class = c("simpleUnit", 
                 "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.minor.y..polyline.3205", 
                     gp = structure(list(lwd = 0.711318897637795, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.minor.x..polyline.3207 = structure(list(
                     x = structure(c(0.0833333333333333, 0.0833333333333333, 0.25, 0.25, 
                     0.416666666666667, 0.416666666666667, 0.583333333333333, 0.583333333333333, 
                     0.75, 0.75, 0.916666666666667, 0.916666666666667), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, 
                     name = "panel.grid.minor.x..polyline.3207", gp = structure(list(lwd = 0.711318897637795, 
                       col = "white", lty = 1, lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.y..polyline.3209 = structure(list(
                     x = structure(c(0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0.1875, 0.1875, 0.4375, 0.4375, 0.6875, 
                     0.6875, 0.9375, 0.9375), unit = 4L, class = c("simpleUnit", "unit"
                     )), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.y..polyline.3209", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.x..polyline.3211 = structure(list(
                     x = structure(c(0, 0, 0.166666666666667, 0.166666666666667, 0.333333333333333, 
                     0.333333333333333, 0.5, 0.5, 0.666666666666667, 0.666666666666667, 
                     0.833333333333333, 0.833333333333333, 1, 1), unit = 4L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 
                     1), unit = 0L, class = c("simpleUnit", "unit")), id = NULL, id.lengths = c(2L, 
                     2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.x..polyline.3211", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc"))), class = "gList"), childrenOrder = c("panel.background..rect.3203", 
             "panel.grid.minor.y..polyline.3205", "panel.grid.minor.x..polyline.3207", 
             "panel.grid.major.y..polyline.3209", "panel.grid.major.x..polyline.3211")), class = c("gTree", 
         "grob", "gDesc")), `NULL` = structure(list(name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", 
         "grob", "gDesc")), GRID.rastergrob.3186 = structure(list(raster = structure(c("#CEDE41FF", 
         "#45306FFF", "#FDE725FF", "#45306FFF", "#21908CFF", "#45306FFF", "#5DC863FF", 
         "#45306FFF", "#21908CFF", "#50B572FF", "#45306FFF", "#5DC863FF", "#45306FFF", 
         "#FDE725FF", "#CEDE41FF", "#21908CFF", "#45306FFF", "#45306FFF", "#45306FFF", 
         "#21908CFF", "#5DC863FF", "#45306FFF", "#5DC863FF", "#50B572FF"), .Dim = c(8L, 
         3L), class = "raster"), x = structure(0.5, unit = 4L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), width = structure(1, unit = 4L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             just = "centre", hjust = NULL, vjust = NULL, interpolate = FALSE, name = "GRID.rastergrob.3186", 
             gp = structure(list(), class = "gpar"), vp = NULL), class = c("rastergrob", 
         "grob", "gDesc")), GRID.segments.3187 = structure(list(x0 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3187", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3188 = structure(list(
             x0 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", "unit"
             )), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", 
             "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             arrow = NULL, name = "GRID.segments.3188", gp = structure(list(col = "#000000FF", 
                 fill = "#000000FF", lwd = 1.42263779527559, lty = 1, lineend = "butt", 
                 linejoin = "round"), class = "gpar"), vp = NULL), class = c("segments", 
         "grob", "gDesc")), GRID.segments.3189 = structure(list(x0 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3189", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3190 = structure(list(
             x0 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3190", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3191 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3191", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3192 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.125, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.125, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3192", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3193 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.25, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.25, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3193", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3194 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.375, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.375, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3194", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3195 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.5, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3195", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3196 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.625, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.625, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3196", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3197 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.75, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.75, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3197", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3198 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.875, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.875, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3198", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3199 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(1, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3199", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), `NULL` = structure(list(
             name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"
         )), panel.border..zeroGrob.3200 = structure(list(name = "panel.border..zeroGrob.3200", 
             gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"))), class = "gList"), 
         childrenOrder = c("grill.gTree.3212", "NULL", "GRID.rastergrob.3186", "GRID.segments.3187", 
         "GRID.segments.3188", "GRID.segments.3189", "GRID.segments.3190", "GRID.segments.3191", 
         "GRID.segments.3192", "GRID.segments.3193", "GRID.segments.3194", "GRID.segments.3195", 
         "GRID.segments.3196", "GRID.segments.3197", "GRID.segments.3198", "GRID.segments.3199", 
         "NULL", "panel.border..zeroGrob.3200")), class = c("gTree", "grob", "gDesc"))), 
         layout = structure(list(t = 2, l = 2, b = 2, r = 2, z = 1, clip = "on", name = "panel"), row.names = c(NA, 
         -1L), class = "data.frame"), widths = structure(list(list(0.2, NULL, 5L), list(
             1, NULL, 5L)), class = "unit"), heights = structure(list(list(0.2, NULL, 
             5L), list(1, NULL, 5L), list(0.2, NULL, 5L), list(0.1, NULL, 5L), list(0.1, 
             NULL, 5L)), class = "unit"), respect = FALSE, rownames = NULL, colnames = NULL, 
         name = "layout", gp = NULL, vp = NULL, children = structure(list(), class = "gList"), 
         childrenOrder = character(0)), class = c("gtable", "gTree", "grob", "gDesc")), 
         gg.bottom = structure(list(data = structure(list(variable = structure(1:3, .Label = c("1", 
         "2", "3"), class = "factor"), col = structure(c(1L, 2L, 1L), .Label = c("grey95", 
         "grey80"), class = "factor"), n = c(1, 1, 1), id = 1:3, increment = c(0.333333333333333, 
         0.333333333333333, 0.333333333333333), breaks = c(1, 1.33333333333333, 1.66666666666667
         )), row.names = c(NA, -3L), class = "data.frame"), layers = list(<environment>, 
             <environment>), scales = <environment>, mapping = structure(list(xmin = ~breaks, 
             xmax = ~breaks + increment, ymin = 0, ymax = 1, fill = ~col), class = "uneval"), 
             theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(xmin = "breaks", 
                 xmax = "breaks + increment", ymin = "ymin", ymax = "ymax", fill = "col", 
                 x = "breaks + increment/2", y = "pos", label = "variable")), class = c("gg", 
         "ggplot")), gg.left = structure(list(data = structure(list(variable = structure(1:8, .Label = c("1", 
         "2", "3", "4", "5", "6", "7", "8"), class = "factor"), col = structure(c(1L, 
         2L, 1L, 2L, 1L, 2L, 1L, 2L), .Label = c("grey95", "grey80"), class = "factor"), 
             n = c(1, 1, 1, 1, 1, 1, 1, 1), id = 1:8, increment = c(0.125, 0.125, 0.125, 
             0.125, 0.125, 0.125, 0.125, 0.125), breaks = c(1, 1.125, 1.25, 1.375, 1.5, 
             1.625, 1.75, 1.875)), row.names = c(NA, -8L), class = "data.frame"), layers = list(
             <environment>, <environment>), scales = <environment>, mapping = structure(list(
             xmin = 0, xmax = 1, ymin = ~breaks, ymax = ~breaks + increment, fill = ~col), class = "uneval"), 
             theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(xmin = "xmin", 
                 xmax = "xmax", ymin = "breaks", ymax = "breaks + increment", fill = "col", 
                 x = "pos", y = "breaks + increment/2", label = "variable")), class = c("gg", 
         "ggplot")), gg.legend = structure(list(data = structure(list(value = c(1, 1, 
         2, 1, 4, 5, 1, 7, 5, 2, 1, 8, 1, 1, 2, 1, 4, 5, 1, 7, 5, 2, 1, 8), x = c(1, 1, 
         1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3), y = c(1, 2, 
         3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8)), class = "data.frame", row.names = c(NA, 
         -24L)), layers = list(<environment>, <environment>, <environment>, <environment>, 
             <environment>, <environment>, <environment>, <environment>, <environment>, 
             <environment>, <environment>, <environment>, <environment>, <environment>), 
             scales = <environment>, mapping = structure(list(), .Names = character(0), class = "uneval"), 
             theme = structure(list(axis.text.x = structure(list(), class = c("element_blank", 
             "element")), axis.text.y = structure(list(), class = c("element_blank", "element"
             )), axis.ticks = structure(list(), class = c("element_blank", "element")), 
                 legend.key.width = structure(2, unit = 3L, class = c("simpleUnit", "unit"
                 )), legend.text = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = 12, hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, 
                     margin = NULL, debug = NULL, inherit.blank = FALSE), class = c("element_text", 
                 "element")), legend.direction = "horizontal"), class = c("theme", "gg"
             ), complete = FALSE, validate = FALSE), coordinates = <environment>, facet = <environment>, 
             plot_env = <environment>, labels = list(x = "x", y = "y", fill = "value", 
                 xintercept = "xintercept", yintercept = "yintercept"), guides = list(
                 fill = structure(list(title = structure(list(), class = "waiver"), title.position = NULL, 
                     title.theme = NULL, title.hjust = NULL, title.vjust = NULL, label = TRUE, 
                     label.position = NULL, label.theme = NULL, label.hjust = NULL, label.vjust = NULL, 
                     barwidth = structure(15, unit = 3L, class = c("simpleUnit", "unit"
                     )), barheight = structure(1, unit = 3L, class = c("simpleUnit", "unit"
                     )), nbin = 20, raster = TRUE, frame.colour = NULL, frame.linewidth = 0.5, 
                     frame.linetype = 1, ticks = TRUE, ticks.colour = "white", ticks.linewidth = 0.5, 
                     draw.ulim = TRUE, draw.llim = TRUE, direction = NULL, default.unit = "line", 
                     reverse = FALSE, order = 0, available_aes = c("colour", "color", 
                     "fill"), name = "colorbar"), class = c("guide", "colorbar")))), class = c("gg", 
         "ggplot")), gg.title = structure(list(data = structure(list(x = 0, y = 0, title = structure(1L, .Label = "title", class = "factor")), class = "data.frame", row.names = c(NA, 
         -1L)), layers = list(<environment>), scales = <environment>, mapping = structure(list(), .Names = character(0), class = "uneval"), 
             theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(x = "x", y = "y", 
                 label = "title")), class = c("gg", "ggplot")), gg.column.title = structure(list(
             data = structure(list(x = 0, y = 0, name = structure(1L, .Label = "colname", class = "factor")), class = "data.frame", row.names = c(NA, 
             -1L)), layers = list(<environment>), scales = <environment>, mapping = structure(list(), .Names = character(0), class = "uneval"), 
             theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(x = "x", y = "y", 
                 label = "name")), class = c("gg", "ggplot")), row.dendrogram = FALSE, 
         col.dendrogram = FALSE, yt.axis = TRUE, yr.axis = TRUE, yt.axis.name = "NULL", 
         yr.axis.name = "NULL", padding = 1, bottom.label.size = 0.2, left.label.size = 0.2)
  4: gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
         pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
  5: is.grob(grobs)
  6: gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), pattern = "guide-box", trim = TRUE, 
         fixed = TRUE)
  7: grepl(pattern, .subset2(x$layout, "name"), fixed = fixed)
  8: ggplot2::ggplotGrob(gg.legend)
  9: ggplot_gtable(ggplot_build(x))
  10: ggplot_gtable.ggplot_built(ggplot_build(x))
  ...
  22: pushvpgp(x)
  23: pushgrobvp(x$vp)
  24: pushgrobvp.viewport(x$vp)
  25: pushViewport(vp, recording = FALSE)
  26: lapply(vps, push.vp, recording)
  27: FUN(X[[i]], ...)
  28: push.vp.vpTree(X[[i]], ...)
  29: push.vp(vp$parent, recording)
  30: push.vp.viewport(vp$parent, recording)
  31: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 37. Error: Adding column name with large bottom labels (@test-layout-examples
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: superheat(X, column.title = "colname", bottom.label.size = 0.3) at testthat/test-layout-examples.R:60
  2: do.call(generate_grobs, grob.arg.list)
  3: (function (layout, gg.top = NULL, gg.right = NULL, gg.bottom = NULL, gg.left = NULL, 
         gg.legend = NULL, gg.title = NULL, gg.row.title = NULL, gg.column.title = NULL, 
         row.dendrogram = F, col.dendrogram = F, yt.axis = T, yr.axis = T, yt.axis.name = T, 
         yr.axis.name = T, padding = 1, bottom.label.size = 0.1, left.label.size = 0.1) 
     {
         if (row.dendrogram) {
             yr.axis <- F
         }
         if (col.dendrogram) {
             yt.axis <- F
         }
         if (!is.null(gg.legend)) {
             t <- nrow(layout)
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
                 pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.right)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yr.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "axis-b", trim = TRUE, fixed = TRUE), t = (t + 1), l = l)
             }
             if (yr.axis && !is.null(yr.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "xlab", trim = TRUE, fixed = TRUE), t = (t + 2), l = l)
             }
         }
         if (!is.null(gg.top)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yt.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "axis-l", trim = TRUE, fixed = TRUE), t = t, l = (l - 1))
             }
             if (yt.axis & !is.null(yt.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "ylab", trim = TRUE, fixed = TRUE), t = t, l = (l - 2))
             }
         }
         if (!is.null(gg.left)) {
             t <- 1
             l <- 1
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if ((left.label.size <= 0.2) && !is.null(gg.top) && yt.axis && !is.null(yt.axis.name)) {
                 l <- l + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.row.title) && (!(!is.null(gg.top) && yt.axis) | is.null(gg.top) && 
                 !is.null(gg.left) | !is.null(gg.top) && yt.axis && !is.null(gg.left) && 
                 left.label.size >= 0.2)) {
                 l <- l + 1
             }
             r <- l
             if (left.label.size > 0.2 && !is.null(gg.top) && yt.axis) {
                 r <- r + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.left), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, r = r)
         }
         if (!is.null(gg.bottom)) {
             t <- 2
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             b <- t
             if (bottom.label.size > 0.2 && !is.null(gg.right) && yr.axis) {
                 b <- t + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.bottom), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, b = b)
             b.bottom <- b
         }
         if (!is.null(gg.title)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.row.title)) {
             l <- 1
             t <- 1
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.top) && yt.axis && is.null(gg.left)) {
                 l <- l + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.row.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.column.title)) {
             if (!is.null(gg.bottom)) {
                 t <- b.bottom + 1
             }
             else {
                 t <- 2
                 if (!is.null(gg.title)) {
                     t <- t + 1
                 }
                 if (!is.null(gg.top)) {
                     t <- t + 1
                 }
             }
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.column.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         layout <- gtable::gtable_add_padding(layout, grid::unit(padding, "cm"))
         return(layout)
     })(layout = structure(list(grobs = list(structure(list(name = "panel-1.gTree.3310", 
         gp = NULL, vp = NULL, children = structure(list(grill.gTree.3308 = structure(list(
             name = "grill.gTree.3308", gp = NULL, vp = NULL, children = structure(list(
                 panel.background..rect.3299 = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     just = "centre", hjust = NULL, vjust = NULL, name = "panel.background..rect.3299", 
                     gp = structure(list(lwd = 1.42263779527559, col = NA, fill = "grey92", 
                       lty = 1), class = "gpar"), vp = NULL), class = c("rect", "grob", 
                 "gDesc")), panel.grid.minor.y..polyline.3301 = structure(list(x = structure(c(0, 
                 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.0625, 
                 0.0625, 0.3125, 0.3125, 0.5625, 0.5625, 0.8125, 0.8125), unit = 0L, class = c("simpleUnit", 
                 "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.minor.y..polyline.3301", 
                     gp = structure(list(lwd = 0.711318897637795, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.minor.x..polyline.3303 = structure(list(
                     x = structure(c(0.0833333333333333, 0.0833333333333333, 0.25, 0.25, 
                     0.416666666666667, 0.416666666666667, 0.583333333333333, 0.583333333333333, 
                     0.75, 0.75, 0.916666666666667, 0.916666666666667), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, 
                     name = "panel.grid.minor.x..polyline.3303", gp = structure(list(lwd = 0.711318897637795, 
                       col = "white", lty = 1, lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.y..polyline.3305 = structure(list(
                     x = structure(c(0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0.1875, 0.1875, 0.4375, 0.4375, 0.6875, 
                     0.6875, 0.9375, 0.9375), unit = 4L, class = c("simpleUnit", "unit"
                     )), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.y..polyline.3305", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.x..polyline.3307 = structure(list(
                     x = structure(c(0, 0, 0.166666666666667, 0.166666666666667, 0.333333333333333, 
                     0.333333333333333, 0.5, 0.5, 0.666666666666667, 0.666666666666667, 
                     0.833333333333333, 0.833333333333333, 1, 1), unit = 4L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 
                     1), unit = 0L, class = c("simpleUnit", "unit")), id = NULL, id.lengths = c(2L, 
                     2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.x..polyline.3307", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc"))), class = "gList"), childrenOrder = c("panel.background..rect.3299", 
             "panel.grid.minor.y..polyline.3301", "panel.grid.minor.x..polyline.3303", 
             "panel.grid.major.y..polyline.3305", "panel.grid.major.x..polyline.3307")), class = c("gTree", 
         "grob", "gDesc")), `NULL` = structure(list(name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", 
         "grob", "gDesc")), GRID.rastergrob.3282 = structure(list(raster = structure(c("#CEDE41FF", 
         "#45306FFF", "#FDE725FF", "#45306FFF", "#21908CFF", "#45306FFF", "#5DC863FF", 
         "#45306FFF", "#21908CFF", "#50B572FF", "#45306FFF", "#5DC863FF", "#45306FFF", 
         "#FDE725FF", "#CEDE41FF", "#21908CFF", "#45306FFF", "#45306FFF", "#45306FFF", 
         "#21908CFF", "#5DC863FF", "#45306FFF", "#5DC863FF", "#50B572FF"), .Dim = c(8L, 
         3L), class = "raster"), x = structure(0.5, unit = 4L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), width = structure(1, unit = 4L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             just = "centre", hjust = NULL, vjust = NULL, interpolate = FALSE, name = "GRID.rastergrob.3282", 
             gp = structure(list(), class = "gpar"), vp = NULL), class = c("rastergrob", 
         "grob", "gDesc")), GRID.segments.3283 = structure(list(x0 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3283", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3284 = structure(list(
             x0 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", "unit"
             )), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", 
             "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             arrow = NULL, name = "GRID.segments.3284", gp = structure(list(col = "#000000FF", 
                 fill = "#000000FF", lwd = 1.42263779527559, lty = 1, lineend = "butt", 
                 linejoin = "round"), class = "gpar"), vp = NULL), class = c("segments", 
         "grob", "gDesc")), GRID.segments.3285 = structure(list(x0 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3285", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3286 = structure(list(
             x0 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3286", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3287 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3287", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3288 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.125, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.125, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3288", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3289 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.25, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.25, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3289", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3290 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.375, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.375, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3290", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3291 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.5, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3291", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3292 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.625, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.625, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3292", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3293 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.75, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.75, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3293", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3294 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.875, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.875, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3294", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3295 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(1, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3295", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), `NULL` = structure(list(
             name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"
         )), panel.border..zeroGrob.3296 = structure(list(name = "panel.border..zeroGrob.3296", 
             gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"))), class = "gList"), 
         childrenOrder = c("grill.gTree.3308", "NULL", "GRID.rastergrob.3282", "GRID.segments.3283", 
         "GRID.segments.3284", "GRID.segments.3285", "GRID.segments.3286", "GRID.segments.3287", 
         "GRID.segments.3288", "GRID.segments.3289", "GRID.segments.3290", "GRID.segments.3291", 
         "GRID.segments.3292", "GRID.segments.3293", "GRID.segments.3294", "GRID.segments.3295", 
         "NULL", "panel.border..zeroGrob.3296")), class = c("gTree", "grob", "gDesc"))), 
         layout = structure(list(t = 1, l = 2, b = 1, r = 2, z = 1, clip = "on", name = "panel"), row.names = c(NA, 
         -1L), class = "data.frame"), widths = structure(list(list(0.2, NULL, 5L), list(
             1, NULL, 5L)), class = "unit"), heights = structure(list(list(1, NULL, 5L), 
             list(0.3, NULL, 5L), list(0.1, NULL, 5L), list(0.1, NULL, 5L)), class = "unit"), 
         respect = FALSE, rownames = NULL, colnames = NULL, name = "layout", gp = NULL, 
         vp = NULL, children = structure(list(), class = "gList"), childrenOrder = character(0)), class = c("gtable", 
     "gTree", "grob", "gDesc")), gg.bottom = structure(list(data = structure(list(variable = structure(1:3, .Label = c("1", 
     "2", "3"), class = "factor"), col = structure(c(1L, 2L, 1L), .Label = c("grey95", 
     "grey80"), class = "factor"), n = c(1, 1, 1), id = 1:3, increment = c(0.333333333333333, 
     0.333333333333333, 0.333333333333333), breaks = c(1, 1.33333333333333, 1.66666666666667
     )), row.names = c(NA, -3L), class = "data.frame"), layers = list(<environment>, <environment>), 
         scales = <environment>, mapping = structure(list(xmin = ~breaks, xmax = ~breaks + 
             increment, ymin = 0, ymax = 1, fill = ~col), class = "uneval"), theme = structure(list(
             line = structure(list(), class = c("element_blank", "element")), rect = structure(list(), class = c("element_blank", 
             "element")), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
             axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, size = NULL, 
                 hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, margin = structure(c(2.2, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text.y = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = 1, vjust = NULL, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = 0, vjust = NULL, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.ticks = structure(list(), class = c("element_blank", "element")), 
             axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", "unit"
             )), axis.line = structure(list(), class = c("element_blank", "element")), 
             axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                 fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
             "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
             "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                 fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
             "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                 family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                 hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                 debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                 face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                 lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
             legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
             0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
             "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
             "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                 size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                 size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
             "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                 colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, arrow = FALSE, 
                 inherit.blank = TRUE), class = c("element_line", "element")), panel.grid.minor = structure(list(
                 colour = NULL, size = structure(0.5, class = "rel"), linetype = NULL, 
                 lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
             "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                 colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), plot.title = structure(list(), class = c("element_blank", "element"
             )), plot.subtitle = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, margin = structure(c(0, 
                 0, 5.5, 0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), plot.caption = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, angle = NULL, 
                 lineheight = NULL, margin = structure(c(5.5, 0, 0, 0), unit = 8L, class = c("margin", 
                 "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                 lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
             0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                 fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), strip.placement = "inside", strip.text = structure(list(), class = c("element_blank", 
             "element")), strip.text.x = NULL, strip.text.y = structure(list(family = NULL, 
                 face = NULL, colour = NULL, size = NULL, hjust = NULL, vjust = NULL, 
                 angle = -90, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
             "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
             "unit")), axis.title = structure(list(), class = c("element_blank", "element"
             ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
         facet = <environment>, plot_env = <environment>, labels = list(xmin = "breaks", 
             xmax = "breaks + increment", ymin = "ymin", ymax = "ymax", fill = "col", 
             x = "breaks + increment/2", y = "pos", label = "variable")), class = c("gg", 
     "ggplot")), gg.left = structure(list(data = structure(list(variable = structure(1:8, .Label = c("1", 
     "2", "3", "4", "5", "6", "7", "8"), class = "factor"), col = structure(c(1L, 2L, 
     1L, 2L, 1L, 2L, 1L, 2L), .Label = c("grey95", "grey80"), class = "factor"), n = c(1, 
     1, 1, 1, 1, 1, 1, 1), id = 1:8, increment = c(0.125, 0.125, 0.125, 0.125, 0.125, 
     0.125, 0.125, 0.125), breaks = c(1, 1.125, 1.25, 1.375, 1.5, 1.625, 1.75, 1.875)), row.names = c(NA, 
     -8L), class = "data.frame"), layers = list(<environment>, <environment>), scales = <environment>, 
         mapping = structure(list(xmin = 0, xmax = 1, ymin = ~breaks, ymax = ~breaks + 
             increment, fill = ~col), class = "uneval"), theme = structure(list(line = structure(list(), class = c("element_blank", 
         "element")), rect = structure(list(), class = c("element_blank", "element")), 
             text = structure(list(family = "", face = "plain", colour = "black", size = 11, 
                 hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
             axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, size = NULL, 
                 hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, margin = structure(c(2.2, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text.y = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = 1, vjust = NULL, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = 0, vjust = NULL, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.ticks = structure(list(), class = c("element_blank", "element")), 
             axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", "unit"
             )), axis.line = structure(list(), class = c("element_blank", "element")), 
             axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                 fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
             "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
             "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                 fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
             "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                 family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                 hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                 debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                 face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                 lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
             legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
             0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
             "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
             "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                 size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                 size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
             "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                 colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, arrow = FALSE, 
                 inherit.blank = TRUE), class = c("element_line", "element")), panel.grid.minor = structure(list(
                 colour = NULL, size = structure(0.5, class = "rel"), linetype = NULL, 
                 lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
             "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                 colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), plot.title = structure(list(), class = c("element_blank", "element"
             )), plot.subtitle = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, margin = structure(c(0, 
                 0, 5.5, 0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), plot.caption = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, angle = NULL, 
                 lineheight = NULL, margin = structure(c(5.5, 0, 0, 0), unit = 8L, class = c("margin", 
                 "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                 lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
             0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                 fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), strip.placement = "inside", strip.text = structure(list(), class = c("element_blank", 
             "element")), strip.text.x = NULL, strip.text.y = structure(list(family = NULL, 
                 face = NULL, colour = NULL, size = NULL, hjust = NULL, vjust = NULL, 
                 angle = -90, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
             "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
             "unit")), axis.title = structure(list(), class = c("element_blank", "element"
             ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
         facet = <environment>, plot_env = <environment>, labels = list(xmin = "xmin", 
             xmax = "xmax", ymin = "breaks", ymax = "breaks + increment", fill = "col", 
             x = "pos", y = "breaks + increment/2", label = "variable")), class = c("gg", 
     "ggplot")), gg.legend = structure(list(data = structure(list(value = c(1, 1, 2, 1, 
     4, 5, 1, 7, 5, 2, 1, 8, 1, 1, 2, 1, 4, 5, 1, 7, 5, 2, 1, 8), x = c(1, 1, 1, 1, 1, 
     1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3), y = c(1, 2, 3, 4, 5, 6, 
     7, 8, 1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8)), class = "data.frame", row.names = c(NA, 
     -24L)), layers = list(<environment>, <environment>, <environment>, <environment>, 
         <environment>, <environment>, <environment>, <environment>, <environment>, <environment>, 
         <environment>, <environment>, <environment>, <environment>), scales = <environment>, 
         mapping = structure(list(), .Names = character(0), class = "uneval"), theme = structure(list(
             axis.text.x = structure(list(), class = c("element_blank", "element")), axis.text.y = structure(list(), class = c("element_blank", 
             "element")), axis.ticks = structure(list(), class = c("element_blank", "element"
             )), legend.key.width = structure(2, unit = 3L, class = c("simpleUnit", "unit"
             )), legend.text = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = 12, hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, 
                 margin = NULL, debug = NULL, inherit.blank = FALSE), class = c("element_text", 
             "element")), legend.direction = "horizontal"), class = c("theme", "gg"), complete = FALSE, validate = FALSE), 
         coordinates = <environment>, facet = <environment>, plot_env = <environment>, 
         labels = list(x = "x", y = "y", fill = "value", xintercept = "xintercept", yintercept = "yintercept"), 
         guides = list(fill = structure(list(title = structure(list(), class = "waiver"), 
             title.position = NULL, title.theme = NULL, title.hjust = NULL, title.vjust = NULL, 
             label = TRUE, label.position = NULL, label.theme = NULL, label.hjust = NULL, 
             label.vjust = NULL, barwidth = structure(15, unit = 3L, class = c("simpleUnit", 
             "unit")), barheight = structure(1, unit = 3L, class = c("simpleUnit", "unit"
             )), nbin = 20, raster = TRUE, frame.colour = NULL, frame.linewidth = 0.5, 
             frame.linetype = 1, ticks = TRUE, ticks.colour = "white", ticks.linewidth = 0.5, 
             draw.ulim = TRUE, draw.llim = TRUE, direction = NULL, default.unit = "line", 
             reverse = FALSE, order = 0, available_aes = c("colour", "color", "fill"), 
             name = "colorbar"), class = c("guide", "colorbar")))), class = c("gg", "ggplot"
     )), gg.column.title = structure(list(data = structure(list(x = 0, y = 0, name = structure(1L, .Label = "colname", class = "factor")), class = "data.frame", row.names = c(NA, 
     -1L)), layers = list(<environment>), scales = <environment>, mapping = structure(list(), .Names = character(0), class = "uneval"), 
         theme = structure(list(line = structure(list(), class = c("element_blank", "element"
         )), rect = structure(list(), class = c("element_blank", "element")), text = structure(list(
             family = "", face = "plain", colour = "black", size = 11, hjust = 0.5, vjust = 0.5, 
             angle = 0, lineheight = 0.9, margin = structure(c(0, 0, 0, 0), unit = 8L, class = c("margin", 
             "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
         "element")), axis.title.x = structure(list(), class = c("element_blank", "element"
         )), axis.title.x.top = structure(list(family = NULL, face = NULL, colour = NULL, 
             size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, margin = structure(c(0, 
             0, 2.75, 0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
         "element")), axis.title.y = structure(list(), class = c("element_blank", "element"
         )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
             size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, margin = structure(c(0, 
             0, 0, 2.75), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
         "element")), axis.text = structure(list(), class = c("element_blank", "element"
         )), axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, size = NULL, 
             hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, margin = structure(c(2.2, 
             0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
         "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, colour = NULL, 
             size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, margin = structure(c(0, 
             0, 2.2, 0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
         "element")), axis.text.y = structure(list(family = NULL, face = NULL, colour = NULL, 
             size = NULL, hjust = 1, vjust = NULL, angle = NULL, lineheight = NULL, margin = structure(c(0, 
             2.2, 0, 0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
         "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
             size = NULL, hjust = 0, vjust = NULL, angle = NULL, lineheight = NULL, margin = structure(c(0, 
             0, 0, 2.2), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
         "element")), axis.ticks = structure(list(), class = c("element_blank", "element"
         )), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", "unit"
         )), axis.line = structure(list(), class = c("element_blank", "element")), axis.line.x = NULL, 
             axis.line.y = NULL, legend.background = structure(list(fill = NULL, colour = NA, 
                 size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
             "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
             "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                 fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
             "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                 family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                 hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                 debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                 face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                 lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
             legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
             0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
             "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
             "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                 size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                 size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
             "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                 colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, arrow = FALSE, 
                 inherit.blank = TRUE), class = c("element_line", "element")), panel.grid.minor = structure(list(
                 colour = NULL, size = structure(0.5, class = "rel"), linetype = NULL, 
                 lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
             "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                 colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), plot.title = structure(list(), class = c("element_blank", "element"
             )), plot.subtitle = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, margin = structure(c(0, 
                 0, 5.5, 0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), plot.caption = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, angle = NULL, 
                 lineheight = NULL, margin = structure(c(5.5, 0, 0, 0), unit = 8L, class = c("margin", 
                 "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                 lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
             0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                 fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), strip.placement = "inside", strip.text = structure(list(), class = c("element_blank", 
             "element")), strip.text.x = NULL, strip.text.y = structure(list(family = NULL, 
                 face = NULL, colour = NULL, size = NULL, hjust = NULL, vjust = NULL, 
                 angle = -90, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
             "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
             "unit")), axis.title = structure(list(), class = c("element_blank", "element"
             ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
         facet = <environment>, plot_env = <environment>, labels = list(x = "x", y = "y", 
             label = "name")), class = c("gg", "ggplot")), row.dendrogram = FALSE, col.dendrogram = FALSE, 
         yt.axis = TRUE, yr.axis = TRUE, yt.axis.name = "NULL", yr.axis.name = "NULL", 
         padding = 1, bottom.label.size = 0.3, left.label.size = 0.2)
  4: gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
         pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
  5: is.grob(grobs)
  6: gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), pattern = "guide-box", trim = TRUE, 
         fixed = TRUE)
  7: grepl(pattern, .subset2(x$layout, "name"), fixed = fixed)
  8: ggplot2::ggplotGrob(gg.legend)
  9: ggplot_gtable(ggplot_build(x))
  10: ggplot_gtable.ggplot_built(ggplot_build(x))
  ...
  22: pushvpgp(x)
  23: pushgrobvp(x$vp)
  24: pushgrobvp.viewport(x$vp)
  25: pushViewport(vp, recording = FALSE)
  26: lapply(vps, push.vp, recording)
  27: FUN(X[[i]], ...)
  28: push.vp.vpTree(X[[i]], ...)
  29: push.vp(vp$parent, recording)
  30: push.vp.viewport(vp$parent, recording)
  31: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 38. Error: Adding column name with right plot (@test-layout-examples.R#68)  ─
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: superheat(X, column.title = "colname", yr = 1:8) at testthat/test-layout-examples.R:68
  2: do.call(generate_grobs, grob.arg.list)
  3: (function (layout, gg.top = NULL, gg.right = NULL, gg.bottom = NULL, gg.left = NULL, 
         gg.legend = NULL, gg.title = NULL, gg.row.title = NULL, gg.column.title = NULL, 
         row.dendrogram = F, col.dendrogram = F, yt.axis = T, yr.axis = T, yt.axis.name = T, 
         yr.axis.name = T, padding = 1, bottom.label.size = 0.1, left.label.size = 0.1) 
     {
         if (row.dendrogram) {
             yr.axis <- F
         }
         if (col.dendrogram) {
             yt.axis <- F
         }
         if (!is.null(gg.legend)) {
             t <- nrow(layout)
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
                 pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.right)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yr.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "axis-b", trim = TRUE, fixed = TRUE), t = (t + 1), l = l)
             }
             if (yr.axis && !is.null(yr.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "xlab", trim = TRUE, fixed = TRUE), t = (t + 2), l = l)
             }
         }
         if (!is.null(gg.top)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yt.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "axis-l", trim = TRUE, fixed = TRUE), t = t, l = (l - 1))
             }
             if (yt.axis & !is.null(yt.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "ylab", trim = TRUE, fixed = TRUE), t = t, l = (l - 2))
             }
         }
         if (!is.null(gg.left)) {
             t <- 1
             l <- 1
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if ((left.label.size <= 0.2) && !is.null(gg.top) && yt.axis && !is.null(yt.axis.name)) {
                 l <- l + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.row.title) && (!(!is.null(gg.top) && yt.axis) | is.null(gg.top) && 
                 !is.null(gg.left) | !is.null(gg.top) && yt.axis && !is.null(gg.left) && 
                 left.label.size >= 0.2)) {
                 l <- l + 1
             }
             r <- l
             if (left.label.size > 0.2 && !is.null(gg.top) && yt.axis) {
                 r <- r + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.left), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, r = r)
         }
         if (!is.null(gg.bottom)) {
             t <- 2
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             b <- t
             if (bottom.label.size > 0.2 && !is.null(gg.right) && yr.axis) {
                 b <- t + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.bottom), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, b = b)
             b.bottom <- b
         }
         if (!is.null(gg.title)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.row.title)) {
             l <- 1
             t <- 1
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.top) && yt.axis && is.null(gg.left)) {
                 l <- l + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.row.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.column.title)) {
             if (!is.null(gg.bottom)) {
                 t <- b.bottom + 1
             }
             else {
                 t <- 2
                 if (!is.null(gg.title)) {
                     t <- t + 1
                 }
                 if (!is.null(gg.top)) {
                     t <- t + 1
                 }
             }
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.column.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         layout <- gtable::gtable_add_padding(layout, grid::unit(padding, "cm"))
         return(layout)
     })(layout = structure(list(grobs = list(structure(list(name = "panel-1.gTree.3406", 
         gp = NULL, vp = NULL, children = structure(list(grill.gTree.3404 = structure(list(
             name = "grill.gTree.3404", gp = NULL, vp = NULL, children = structure(list(
                 panel.background..rect.3395 = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     just = "centre", hjust = NULL, vjust = NULL, name = "panel.background..rect.3395", 
                     gp = structure(list(lwd = 1.42263779527559, col = NA, fill = "grey92", 
                       lty = 1), class = "gpar"), vp = NULL), class = c("rect", "grob", 
                 "gDesc")), panel.grid.minor.y..polyline.3397 = structure(list(x = structure(c(0, 
                 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.0625, 
                 0.0625, 0.3125, 0.3125, 0.5625, 0.5625, 0.8125, 0.8125), unit = 0L, class = c("simpleUnit", 
                 "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.minor.y..polyline.3397", 
                     gp = structure(list(lwd = 0.711318897637795, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.minor.x..polyline.3399 = structure(list(
                     x = structure(c(0.0833333333333333, 0.0833333333333333, 0.25, 0.25, 
                     0.416666666666667, 0.416666666666667, 0.583333333333333, 0.583333333333333, 
                     0.75, 0.75, 0.916666666666667, 0.916666666666667), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, 
                     name = "panel.grid.minor.x..polyline.3399", gp = structure(list(lwd = 0.711318897637795, 
                       col = "white", lty = 1, lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.y..polyline.3401 = structure(list(
                     x = structure(c(0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0.1875, 0.1875, 0.4375, 0.4375, 0.6875, 
                     0.6875, 0.9375, 0.9375), unit = 4L, class = c("simpleUnit", "unit"
                     )), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.y..polyline.3401", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.x..polyline.3403 = structure(list(
                     x = structure(c(0, 0, 0.166666666666667, 0.166666666666667, 0.333333333333333, 
                     0.333333333333333, 0.5, 0.5, 0.666666666666667, 0.666666666666667, 
                     0.833333333333333, 0.833333333333333, 1, 1), unit = 4L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 
                     1), unit = 0L, class = c("simpleUnit", "unit")), id = NULL, id.lengths = c(2L, 
                     2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.x..polyline.3403", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc"))), class = "gList"), childrenOrder = c("panel.background..rect.3395", 
             "panel.grid.minor.y..polyline.3397", "panel.grid.minor.x..polyline.3399", 
             "panel.grid.major.y..polyline.3401", "panel.grid.major.x..polyline.3403")), class = c("gTree", 
         "grob", "gDesc")), `NULL` = structure(list(name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", 
         "grob", "gDesc")), GRID.rastergrob.3378 = structure(list(raster = structure(c("#CEDE41FF", 
         "#45306FFF", "#FDE725FF", "#45306FFF", "#21908CFF", "#45306FFF", "#5DC863FF", 
         "#45306FFF", "#21908CFF", "#50B572FF", "#45306FFF", "#5DC863FF", "#45306FFF", 
         "#FDE725FF", "#CEDE41FF", "#21908CFF", "#45306FFF", "#45306FFF", "#45306FFF", 
         "#21908CFF", "#5DC863FF", "#45306FFF", "#5DC863FF", "#50B572FF"), .Dim = c(8L, 
         3L), class = "raster"), x = structure(0.5, unit = 4L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), width = structure(1, unit = 4L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             just = "centre", hjust = NULL, vjust = NULL, interpolate = FALSE, name = "GRID.rastergrob.3378", 
             gp = structure(list(), class = "gpar"), vp = NULL), class = c("rastergrob", 
         "grob", "gDesc")), GRID.segments.3379 = structure(list(x0 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3379", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3380 = structure(list(
             x0 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", "unit"
             )), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", 
             "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             arrow = NULL, name = "GRID.segments.3380", gp = structure(list(col = "#000000FF", 
                 fill = "#000000FF", lwd = 1.42263779527559, lty = 1, lineend = "butt", 
                 linejoin = "round"), class = "gpar"), vp = NULL), class = c("segments", 
         "grob", "gDesc")), GRID.segments.3381 = structure(list(x0 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3381", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3382 = structure(list(
             x0 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3382", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3383 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3383", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3384 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.125, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.125, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3384", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3385 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.25, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.25, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3385", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3386 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.375, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.375, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3386", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3387 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.5, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3387", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3388 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.625, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.625, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3388", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3389 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.75, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.75, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3389", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3390 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.875, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.875, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3390", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3391 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(1, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3391", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), `NULL` = structure(list(
             name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"
         )), panel.border..zeroGrob.3392 = structure(list(name = "panel.border..zeroGrob.3392", 
             gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"))), class = "gList"), 
         childrenOrder = c("grill.gTree.3404", "NULL", "GRID.rastergrob.3378", "GRID.segments.3379", 
         "GRID.segments.3380", "GRID.segments.3381", "GRID.segments.3382", "GRID.segments.3383", 
         "GRID.segments.3384", "GRID.segments.3385", "GRID.segments.3386", "GRID.segments.3387", 
         "GRID.segments.3388", "GRID.segments.3389", "GRID.segments.3390", "GRID.segments.3391", 
         "NULL", "panel.border..zeroGrob.3392")), class = c("gTree", "grob", "gDesc"))), 
         layout = structure(list(t = 1, l = 2, b = 1, r = 2, z = 1, clip = "on", name = "panel"), row.names = c(NA, 
         -1L), class = "data.frame"), widths = structure(list(list(0.2, NULL, 5L), list(
             1, NULL, 5L), list(0.3, NULL, 5L)), class = "unit"), heights = structure(list(
             list(1, NULL, 5L), list(0.1, NULL, 5L), list(0.05, NULL, 5L), list(0.05, 
                 NULL, 5L), list(0.1, NULL, 5L)), class = "unit"), respect = FALSE, rownames = NULL, 
         colnames = NULL, name = "layout", gp = NULL, vp = NULL, children = structure(list(), class = "gList"), 
         childrenOrder = character(0)), class = c("gtable", "gTree", "grob", "gDesc")), 
         gg.right = structure(list(data = structure(list(y = 1:8, x = 1:8, membership = structure(1:8, .Label = c("1", 
         "2", "3", "4", "5", "6", "7", "8"), class = "factor")), row.names = c(NA, -8L
         ), class = "data.frame"), layers = list(<environment>), scales = <environment>, 
             mapping = structure(list(), .Names = character(0), class = "uneval"), theme = structure(list(
                 line = structure(list(colour = "black", size = 0.5, linetype = 1, lineend = "butt", 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), rect = structure(list(), class = c("element_blank", "element")), 
                 text = structure(list(family = "", face = "plain", colour = "black", 
                     size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, 
                     margin = structure(c(0, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.title.x = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = 10, hjust = NULL, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.title.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = 0, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = FALSE), class = c("element_text", 
                 "element")), axis.title.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = -90, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text = structure(list(family = NULL, face = NULL, colour = "grey30", 
                     size = structure(0.8, class = "rel"), hjust = NULL, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = 10, hjust = NULL, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(), class = c("element_blank", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(colour = "grey20", size = NULL, 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), axis.ticks.y = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "right", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(), class = c("element_blank", "element"
                 )), panel.grid.major.y = structure(list(), class = c("element_blank", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit"))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), 
             coordinates = <environment>, facet = <environment>, plot_env = <environment>, 
             labels = list(x = "x", y = "y", colour = "factor(membership)")), class = c("gg", 
         "ggplot")), gg.bottom = structure(list(data = structure(list(variable = structure(1:3, .Label = c("1", 
         "2", "3"), class = "factor"), col = structure(c(1L, 2L, 1L), .Label = c("grey95", 
         "grey80"), class = "factor"), n = c(1, 1, 1), id = 1:3, increment = c(0.333333333333333, 
         0.333333333333333, 0.333333333333333), breaks = c(1, 1.33333333333333, 1.66666666666667
         )), row.names = c(NA, -3L), class = "data.frame"), layers = list(<environment>, 
             <environment>), scales = <environment>, mapping = structure(list(xmin = ~breaks, 
             xmax = ~breaks + increment, ymin = 0, ymax = 1, fill = ~col), class = "uneval"), 
             theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(xmin = "breaks", 
                 xmax = "breaks + increment", ymin = "ymin", ymax = "ymax", fill = "col", 
                 x = "breaks + increment/2", y = "pos", label = "variable")), class = c("gg", 
         "ggplot")), gg.left = structure(list(data = structure(list(variable = structure(1:8, .Label = c("1", 
         "2", "3", "4", "5", "6", "7", "8"), class = "factor"), col = structure(c(1L, 
         2L, 1L, 2L, 1L, 2L, 1L, 2L), .Label = c("grey95", "grey80"), class = "factor"), 
             n = c(1, 1, 1, 1, 1, 1, 1, 1), id = 1:8, increment = c(0.125, 0.125, 0.125, 
             0.125, 0.125, 0.125, 0.125, 0.125), breaks = c(1, 1.125, 1.25, 1.375, 1.5, 
             1.625, 1.75, 1.875)), row.names = c(NA, -8L), class = "data.frame"), layers = list(
             <environment>, <environment>), scales = <environment>, mapping = structure(list(
             xmin = 0, xmax = 1, ymin = ~breaks, ymax = ~breaks + increment, fill = ~col), class = "uneval"), 
             theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(xmin = "xmin", 
                 xmax = "xmax", ymin = "breaks", ymax = "breaks + increment", fill = "col", 
                 x = "pos", y = "breaks + increment/2", label = "variable")), class = c("gg", 
         "ggplot")), gg.legend = structure(list(data = structure(list(value = c(1, 1, 
         2, 1, 4, 5, 1, 7, 5, 2, 1, 8, 1, 1, 2, 1, 4, 5, 1, 7, 5, 2, 1, 8), x = c(1, 1, 
         1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3), y = c(1, 2, 
         3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8)), class = "data.frame", row.names = c(NA, 
         -24L)), layers = list(<environment>, <environment>, <environment>, <environment>, 
             <environment>, <environment>, <environment>, <environment>, <environment>, 
             <environment>, <environment>, <environment>, <environment>, <environment>), 
             scales = <environment>, mapping = structure(list(), .Names = character(0), class = "uneval"), 
             theme = structure(list(axis.text.x = structure(list(), class = c("element_blank", 
             "element")), axis.text.y = structure(list(), class = c("element_blank", "element"
             )), axis.ticks = structure(list(), class = c("element_blank", "element")), 
                 legend.key.width = structure(2, unit = 3L, class = c("simpleUnit", "unit"
                 )), legend.text = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = 12, hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, 
                     margin = NULL, debug = NULL, inherit.blank = FALSE), class = c("element_text", 
                 "element")), legend.direction = "horizontal"), class = c("theme", "gg"
             ), complete = FALSE, validate = FALSE), coordinates = <environment>, facet = <environment>, 
             plot_env = <environment>, labels = list(x = "x", y = "y", fill = "value", 
                 xintercept = "xintercept", yintercept = "yintercept"), guides = list(
                 fill = structure(list(title = structure(list(), class = "waiver"), title.position = NULL, 
                     title.theme = NULL, title.hjust = NULL, title.vjust = NULL, label = TRUE, 
                     label.position = NULL, label.theme = NULL, label.hjust = NULL, label.vjust = NULL, 
                     barwidth = structure(15, unit = 3L, class = c("simpleUnit", "unit"
                     )), barheight = structure(1, unit = 3L, class = c("simpleUnit", "unit"
                     )), nbin = 20, raster = TRUE, frame.colour = NULL, frame.linewidth = 0.5, 
                     frame.linetype = 1, ticks = TRUE, ticks.colour = "white", ticks.linewidth = 0.5, 
                     draw.ulim = TRUE, draw.llim = TRUE, direction = NULL, default.unit = "line", 
                     reverse = FALSE, order = 0, available_aes = c("colour", "color", 
                     "fill"), name = "colorbar"), class = c("guide", "colorbar")))), class = c("gg", 
         "ggplot")), gg.column.title = structure(list(data = structure(list(x = 0, y = 0, 
             name = structure(1L, .Label = "colname", class = "factor")), class = "data.frame", row.names = c(NA, 
         -1L)), layers = list(<environment>), scales = <environment>, mapping = structure(list(), .Names = character(0), class = "uneval"), 
             theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(x = "x", y = "y", 
                 label = "name")), class = c("gg", "ggplot")), row.dendrogram = FALSE, 
         col.dendrogram = FALSE, yt.axis = TRUE, yr.axis = TRUE, yt.axis.name = "NULL", 
         yr.axis.name = "1:8", padding = 1, bottom.label.size = 0.2, left.label.size = 0.2)
  4: gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
         pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
  5: is.grob(grobs)
  6: gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), pattern = "guide-box", trim = TRUE, 
         fixed = TRUE)
  7: grepl(pattern, .subset2(x$layout, "name"), fixed = fixed)
  8: ggplot2::ggplotGrob(gg.legend)
  9: ggplot_gtable(ggplot_build(x))
  10: ggplot_gtable.ggplot_built(ggplot_build(x))
  ...
  22: pushvpgp(x)
  23: pushgrobvp(x$vp)
  24: pushgrobvp.viewport(x$vp)
  25: pushViewport(vp, recording = FALSE)
  26: lapply(vps, push.vp, recording)
  27: FUN(X[[i]], ...)
  28: push.vp.vpTree(X[[i]], ...)
  29: push.vp(vp$parent, recording)
  30: push.vp.viewport(vp$parent, recording)
  31: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 39. Error: Adding column name with right plot and no axes (@test-layout-examp
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: superheat(X, column.title = "colname", yr = 1:8, yr.axis = F) at testthat/test-layout-examples.R:75
  2: do.call(generate_grobs, grob.arg.list)
  3: (function (layout, gg.top = NULL, gg.right = NULL, gg.bottom = NULL, gg.left = NULL, 
         gg.legend = NULL, gg.title = NULL, gg.row.title = NULL, gg.column.title = NULL, 
         row.dendrogram = F, col.dendrogram = F, yt.axis = T, yr.axis = T, yt.axis.name = T, 
         yr.axis.name = T, padding = 1, bottom.label.size = 0.1, left.label.size = 0.1) 
     {
         if (row.dendrogram) {
             yr.axis <- F
         }
         if (col.dendrogram) {
             yt.axis <- F
         }
         if (!is.null(gg.legend)) {
             t <- nrow(layout)
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
                 pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.right)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yr.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "axis-b", trim = TRUE, fixed = TRUE), t = (t + 1), l = l)
             }
             if (yr.axis && !is.null(yr.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "xlab", trim = TRUE, fixed = TRUE), t = (t + 2), l = l)
             }
         }
         if (!is.null(gg.top)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yt.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "axis-l", trim = TRUE, fixed = TRUE), t = t, l = (l - 1))
             }
             if (yt.axis & !is.null(yt.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "ylab", trim = TRUE, fixed = TRUE), t = t, l = (l - 2))
             }
         }
         if (!is.null(gg.left)) {
             t <- 1
             l <- 1
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if ((left.label.size <= 0.2) && !is.null(gg.top) && yt.axis && !is.null(yt.axis.name)) {
                 l <- l + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.row.title) && (!(!is.null(gg.top) && yt.axis) | is.null(gg.top) && 
                 !is.null(gg.left) | !is.null(gg.top) && yt.axis && !is.null(gg.left) && 
                 left.label.size >= 0.2)) {
                 l <- l + 1
             }
             r <- l
             if (left.label.size > 0.2 && !is.null(gg.top) && yt.axis) {
                 r <- r + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.left), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, r = r)
         }
         if (!is.null(gg.bottom)) {
             t <- 2
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             b <- t
             if (bottom.label.size > 0.2 && !is.null(gg.right) && yr.axis) {
                 b <- t + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.bottom), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, b = b)
             b.bottom <- b
         }
         if (!is.null(gg.title)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.row.title)) {
             l <- 1
             t <- 1
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.top) && yt.axis && is.null(gg.left)) {
                 l <- l + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.row.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.column.title)) {
             if (!is.null(gg.bottom)) {
                 t <- b.bottom + 1
             }
             else {
                 t <- 2
                 if (!is.null(gg.title)) {
                     t <- t + 1
                 }
                 if (!is.null(gg.top)) {
                     t <- t + 1
                 }
             }
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.column.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         layout <- gtable::gtable_add_padding(layout, grid::unit(padding, "cm"))
         return(layout)
     })(layout = structure(list(grobs = list(structure(list(name = "panel-1.gTree.3502", 
         gp = NULL, vp = NULL, children = structure(list(grill.gTree.3500 = structure(list(
             name = "grill.gTree.3500", gp = NULL, vp = NULL, children = structure(list(
                 panel.background..rect.3491 = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     just = "centre", hjust = NULL, vjust = NULL, name = "panel.background..rect.3491", 
                     gp = structure(list(lwd = 1.42263779527559, col = NA, fill = "grey92", 
                       lty = 1), class = "gpar"), vp = NULL), class = c("rect", "grob", 
                 "gDesc")), panel.grid.minor.y..polyline.3493 = structure(list(x = structure(c(0, 
                 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.0625, 
                 0.0625, 0.3125, 0.3125, 0.5625, 0.5625, 0.8125, 0.8125), unit = 0L, class = c("simpleUnit", 
                 "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.minor.y..polyline.3493", 
                     gp = structure(list(lwd = 0.711318897637795, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.minor.x..polyline.3495 = structure(list(
                     x = structure(c(0.0833333333333333, 0.0833333333333333, 0.25, 0.25, 
                     0.416666666666667, 0.416666666666667, 0.583333333333333, 0.583333333333333, 
                     0.75, 0.75, 0.916666666666667, 0.916666666666667), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, 
                     name = "panel.grid.minor.x..polyline.3495", gp = structure(list(lwd = 0.711318897637795, 
                       col = "white", lty = 1, lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.y..polyline.3497 = structure(list(
                     x = structure(c(0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0.1875, 0.1875, 0.4375, 0.4375, 0.6875, 
                     0.6875, 0.9375, 0.9375), unit = 4L, class = c("simpleUnit", "unit"
                     )), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.y..polyline.3497", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.x..polyline.3499 = structure(list(
                     x = structure(c(0, 0, 0.166666666666667, 0.166666666666667, 0.333333333333333, 
                     0.333333333333333, 0.5, 0.5, 0.666666666666667, 0.666666666666667, 
                     0.833333333333333, 0.833333333333333, 1, 1), unit = 4L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 
                     1), unit = 0L, class = c("simpleUnit", "unit")), id = NULL, id.lengths = c(2L, 
                     2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.x..polyline.3499", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc"))), class = "gList"), childrenOrder = c("panel.background..rect.3491", 
             "panel.grid.minor.y..polyline.3493", "panel.grid.minor.x..polyline.3495", 
             "panel.grid.major.y..polyline.3497", "panel.grid.major.x..polyline.3499")), class = c("gTree", 
         "grob", "gDesc")), `NULL` = structure(list(name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", 
         "grob", "gDesc")), GRID.rastergrob.3474 = structure(list(raster = structure(c("#CEDE41FF", 
         "#45306FFF", "#FDE725FF", "#45306FFF", "#21908CFF", "#45306FFF", "#5DC863FF", 
         "#45306FFF", "#21908CFF", "#50B572FF", "#45306FFF", "#5DC863FF", "#45306FFF", 
         "#FDE725FF", "#CEDE41FF", "#21908CFF", "#45306FFF", "#45306FFF", "#45306FFF", 
         "#21908CFF", "#5DC863FF", "#45306FFF", "#5DC863FF", "#50B572FF"), .Dim = c(8L, 
         3L), class = "raster"), x = structure(0.5, unit = 4L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), width = structure(1, unit = 4L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             just = "centre", hjust = NULL, vjust = NULL, interpolate = FALSE, name = "GRID.rastergrob.3474", 
             gp = structure(list(), class = "gpar"), vp = NULL), class = c("rastergrob", 
         "grob", "gDesc")), GRID.segments.3475 = structure(list(x0 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3475", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3476 = structure(list(
             x0 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", "unit"
             )), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", 
             "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             arrow = NULL, name = "GRID.segments.3476", gp = structure(list(col = "#000000FF", 
                 fill = "#000000FF", lwd = 1.42263779527559, lty = 1, lineend = "butt", 
                 linejoin = "round"), class = "gpar"), vp = NULL), class = c("segments", 
         "grob", "gDesc")), GRID.segments.3477 = structure(list(x0 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3477", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3478 = structure(list(
             x0 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3478", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3479 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3479", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3480 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.125, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.125, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3480", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3481 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.25, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.25, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3481", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3482 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.375, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.375, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3482", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3483 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.5, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3483", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3484 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.625, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.625, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3484", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3485 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.75, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.75, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3485", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3486 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.875, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.875, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3486", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3487 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(1, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3487", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), `NULL` = structure(list(
             name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"
         )), panel.border..zeroGrob.3488 = structure(list(name = "panel.border..zeroGrob.3488", 
             gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"))), class = "gList"), 
         childrenOrder = c("grill.gTree.3500", "NULL", "GRID.rastergrob.3474", "GRID.segments.3475", 
         "GRID.segments.3476", "GRID.segments.3477", "GRID.segments.3478", "GRID.segments.3479", 
         "GRID.segments.3480", "GRID.segments.3481", "GRID.segments.3482", "GRID.segments.3483", 
         "GRID.segments.3484", "GRID.segments.3485", "GRID.segments.3486", "GRID.segments.3487", 
         "NULL", "panel.border..zeroGrob.3488")), class = c("gTree", "grob", "gDesc"))), 
         layout = structure(list(t = 1, l = 2, b = 1, r = 2, z = 1, clip = "on", name = "panel"), row.names = c(NA, 
         -1L), class = "data.frame"), widths = structure(list(list(0.2, NULL, 5L), list(
             1, NULL, 5L), list(0.3, NULL, 5L)), class = "unit"), heights = structure(list(
             list(1, NULL, 5L), list(0.2, NULL, 5L), list(0.1, NULL, 5L), list(0.1, NULL, 
                 5L)), class = "unit"), respect = FALSE, rownames = NULL, colnames = NULL, 
         name = "layout", gp = NULL, vp = NULL, children = structure(list(), class = "gList"), 
         childrenOrder = character(0)), class = c("gtable", "gTree", "grob", "gDesc")), 
         gg.right = structure(list(data = structure(list(y = 1:8, x = 1:8, membership = structure(1:8, .Label = c("1", 
         "2", "3", "4", "5", "6", "7", "8"), class = "factor")), row.names = c(NA, -8L
         ), class = "data.frame"), layers = list(<environment>), scales = <environment>, 
             mapping = structure(list(), .Names = character(0), class = "uneval"), theme = structure(list(
                 line = structure(list(colour = "black", size = 0.5, linetype = 1, lineend = "butt", 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), rect = structure(list(), class = c("element_blank", "element")), 
                 text = structure(list(family = "", face = "plain", colour = "black", 
                     size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, 
                     margin = structure(c(0, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.title.x = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = 10, hjust = NULL, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.title.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = 0, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = FALSE), class = c("element_text", 
                 "element")), axis.title.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = -90, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text = structure(list(family = NULL, face = NULL, colour = "grey30", 
                     size = structure(0.8, class = "rel"), hjust = NULL, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = 10, hjust = NULL, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(), class = c("element_blank", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(colour = "grey20", size = NULL, 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), axis.ticks.y = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "right", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(), class = c("element_blank", "element"
                 )), panel.grid.major.y = structure(list(), class = c("element_blank", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit"))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), 
             coordinates = <environment>, facet = <environment>, plot_env = <environment>, 
             labels = list(x = "x", y = "y", colour = "factor(membership)")), class = c("gg", 
         "ggplot")), gg.bottom = structure(list(data = structure(list(variable = structure(1:3, .Label = c("1", 
         "2", "3"), class = "factor"), col = structure(c(1L, 2L, 1L), .Label = c("grey95", 
         "grey80"), class = "factor"), n = c(1, 1, 1), id = 1:3, increment = c(0.333333333333333, 
         0.333333333333333, 0.333333333333333), breaks = c(1, 1.33333333333333, 1.66666666666667
         )), row.names = c(NA, -3L), class = "data.frame"), layers = list(<environment>, 
             <environment>), scales = <environment>, mapping = structure(list(xmin = ~breaks, 
             xmax = ~breaks + increment, ymin = 0, ymax = 1, fill = ~col), class = "uneval"), 
             theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(xmin = "breaks", 
                 xmax = "breaks + increment", ymin = "ymin", ymax = "ymax", fill = "col", 
                 x = "breaks + increment/2", y = "pos", label = "variable")), class = c("gg", 
         "ggplot")), gg.left = structure(list(data = structure(list(variable = structure(1:8, .Label = c("1", 
         "2", "3", "4", "5", "6", "7", "8"), class = "factor"), col = structure(c(1L, 
         2L, 1L, 2L, 1L, 2L, 1L, 2L), .Label = c("grey95", "grey80"), class = "factor"), 
             n = c(1, 1, 1, 1, 1, 1, 1, 1), id = 1:8, increment = c(0.125, 0.125, 0.125, 
             0.125, 0.125, 0.125, 0.125, 0.125), breaks = c(1, 1.125, 1.25, 1.375, 1.5, 
             1.625, 1.75, 1.875)), row.names = c(NA, -8L), class = "data.frame"), layers = list(
             <environment>, <environment>), scales = <environment>, mapping = structure(list(
             xmin = 0, xmax = 1, ymin = ~breaks, ymax = ~breaks + increment, fill = ~col), class = "uneval"), 
             theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(xmin = "xmin", 
                 xmax = "xmax", ymin = "breaks", ymax = "breaks + increment", fill = "col", 
                 x = "pos", y = "breaks + increment/2", label = "variable")), class = c("gg", 
         "ggplot")), gg.legend = structure(list(data = structure(list(value = c(1, 1, 
         2, 1, 4, 5, 1, 7, 5, 2, 1, 8, 1, 1, 2, 1, 4, 5, 1, 7, 5, 2, 1, 8), x = c(1, 1, 
         1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3), y = c(1, 2, 
         3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8)), class = "data.frame", row.names = c(NA, 
         -24L)), layers = list(<environment>, <environment>, <environment>, <environment>, 
             <environment>, <environment>, <environment>, <environment>, <environment>, 
             <environment>, <environment>, <environment>, <environment>, <environment>), 
             scales = <environment>, mapping = structure(list(), .Names = character(0), class = "uneval"), 
             theme = structure(list(axis.text.x = structure(list(), class = c("element_blank", 
             "element")), axis.text.y = structure(list(), class = c("element_blank", "element"
             )), axis.ticks = structure(list(), class = c("element_blank", "element")), 
                 legend.key.width = structure(2, unit = 3L, class = c("simpleUnit", "unit"
                 )), legend.text = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = 12, hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, 
                     margin = NULL, debug = NULL, inherit.blank = FALSE), class = c("element_text", 
                 "element")), legend.direction = "horizontal"), class = c("theme", "gg"
             ), complete = FALSE, validate = FALSE), coordinates = <environment>, facet = <environment>, 
             plot_env = <environment>, labels = list(x = "x", y = "y", fill = "value", 
                 xintercept = "xintercept", yintercept = "yintercept"), guides = list(
                 fill = structure(list(title = structure(list(), class = "waiver"), title.position = NULL, 
                     title.theme = NULL, title.hjust = NULL, title.vjust = NULL, label = TRUE, 
                     label.position = NULL, label.theme = NULL, label.hjust = NULL, label.vjust = NULL, 
                     barwidth = structure(15, unit = 3L, class = c("simpleUnit", "unit"
                     )), barheight = structure(1, unit = 3L, class = c("simpleUnit", "unit"
                     )), nbin = 20, raster = TRUE, frame.colour = NULL, frame.linewidth = 0.5, 
                     frame.linetype = 1, ticks = TRUE, ticks.colour = "white", ticks.linewidth = 0.5, 
                     draw.ulim = TRUE, draw.llim = TRUE, direction = NULL, default.unit = "line", 
                     reverse = FALSE, order = 0, available_aes = c("colour", "color", 
                     "fill"), name = "colorbar"), class = c("guide", "colorbar")))), class = c("gg", 
         "ggplot")), gg.column.title = structure(list(data = structure(list(x = 0, y = 0, 
             name = structure(1L, .Label = "colname", class = "factor")), class = "data.frame", row.names = c(NA, 
         -1L)), layers = list(<environment>), scales = <environment>, mapping = structure(list(), .Names = character(0), class = "uneval"), 
             theme = structure(list(line = structure(list(), class = c("element_blank", 
             "element")), rect = structure(list(), class = c("element_blank", "element"
             )), text = structure(list(family = "", face = "plain", colour = "black", 
                 size = 11, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
                 axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = NULL, hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(2.2, 0, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 1, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                     lineheight = NULL, margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), axis.ticks = structure(list(), class = c("element_blank", 
                 "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.line = structure(list(), class = c("element_blank", "element"
                 )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                     fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
                 "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                     fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
                 "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                     family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                     hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                     debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
                 )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                     face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, 
                     angle = NULL, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
                 legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
                 0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
                 "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                     size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
                 "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                     colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, 
                     arrow = FALSE, inherit.blank = TRUE), class = c("element_line", "element"
                 )), panel.grid.minor = structure(list(colour = NULL, size = structure(0.5, class = "rel"), 
                     linetype = NULL, lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
                 "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                     colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
                 "element")), plot.title = structure(list(), class = c("element_blank", 
                 "element")), plot.subtitle = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, 
                     margin = structure(c(0, 0, 5.5, 0), unit = 8L, class = c("margin", 
                     "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.caption = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, 
                     angle = NULL, lineheight = NULL, margin = structure(c(5.5, 0, 0, 
                     0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                     size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
                 0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                     fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, 
                     inherit.blank = TRUE), class = c("element_rect", "element")), strip.placement = "inside", 
                 strip.text = structure(list(), class = c("element_blank", "element")), 
                 strip.text.x = NULL, strip.text.y = structure(list(family = NULL, face = NULL, 
                     colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = -90, 
                     lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
                 "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
                 "unit")), axis.title = structure(list(), class = c("element_blank", "element"
                 ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
             facet = <environment>, plot_env = <environment>, labels = list(x = "x", y = "y", 
                 label = "name")), class = c("gg", "ggplot")), row.dendrogram = FALSE, 
         col.dendrogram = FALSE, yt.axis = TRUE, yr.axis = FALSE, yt.axis.name = "NULL", 
         yr.axis.name = "1:8", padding = 1, bottom.label.size = 0.2, left.label.size = 0.2)
  4: gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
         pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
  5: is.grob(grobs)
  6: gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), pattern = "guide-box", trim = TRUE, 
         fixed = TRUE)
  7: grepl(pattern, .subset2(x$layout, "name"), fixed = fixed)
  8: ggplot2::ggplotGrob(gg.legend)
  9: ggplot_gtable(ggplot_build(x))
  10: ggplot_gtable.ggplot_built(ggplot_build(x))
  ...
  22: pushvpgp(x)
  23: pushgrobvp(x$vp)
  24: pushgrobvp.viewport(x$vp)
  25: pushViewport(vp, recording = FALSE)
  26: lapply(vps, push.vp, recording)
  27: FUN(X[[i]], ...)
  28: push.vp.vpTree(X[[i]], ...)
  29: push.vp(vp$parent, recording)
  30: push.vp.viewport(vp$parent, recording)
  31: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 40. Error: Adding column name with right plot and no axes and no bottom label
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: superheat(X, column.title = "colname", yr = 1:8, yr.axis = F, bottom.label = "none") at testthat/test-layout-examples.R:83
  2: do.call(generate_grobs, grob.arg.list)
  3: (function (layout, gg.top = NULL, gg.right = NULL, gg.bottom = NULL, gg.left = NULL, 
         gg.legend = NULL, gg.title = NULL, gg.row.title = NULL, gg.column.title = NULL, 
         row.dendrogram = F, col.dendrogram = F, yt.axis = T, yr.axis = T, yt.axis.name = T, 
         yr.axis.name = T, padding = 1, bottom.label.size = 0.1, left.label.size = 0.1) 
     {
         if (row.dendrogram) {
             yr.axis <- F
         }
         if (col.dendrogram) {
             yt.axis <- F
         }
         if (!is.null(gg.legend)) {
             t <- nrow(layout)
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
                 pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.right)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yr.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "axis-b", trim = TRUE, fixed = TRUE), t = (t + 1), l = l)
             }
             if (yr.axis && !is.null(yr.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.right), 
                     pattern = "xlab", trim = TRUE, fixed = TRUE), t = (t + 2), l = l)
             }
         }
         if (!is.null(gg.top)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
             if (yt.axis) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "axis-l", trim = TRUE, fixed = TRUE), t = t, l = (l - 1))
             }
             if (yt.axis & !is.null(yt.axis.name)) {
                 layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.top), 
                     pattern = "ylab", trim = TRUE, fixed = TRUE), t = t, l = (l - 2))
             }
         }
         if (!is.null(gg.left)) {
             t <- 1
             l <- 1
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if ((left.label.size <= 0.2) && !is.null(gg.top) && yt.axis && !is.null(yt.axis.name)) {
                 l <- l + 1
             }
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.row.title) && (!(!is.null(gg.top) && yt.axis) | is.null(gg.top) && 
                 !is.null(gg.left) | !is.null(gg.top) && yt.axis && !is.null(gg.left) && 
                 left.label.size >= 0.2)) {
                 l <- l + 1
             }
             r <- l
             if (left.label.size > 0.2 && !is.null(gg.top) && yt.axis) {
                 r <- r + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.left), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, r = r)
         }
         if (!is.null(gg.bottom)) {
             t <- 2
             l <- ncol(layout)
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             b <- t
             if (bottom.label.size > 0.2 && !is.null(gg.right) && yr.axis) {
                 b <- t + 2
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.bottom), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l, b = b)
             b.bottom <- b
         }
         if (!is.null(gg.title)) {
             t <- 1
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.row.title)) {
             l <- 1
             t <- 1
             if (!is.null(gg.title)) {
                 t <- t + 1
             }
             if (!is.null(gg.top)) {
                 t <- t + 1
             }
             if (!is.null(gg.top) && yt.axis && is.null(gg.left)) {
                 l <- l + 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.row.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         if (!is.null(gg.column.title)) {
             if (!is.null(gg.bottom)) {
                 t <- b.bottom + 1
             }
             else {
                 t <- 2
                 if (!is.null(gg.title)) {
                     t <- t + 1
                 }
                 if (!is.null(gg.top)) {
                     t <- t + 1
                 }
             }
             l <- ncol(layout)
             if (!is.null(gg.right)) {
                 l <- l - 1
             }
             layout <- gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.column.title), 
                 pattern = "panel", trim = TRUE, fixed = TRUE), t = t, l = l)
         }
         layout <- gtable::gtable_add_padding(layout, grid::unit(padding, "cm"))
         return(layout)
     })(layout = structure(list(grobs = list(structure(list(name = "panel-1.gTree.3598", 
         gp = NULL, vp = NULL, children = structure(list(grill.gTree.3596 = structure(list(
             name = "grill.gTree.3596", gp = NULL, vp = NULL, children = structure(list(
                 panel.background..rect.3587 = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     just = "centre", hjust = NULL, vjust = NULL, name = "panel.background..rect.3587", 
                     gp = structure(list(lwd = 1.42263779527559, col = NA, fill = "grey92", 
                       lty = 1), class = "gpar"), vp = NULL), class = c("rect", "grob", 
                 "gDesc")), panel.grid.minor.y..polyline.3589 = structure(list(x = structure(c(0, 
                 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.0625, 
                 0.0625, 0.3125, 0.3125, 0.5625, 0.5625, 0.8125, 0.8125), unit = 0L, class = c("simpleUnit", 
                 "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.minor.y..polyline.3589", 
                     gp = structure(list(lwd = 0.711318897637795, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.minor.x..polyline.3591 = structure(list(
                     x = structure(c(0.0833333333333333, 0.0833333333333333, 0.25, 0.25, 
                     0.416666666666667, 0.416666666666667, 0.583333333333333, 0.583333333333333, 
                     0.75, 0.75, 0.916666666666667, 0.916666666666667), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), id = NULL, id.lengths = c(2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, 
                     name = "panel.grid.minor.x..polyline.3591", gp = structure(list(lwd = 0.711318897637795, 
                       col = "white", lty = 1, lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.y..polyline.3593 = structure(list(
                     x = structure(c(0, 1, 0, 1, 0, 1, 0, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0.1875, 0.1875, 0.4375, 0.4375, 0.6875, 
                     0.6875, 0.9375, 0.9375), unit = 4L, class = c("simpleUnit", "unit"
                     )), id = NULL, id.lengths = c(2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.y..polyline.3593", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc")), panel.grid.major.x..polyline.3595 = structure(list(
                     x = structure(c(0, 0, 0.166666666666667, 0.166666666666667, 0.333333333333333, 
                     0.333333333333333, 0.5, 0.5, 0.666666666666667, 0.666666666666667, 
                     0.833333333333333, 0.833333333333333, 1, 1), unit = 4L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 
                     1), unit = 0L, class = c("simpleUnit", "unit")), id = NULL, id.lengths = c(2L, 
                     2L, 2L, 2L, 2L, 2L, 2L), arrow = NULL, name = "panel.grid.major.x..polyline.3595", 
                     gp = structure(list(lwd = 1.42263779527559, col = "white", lty = 1, 
                       lineend = "butt"), class = "gpar"), vp = NULL), class = c("polyline", 
                 "grob", "gDesc"))), class = "gList"), childrenOrder = c("panel.background..rect.3587", 
             "panel.grid.minor.y..polyline.3589", "panel.grid.minor.x..polyline.3591", 
             "panel.grid.major.y..polyline.3593", "panel.grid.major.x..polyline.3595")), class = c("gTree", 
         "grob", "gDesc")), `NULL` = structure(list(name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", 
         "grob", "gDesc")), GRID.rastergrob.3570 = structure(list(raster = structure(c("#CEDE41FF", 
         "#45306FFF", "#FDE725FF", "#45306FFF", "#21908CFF", "#45306FFF", "#5DC863FF", 
         "#45306FFF", "#21908CFF", "#50B572FF", "#45306FFF", "#5DC863FF", "#45306FFF", 
         "#FDE725FF", "#CEDE41FF", "#21908CFF", "#45306FFF", "#45306FFF", "#45306FFF", 
         "#21908CFF", "#5DC863FF", "#45306FFF", "#5DC863FF", "#50B572FF"), .Dim = c(8L, 
         3L), class = "raster"), x = structure(0.5, unit = 4L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), width = structure(1, unit = 4L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             just = "centre", hjust = NULL, vjust = NULL, interpolate = FALSE, name = "GRID.rastergrob.3570", 
             gp = structure(list(), class = "gpar"), vp = NULL), class = c("rastergrob", 
         "grob", "gDesc")), GRID.segments.3571 = structure(list(x0 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3571", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3572 = structure(list(
             x0 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", "unit"
             )), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.333333333333333, unit = 4L, class = c("simpleUnit", 
             "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             arrow = NULL, name = "GRID.segments.3572", gp = structure(list(col = "#000000FF", 
                 fill = "#000000FF", lwd = 1.42263779527559, lty = 1, lineend = "butt", 
                 linejoin = "round"), class = "gpar"), vp = NULL), class = c("segments", 
         "grob", "gDesc")), GRID.segments.3573 = structure(list(x0 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), x1 = structure(0.666666666666667, unit = 4L, class = c("simpleUnit", 
         "unit")), y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3573", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3574 = structure(list(
             x0 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3574", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3575 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3575", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3576 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.125, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.125, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3576", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3577 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.25, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.25, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3577", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3578 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.375, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.375, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3578", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3579 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.5, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.5, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3579", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3580 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.625, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.625, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3580", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3581 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.75, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.75, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3581", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3582 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(0.875, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(0.875, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3582", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), GRID.segments.3583 = structure(list(
             x0 = structure(0, unit = 4L, class = c("simpleUnit", "unit")), y0 = structure(1, unit = 4L, class = c("simpleUnit", 
             "unit")), x1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), 
             y1 = structure(1, unit = 4L, class = c("simpleUnit", "unit")), arrow = NULL, 
             name = "GRID.segments.3583", gp = structure(list(col = "#000000FF", fill = "#000000FF", 
                 lwd = 1.42263779527559, lty = 1, lineend = "butt", linejoin = "round"), class = "gpar"), 
             vp = NULL), class = c("segments", "grob", "gDesc")), `NULL` = structure(list(
             name = "NULL", gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"
         )), panel.border..zeroGrob.3584 = structure(list(name = "panel.border..zeroGrob.3584", 
             gp = NULL, vp = NULL), class = c("zeroGrob", "grob", "gDesc"))), class = "gList"), 
         childrenOrder = c("grill.gTree.3596", "NULL", "GRID.rastergrob.3570", "GRID.segments.3571", 
         "GRID.segments.3572", "GRID.segments.3573", "GRID.segments.3574", "GRID.segments.3575", 
         "GRID.segments.3576", "GRID.segments.3577", "GRID.segments.3578", "GRID.segments.3579", 
         "GRID.segments.3580", "GRID.segments.3581", "GRID.segments.3582", "GRID.segments.3583", 
         "NULL", "panel.border..zeroGrob.3584")), class = c("gTree", "grob", "gDesc"))), 
         layout = structure(list(t = 1, l = 2, b = 1, r = 2, z = 1, clip = "on", name = "panel"), row.names = c(NA, 
         -1L), class = "data.frame"), widths = structure(list(list(0.2, NULL, 5L), list(
             1, NULL, 5L), list(0.3, NULL, 5L)), class = "unit"), heights = structure(list(
             list(1, NULL, 5L), list(0.1, NULL, 5L), list(0.1, NULL, 5L)), class = "unit"), 
         respect = FALSE, rownames = NULL, colnames = NULL, name = "layout", gp = NULL, 
         vp = NULL, children = structure(list(), class = "gList"), childrenOrder = character(0)), class = c("gtable", 
     "gTree", "grob", "gDesc")), gg.right = structure(list(data = structure(list(y = 1:8, 
         x = 1:8, membership = structure(1:8, .Label = c("1", "2", "3", "4", "5", "6", 
         "7", "8"), class = "factor")), row.names = c(NA, -8L), class = "data.frame"), 
         layers = list(<environment>), scales = <environment>, mapping = structure(list(), .Names = character(0), class = "uneval"), 
         theme = structure(list(line = structure(list(colour = "black", size = 0.5, linetype = 1, 
             lineend = "butt", arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
         "element")), rect = structure(list(), class = c("element_blank", "element")), 
             text = structure(list(family = "", face = "plain", colour = "black", size = 11, 
                 hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = 10, hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, 
                 margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = NULL, angle = 0, lineheight = NULL, 
                 margin = NULL, debug = NULL, inherit.blank = FALSE), class = c("element_text", 
             "element")), axis.title.y.right = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(family = NULL, face = NULL, colour = "grey30", 
                 size = structure(0.8, class = "rel"), hjust = NULL, vjust = NULL, angle = NULL, 
                 lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = 10, hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, 
                 margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text.y = structure(list(), class = c("element_blank", "element")), 
             axis.text.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = 0, vjust = NULL, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.ticks = structure(list(colour = "grey20", size = NULL, linetype = NULL, 
                 lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
             "element")), axis.ticks.y = structure(list(), class = c("element_blank", 
             "element")), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", 
             "unit")), axis.line = structure(list(), class = c("element_blank", "element"
             )), axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                 fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
             "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
             "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                 fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
             "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                 family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                 hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                 debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                 face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                 lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), legend.title.align = NULL, legend.position = "right", legend.direction = NULL, 
             legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
             0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
             "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
             "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                 size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                 size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
             "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                 colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, arrow = FALSE, 
                 inherit.blank = TRUE), class = c("element_line", "element")), panel.grid.minor = structure(list(), class = c("element_blank", 
             "element")), panel.grid.major.y = structure(list(), class = c("element_blank", 
             "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                 colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), plot.title = structure(list(), class = c("element_blank", "element"
             )), plot.subtitle = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, margin = structure(c(0, 
                 0, 5.5, 0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), plot.caption = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, angle = NULL, 
                 lineheight = NULL, margin = structure(c(5.5, 0, 0, 0), unit = 8L, class = c("margin", 
                 "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                 lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
             0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                 fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), strip.placement = "inside", strip.text = structure(list(), class = c("element_blank", 
             "element")), strip.text.x = NULL, strip.text.y = structure(list(family = NULL, 
                 face = NULL, colour = NULL, size = NULL, hjust = NULL, vjust = NULL, 
                 angle = -90, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
             "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
             "unit"))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
         facet = <environment>, plot_env = <environment>, labels = list(x = "x", y = "y", 
             colour = "factor(membership)")), class = c("gg", "ggplot")), gg.left = structure(list(
         data = structure(list(variable = structure(1:8, .Label = c("1", "2", "3", "4", 
         "5", "6", "7", "8"), class = "factor"), col = structure(c(1L, 2L, 1L, 2L, 1L, 
         2L, 1L, 2L), .Label = c("grey95", "grey80"), class = "factor"), n = c(1, 1, 1, 
         1, 1, 1, 1, 1), id = 1:8, increment = c(0.125, 0.125, 0.125, 0.125, 0.125, 0.125, 
         0.125, 0.125), breaks = c(1, 1.125, 1.25, 1.375, 1.5, 1.625, 1.75, 1.875)), row.names = c(NA, 
         -8L), class = "data.frame"), layers = list(<environment>, <environment>), scales = <environment>, 
         mapping = structure(list(xmin = 0, xmax = 1, ymin = ~breaks, ymax = ~breaks + 
             increment, fill = ~col), class = "uneval"), theme = structure(list(line = structure(list(), class = c("element_blank", 
         "element")), rect = structure(list(), class = c("element_blank", "element")), 
             text = structure(list(family = "", face = "plain", colour = "black", size = 11, 
                 hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9, margin = structure(c(0, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.title.x = structure(list(), class = c("element_blank", 
             "element")), axis.title.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.75, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.title.y = structure(list(), class = c("element_blank", "element"
             )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.75), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text = structure(list(), class = c("element_blank", "element")), 
             axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, size = NULL, 
                 hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, margin = structure(c(2.2, 
                 0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, 
                 colour = NULL, size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 2.2, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text.y = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = 1, vjust = NULL, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 2.2, 0, 0), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.text.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = 0, vjust = NULL, angle = NULL, lineheight = NULL, 
                 margin = structure(c(0, 0, 0, 2.2), unit = 8L, class = c("margin", "unit"
                 )), debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), axis.ticks = structure(list(), class = c("element_blank", "element")), 
             axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", "unit"
             )), axis.line = structure(list(), class = c("element_blank", "element")), 
             axis.line.x = NULL, axis.line.y = NULL, legend.background = structure(list(
                 fill = NULL, colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
             "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
             "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                 fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
             "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                 family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                 hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                 debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                 face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                 lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
             legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
             0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
             "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
             "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                 size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                 size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
             "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                 colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, arrow = FALSE, 
                 inherit.blank = TRUE), class = c("element_line", "element")), panel.grid.minor = structure(list(
                 colour = NULL, size = structure(0.5, class = "rel"), linetype = NULL, 
                 lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
             "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                 colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), plot.title = structure(list(), class = c("element_blank", "element"
             )), plot.subtitle = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, margin = structure(c(0, 
                 0, 5.5, 0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), plot.caption = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, angle = NULL, 
                 lineheight = NULL, margin = structure(c(5.5, 0, 0, 0), unit = 8L, class = c("margin", 
                 "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                 lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
             0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                 fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), strip.placement = "inside", strip.text = structure(list(), class = c("element_blank", 
             "element")), strip.text.x = NULL, strip.text.y = structure(list(family = NULL, 
                 face = NULL, colour = NULL, size = NULL, hjust = NULL, vjust = NULL, 
                 angle = -90, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
             "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
             "unit")), axis.title = structure(list(), class = c("element_blank", "element"
             ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
         facet = <environment>, plot_env = <environment>, labels = list(xmin = "xmin", 
             xmax = "xmax", ymin = "breaks", ymax = "breaks + increment", fill = "col", 
             x = "pos", y = "breaks + increment/2", label = "variable")), class = c("gg", 
     "ggplot")), gg.legend = structure(list(data = structure(list(value = c(1, 1, 2, 1, 
     4, 5, 1, 7, 5, 2, 1, 8, 1, 1, 2, 1, 4, 5, 1, 7, 5, 2, 1, 8), x = c(1, 1, 1, 1, 1, 
     1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3), y = c(1, 2, 3, 4, 5, 6, 
     7, 8, 1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8)), class = "data.frame", row.names = c(NA, 
     -24L)), layers = list(<environment>, <environment>, <environment>, <environment>, 
         <environment>, <environment>, <environment>, <environment>, <environment>, <environment>, 
         <environment>, <environment>, <environment>, <environment>), scales = <environment>, 
         mapping = structure(list(), .Names = character(0), class = "uneval"), theme = structure(list(
             axis.text.x = structure(list(), class = c("element_blank", "element")), axis.text.y = structure(list(), class = c("element_blank", 
             "element")), axis.ticks = structure(list(), class = c("element_blank", "element"
             )), legend.key.width = structure(2, unit = 3L, class = c("simpleUnit", "unit"
             )), legend.text = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = 12, hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, 
                 margin = NULL, debug = NULL, inherit.blank = FALSE), class = c("element_text", 
             "element")), legend.direction = "horizontal"), class = c("theme", "gg"), complete = FALSE, validate = FALSE), 
         coordinates = <environment>, facet = <environment>, plot_env = <environment>, 
         labels = list(x = "x", y = "y", fill = "value", xintercept = "xintercept", yintercept = "yintercept"), 
         guides = list(fill = structure(list(title = structure(list(), class = "waiver"), 
             title.position = NULL, title.theme = NULL, title.hjust = NULL, title.vjust = NULL, 
             label = TRUE, label.position = NULL, label.theme = NULL, label.hjust = NULL, 
             label.vjust = NULL, barwidth = structure(15, unit = 3L, class = c("simpleUnit", 
             "unit")), barheight = structure(1, unit = 3L, class = c("simpleUnit", "unit"
             )), nbin = 20, raster = TRUE, frame.colour = NULL, frame.linewidth = 0.5, 
             frame.linetype = 1, ticks = TRUE, ticks.colour = "white", ticks.linewidth = 0.5, 
             draw.ulim = TRUE, draw.llim = TRUE, direction = NULL, default.unit = "line", 
             reverse = FALSE, order = 0, available_aes = c("colour", "color", "fill"), 
             name = "colorbar"), class = c("guide", "colorbar")))), class = c("gg", "ggplot"
     )), gg.column.title = structure(list(data = structure(list(x = 0, y = 0, name = structure(1L, .Label = "colname", class = "factor")), class = "data.frame", row.names = c(NA, 
     -1L)), layers = list(<environment>), scales = <environment>, mapping = structure(list(), .Names = character(0), class = "uneval"), 
         theme = structure(list(line = structure(list(), class = c("element_blank", "element"
         )), rect = structure(list(), class = c("element_blank", "element")), text = structure(list(
             family = "", face = "plain", colour = "black", size = 11, hjust = 0.5, vjust = 0.5, 
             angle = 0, lineheight = 0.9, margin = structure(c(0, 0, 0, 0), unit = 8L, class = c("margin", 
             "unit")), debug = FALSE, inherit.blank = TRUE), class = c("element_text", 
         "element")), axis.title.x = structure(list(), class = c("element_blank", "element"
         )), axis.title.x.top = structure(list(family = NULL, face = NULL, colour = NULL, 
             size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, margin = structure(c(0, 
             0, 2.75, 0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
         "element")), axis.title.y = structure(list(), class = c("element_blank", "element"
         )), axis.title.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
             size = NULL, hjust = NULL, vjust = 0, angle = -90, lineheight = NULL, margin = structure(c(0, 
             0, 0, 2.75), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
         "element")), axis.text = structure(list(), class = c("element_blank", "element"
         )), axis.text.x = structure(list(family = NULL, face = NULL, colour = NULL, size = NULL, 
             hjust = NULL, vjust = 1, angle = NULL, lineheight = NULL, margin = structure(c(2.2, 
             0, 0, 0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
         "element")), axis.text.x.top = structure(list(family = NULL, face = NULL, colour = NULL, 
             size = NULL, hjust = NULL, vjust = 0, angle = NULL, lineheight = NULL, margin = structure(c(0, 
             0, 2.2, 0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
         "element")), axis.text.y = structure(list(family = NULL, face = NULL, colour = NULL, 
             size = NULL, hjust = 1, vjust = NULL, angle = NULL, lineheight = NULL, margin = structure(c(0, 
             2.2, 0, 0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
         "element")), axis.text.y.right = structure(list(family = NULL, face = NULL, colour = NULL, 
             size = NULL, hjust = 0, vjust = NULL, angle = NULL, lineheight = NULL, margin = structure(c(0, 
             0, 0, 2.2), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
         "element")), axis.ticks = structure(list(), class = c("element_blank", "element"
         )), axis.ticks.length = structure(2.75, unit = 8L, class = c("simpleUnit", "unit"
         )), axis.line = structure(list(), class = c("element_blank", "element")), axis.line.x = NULL, 
             axis.line.y = NULL, legend.background = structure(list(fill = NULL, colour = NA, 
                 size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), legend.margin = structure(c(5.5, 5.5, 5.5, 5.5), unit = 8L, class = c("margin", 
             "unit")), legend.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
             "unit")), legend.spacing.x = NULL, legend.spacing.y = NULL, legend.key = structure(list(
                 fill = "white", colour = NA, size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), legend.key.size = structure(1.2, unit = 3L, class = c("simpleUnit", 
             "unit")), legend.key.height = NULL, legend.key.width = NULL, legend.text = structure(list(
                 family = NULL, face = NULL, colour = NULL, size = structure(0.8, class = "rel"), 
                 hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL, margin = NULL, 
                 debug = NULL, inherit.blank = TRUE), class = c("element_text", "element"
             )), legend.text.align = NULL, legend.title = structure(list(family = NULL, 
                 face = NULL, colour = NULL, size = NULL, hjust = 0, vjust = NULL, angle = NULL, 
                 lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), legend.title.align = NULL, legend.position = "none", legend.direction = NULL, 
             legend.justification = "center", legend.box = NULL, legend.box.margin = structure(c(0, 
             0, 0, 0), unit = 1L, class = c("margin", "unit")), legend.box.background = structure(list(), class = c("element_blank", 
             "element")), legend.box.spacing = structure(11, unit = 8L, class = c("simpleUnit", 
             "unit")), panel.background = structure(list(fill = "white", colour = NA, 
                 size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), panel.border = structure(list(fill = NA, colour = "grey20", 
                 size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), panel.spacing = structure(5.5, unit = 8L, class = c("simpleUnit", 
             "unit")), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.grid = structure(list(
                 colour = "grey92", size = NULL, linetype = NULL, lineend = NULL, arrow = FALSE, 
                 inherit.blank = TRUE), class = c("element_line", "element")), panel.grid.minor = structure(list(
                 colour = NULL, size = structure(0.5, class = "rel"), linetype = NULL, 
                 lineend = NULL, arrow = FALSE, inherit.blank = TRUE), class = c("element_line", 
             "element")), panel.ontop = FALSE, plot.background = structure(list(fill = NULL, 
                 colour = "white", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), plot.title = structure(list(), class = c("element_blank", "element"
             )), plot.subtitle = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = NULL, hjust = 0, vjust = 1, angle = NULL, lineheight = NULL, margin = structure(c(0, 
                 0, 5.5, 0), unit = 8L, class = c("margin", "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), plot.caption = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = structure(0.8, class = "rel"), hjust = 1, vjust = 1, angle = NULL, 
                 lineheight = NULL, margin = structure(c(5.5, 0, 0, 0), unit = 8L, class = c("margin", 
                 "unit")), debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), plot.tag = structure(list(family = NULL, face = NULL, colour = NULL, 
                 size = structure(1.2, class = "rel"), hjust = 0.5, vjust = 0.5, angle = NULL, 
                 lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), plot.tag.position = "topleft", plot.margin = structure(c(0, 
             0, 0, 0), unit = "lines", valid.unit = 3L, class = "unit"), strip.background = structure(list(
                 fill = "grey85", colour = "grey20", size = NULL, linetype = NULL, inherit.blank = TRUE), class = c("element_rect", 
             "element")), strip.placement = "inside", strip.text = structure(list(), class = c("element_blank", 
             "element")), strip.text.x = NULL, strip.text.y = structure(list(family = NULL, 
                 face = NULL, colour = NULL, size = NULL, hjust = NULL, vjust = NULL, 
                 angle = -90, lineheight = NULL, margin = NULL, debug = NULL, inherit.blank = TRUE), class = c("element_text", 
             "element")), strip.switch.pad.grid = structure(2.75, unit = 8L, class = c("simpleUnit", 
             "unit")), strip.switch.pad.wrap = structure(2.75, unit = 8L, class = c("simpleUnit", 
             "unit")), axis.title = structure(list(), class = c("element_blank", "element"
             ))), class = c("theme", "gg"), complete = TRUE, validate = TRUE), coordinates = <environment>, 
         facet = <environment>, plot_env = <environment>, labels = list(x = "x", y = "y", 
             label = "name")), class = c("gg", "ggplot")), row.dendrogram = FALSE, col.dendrogram = FALSE, 
         yt.axis = TRUE, yr.axis = FALSE, yt.axis.name = "NULL", yr.axis.name = "1:8", 
         padding = 1, bottom.label.size = 0.2, left.label.size = 0.2)
  4: gtable::gtable_add_grob(layout, gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), 
         pattern = "guide-box", trim = TRUE, fixed = TRUE), t = t, l = l)
  5: is.grob(grobs)
  6: gtable::gtable_filter(ggplot2::ggplotGrob(gg.legend), pattern = "guide-box", trim = TRUE, 
         fixed = TRUE)
  7: grepl(pattern, .subset2(x$layout, "name"), fixed = fixed)
  8: ggplot2::ggplotGrob(gg.legend)
  9: ggplot_gtable(ggplot_build(x))
  10: ggplot_gtable.ggplot_built(ggplot_build(x))
  ...
  22: pushvpgp(x)
  23: pushgrobvp(x$vp)
  24: pushgrobvp.viewport(x$vp)
  25: pushViewport(vp, recording = FALSE)
  26: lapply(vps, push.vp, recording)
  27: FUN(X[[i]], ...)
  28: push.vp.vpTree(X[[i]], ...)
  29: push.vp(vp$parent, recording)
  30: push.vp.viewport(vp$parent, recording)
  31: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 41. Error: Adding column name with right plot and