How do you add a general label to facets in ggplot2?

by

As the latest ggplot2 uses gtable internally, it is quite easy to modify a figure:

library(ggplot2)
test <- data.frame(x=1:20, y=21:40, 
                   facet.a=rep(c(1,2),10), 
                   facet.b=rep(c(1,2), each=20))
p <- qplot(data=test, x=x, y=y, facets=facet.b~facet.a)

# get gtable object
z <- ggplotGrob(p)

library(grid)
library(gtable)
# add label for right strip
z <- gtable_add_cols(z, unit(z$widths[[7]], 'cm'), 7)
z <- gtable_add_grob(z, 
                     list(rectGrob(gp = gpar(col = NA, fill = gray(0.5))),
                          textGrob("Variable 1", rot = -90, gp = gpar(col = gray(1)))),
                     4, 8, 6, name = paste(runif(2)))

# add label for top strip
z <- gtable_add_rows(z, unit(z$heights[[3]], 'cm'), 2)
z <- gtable_add_grob(z, 
                     list(rectGrob(gp = gpar(col = NA, fill = gray(0.5))),
                          textGrob("Variable 2", gp = gpar(col = gray(1)))),
                     3, 4, 3, 6, name = paste(runif(2)))

# add margins
z <- gtable_add_cols(z, unit(1/8, "line"), 7)
z <- gtable_add_rows(z, unit(1/8, "line"), 3)

# draw it
grid.newpage()
grid.draw(z)

enter image description here

Of course, you can write a function that automatically add the strip labels. A future version of ggplot2 may have this functionality; not sure though.

More Related Contents:

  1. How can the facet function in ggplot be used to create a histogram in order to visualize distributions for all variables in a dataset?
  2. Annotating text on individual facet in ggplot2
  3. How to change facet labels?
  4. Fixing the order of facets in ggplot
  5. Rotating and spacing axis labels in ggplot2
  6. ggplot, facet, piechart: placing text in the middle of pie chart slices
  7. Editing legend (text) labels in ggplot
  8. Nested facets in ggplot2 spanning groups
  9. Place a legend for each facet_wrap grid in ggplot2
  10. How to order data by value within ggplot facets
  11. Setting individual axis limits with facet_wrap and scales = “free” in ggplot2
  12. R + ggplot2 => add labels on facet pie chart [duplicate]
  13. different size facets proportional of x axis on ggplot 2 r
  14. How to add different lines for facets
  15. facet_wrap add geom_hline
  16. Add secondary X axis labels to ggplot with one X axis
  17. Add x and y axis to all facet_wrap
  18. Labeling center of map polygons in R ggplot
  19. Combining new lines and italics in facet labels with ggplot2
  20. How to use empty space produced by facet_wrap?
  21. Setting the last plot in the middle with facet_wrap
  22. How to adjust facet size manually
  23. Varying axis labels formatter per facet in ggplot/R
  24. ggplot: Order bars in faceted bar chart per facet
  25. adding x and y axis labels in ggplot2
  26. Change the position of the strip label in ggplot from the top to the bottom?
  27. Multirow axis labels with nested grouping variables
  28. ggplot2 0.9.0 automatically dropping unused factor levels from plot legend?
  29. Plotting with ggplot2: “Error: Discrete value supplied to continuous scale” on categorical y-axis
  30. Apply a ggplot-function per group with dplyr and set title per group

Leave a Comment