How to position strip labels in facet_wrap like in facet_grid

by

This does not seem easy, but one way is to use grid graphics to insert panel strips from a facet_grid plot into one created as a facet_wrap. Something like this:

First lets create two plots using facet_grid and facet_wrap. 

dt <- txhousing[txhousing$year %in% 2000:2002 & txhousing$month %in% 1:3,]

g1 = ggplot(dt, aes(median, sales)) +
  geom_point() +
  facet_wrap(c("year", "month"), scales = "free") +
  theme(strip.background = element_blank(),
        strip.text = element_blank())

g2 = ggplot(dt, aes(median, sales)) +
  geom_point() +
  facet_grid(c("year", "month"), scales = "free")

Now we can fairly easily replace the top facet strips of g1 with those from g2

library(grid)
library(gtable) 
gt1 = ggplot_gtable(ggplot_build(g1))
gt2 = ggplot_gtable(ggplot_build(g2))
gt1$grobs[grep('strip-t.+1$', gt1$layout$name)] = gt2$grobs[grep('strip-t', gt2$layout$name)]
grid.draw(gt1)

enter image description here

Adding the right hand panel strips need us to first add a new column in the grid layout, then paste the relevant strip grobs into it:

gt.side1 = gtable_filter(gt2, 'strip-r-1')
gt.side2 = gtable_filter(gt2, 'strip-r-2')
gt.side3 = gtable_filter(gt2, 'strip-r-3')

gt1 = gtable_add_cols(gt1, widths=gt.side1$widths[1], pos = -1)
gt1 = gtable_add_grob(gt1, zeroGrob(), t = 1, l = ncol(gt1), b=nrow(gt1))

panel_id <- gt1$layout[grep('panel-.+1$', gt1$layout$name),]
gt1 = gtable_add_grob(gt1, gt.side1, t = panel_id$t[1], l = ncol(gt1))
gt1 = gtable_add_grob(gt1, gt.side2, t = panel_id$t[2], l = ncol(gt1))
gt1 = gtable_add_grob(gt1, gt.side3, t = panel_id$t[3], l = ncol(gt1))

grid.newpage()
grid.draw(gt1)

enter image description here

More Related Contents:

  1. Plot two graphs in same plot in R
  2. Remove ‘a’ from legend when using aesthetics and geom_text
  3. Generate multiple graphics from within an R function
  4. How can I make consistent-width plots in ggplot (with legends)?
  5. Change bar plot colour in geom_bar with ggplot2 in r
  6. Specification of first and last tick marks with scale_x_date
  7. ggplot2: change order of display of a factor variable on an axis
  8. Unicode Characters in ggplot2 PDF Output
  9. How to increase the space between the bars in a bar plot in ggplot2?
  10. Plotting over multiple pages
  11. ggplot2: How to specify multiple fill colors for points that are connected by lines of different colors
  12. Setting y axis breaks in ggplot
  13. How to extract the fill colours from a ggplot object?
  14. R knitr Markdown: Output Plots within For Loop
  15. Generate paired stacked bar charts in ggplot (using position_dodge only on some variables)
  16. Create heatmap with values from matrix in ggplot2
  17. facet_wrap add geom_hline
  18. Improve centering county names ggplot & maps
  19. How to draw a nice arrow in ggplot2
  20. Bars in geom_bar have unwanted different widths when using facet_wrap
  21. beautiful Pie Charts with R
  22. Generate ggplot2 boxplot with different colours for multiple groups
  23. Connect stack bar charts with multiple groups with lines or segments using ggplot 2
  24. Drawing a barchart to compare two sets of data using ggplot2 package?
  25. Plotting multiple graphs in R [closed]
  26. How to set legend alpha with ggplot2
  27. Changing format of some axis labels in ggplot2 according to condition [duplicate]
  28. ggplot2 – using two different color scales for overlayed plots
  29. Add axis tick-marks on top and to the right to a ggplot?
  30. heatmap-like plot, but for categorical variables

Leave a Comment