ggplot2: facet_wrap strip color based on variable in data set

by

With a little bit of work, you can combine your plot with a dummy gtable that has the right grobs,

enter image description here

d <- data.frame(fruit = rep(c("apple", "orange", "plum", "banana", "pear", "grape")), 
                farm = rep(c(0,1,3,6,9,12), each=6), 
                weight = rnorm(36, 10000, 2500), 
                size=rep(c("small", "large")))

p1 = ggplot(data = d, aes(x = farm, y = weight)) + 
  geom_jitter(position = position_jitter(width = 0.3), 
              aes(color = factor(farm)), size = 2.5, alpha = 1) + 
  facet_wrap(~fruit)

dummy <- ggplot(data = d, aes(x = farm, y = weight))+ facet_wrap(~fruit) + 
  geom_rect(aes(fill=size), xmin=-Inf, xmax=Inf, ymin=-Inf, ymax=Inf) +
  theme_minimal()

library(gtable)

g1 <- ggplotGrob(p1)
g2 <- ggplotGrob(dummy)

gtable_select <- function (x, ...) 
{
  matches <- c(...)
  x$layout <- x$layout[matches, , drop = FALSE]
  x$grobs <- x$grobs[matches]
  x
}

panels <- grepl(pattern="panel", g2$layout$name)
strips <- grepl(pattern="strip_t", g2$layout$name)
g2$layout$t[panels] <- g2$layout$t[panels] - 1
g2$layout$b[panels] <- g2$layout$b[panels] - 1

new_strips <- gtable_select(g2, panels | strips)
grid.newpage()
grid.draw(new_strips)

gtable_stack <- function(g1, g2){
  g1$grobs <- c(g1$grobs, g2$grobs)
  g1$layout <- transform(g1$layout, z= z-max(z), name="g2")
  g1$layout <- rbind(g1$layout, g2$layout)
  g1
}
## ideally you'd remove the old strips, for now they're just covered
new_plot <- gtable_stack(g1, new_strips)
grid.newpage()
grid.draw(new_plot)

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. Setting absolute size of facets in ggplot2
  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. Showing data values on stacked bar chart in ggplot2
  15. How do you specifically order ggplot2 x axis instead of alphabetical order? [duplicate]
  16. Displaying text below the plot generated by ggplot2
  17. Order Stacked Bar Graph in ggplot [duplicate]
  18. ggplot2 change axis limits for each individual facet panel
  19. R pass variable column indices to ggplot2 [duplicate]
  20. ggplot plots in scripts do not display in Rstudio
  21. Printing multiple ggplots into a single pdf, multiple plots per page
  22. Is there a way of manipulating ggplot scale breaks and labels?
  23. Add line break to axis labels and ticks in ggplot
  24. How do I change the number of decimal places on axis labels in ggplot2?
  25. ggplot embedded fonts in pdf
  26. Time series plot gets offset by 2 hours if scale_x_datetime is used
  27. Changing format of some axis labels in ggplot2 according to condition [duplicate]
  28. Spacing between boxplots in ggplot2
  29. Add axis tick-marks on top and to the right to a ggplot?
  30. Creating a vertical color gradient for a geom_bar plot

Leave a Comment