Setting absolute size of facets in ggplot2

by

I’ve used the following function for this purpose,

set_panel_size <- function(p=NULL, g=ggplotGrob(p), file=NULL, 
                           margin = unit(1,"mm"),
                           width=unit(4, "cm"), 
                           height=unit(4, "cm")){

  panels <- grep("panel", g$layout$name)
  panel_index_w<- unique(g$layout$l[panels])
  panel_index_h<- unique(g$layout$t[panels])
  nw <- length(panel_index_w)
  nh <- length(panel_index_h)

if(getRversion() < "3.3.0"){

   # the following conversion is necessary
   # because there is no `[<-`.unit method
   # so promoting to unit.list allows standard list indexing
   g$widths <- grid:::unit.list(g$widths)
   g$heights <- grid:::unit.list(g$heights)

   g$widths[panel_index_w] <-  rep(list(width),  nw)
   g$heights[panel_index_h] <- rep(list(height), nh)

} else {

   g$widths[panel_index_w] <-  rep(width,  nw)
   g$heights[panel_index_h] <- rep(height, nh)

}

  if(!is.null(file))
    ggsave(file, g, 
           width = grid::convertWidth(sum(g$widths) + margin, 
                                unitTo = "in", valueOnly = TRUE),
           height = grid::convertHeight(sum(g$heights) + margin,  
                                  unitTo = "in", valueOnly = TRUE))

  g
}

g1 <- set_panel_size(plot1)
g2 <- set_panel_size(plot2)
gridExtra::grid.arrange(g1,g2)

enter image description here

More Related Contents:

  1. Annotating text on individual facet in ggplot2
  2. Place a legend for each facet_wrap grid in ggplot2
  3. add “floating” axis labels in facet_wrap plot
  4. ggplot2: facet_wrap strip color based on variable in data set
  5. ggplot2: Changing the order of stacks on a bar graph
  6. How to produce different geom_vline in different facets in R?
  7. facet_wrap add geom_hline
  8. Add x and y axis to all facet_wrap
  9. Setting the last plot in the middle with facet_wrap
  10. Scales = “free” works for facet_wrap but doesn’t for facet_grid
  11. ggplot2: Splitting facet/strip text into two lines
  12. How to order bars within all facets?
  13. Change the number of breaks using facet_grid in ggplot2
  14. Construct a manual legend for a complicated plot
  15. Plot multiple lines in one graph [duplicate]
  16. Adding minor tick marks to the x axis in ggplot2 (with no labels)
  17. Explain ggplot2 warning: “Removed k rows containing missing values”
  18. draw the sum value above the stacked bar in ggplot2
  19. ggplot2 shade area under density curve by group
  20. How to add frequency count labels to the bars in a bar graph using ggplot2? [duplicate]
  21. How to italicize part (one or two words) of an axis title
  22. Group data and plot multiple lines
  23. How to add multiple captions in ggplot2 outside of the main graph area
  24. Add secondary X axis labels to ggplot with one X axis
  25. Combining `expression()` with `\n`
  26. How to label a barplot bar with positive and negative bars with ggplot2
  27. Color points with the color as a column in ggplot2 [duplicate]
  28. Custom legend with imported images
  29. Plotting pca biplot with ggplot2
  30. How to get a barplot with several variables side by side grouped by a factor

Leave a Comment