fixed width gtable

fixed_width.r

library(ggplot2)
library(grid)


 fixed_width <- function(p, width = unit(3, "cm"), 
                         draw = FALSE){
   gt <- ggplot_gtable(ggplot_build(p))
   panel_index <- gt$layout$r[gt$layout$name == "panel"]
   gt$widths[[panel_index]] <- width 

   if(draw) grid.draw(gt)
   class(gt) <- c(class(gt), "grob")
   invisible(gt)
 }