Make the background of a graph different colours in different regions

by

Here’s an example to get you started:

#Fake data
dat <- data.frame(x = 1:100, y = cumsum(rnorm(100)))
#Breaks for background rectangles
rects <- data.frame(xstart = seq(0,80,20), xend = seq(20,100,20), col = letters[1:5])


#As Baptiste points out, the order of the geom's matters, so putting your data as last will 
#make sure that it is plotted "on top" of the background rectangles. Updated code, but
#did not update the JPEG...I think you'll get the point.

ggplot() + 
  geom_rect(data = rects, aes(xmin = xstart, xmax = xend, ymin = -Inf, ymax = Inf, fill = col), alpha = 0.4) +
  geom_line(data = dat, aes(x,y))

enter image description here

More Related Contents:

  1. Using ggplot2, can I insert a break in the axis?
  2. ggplot does not work if it is inside a for loop although it works outside of it [duplicate]
  3. Multiple plots in for loop ignoring par
  4. Control ggplot2 legend look without affecting the plot
  5. How do I position two legends independently in ggplot
  6. ggplot2 – jitter and position dodge together
  7. Adding a regression line on a ggplot
  8. Creating multiple graphs based upon the column names
  9. plotting pie graphs on map in ggplot
  10. Remove legend ggplot 2.2
  11. drawing pyramid plot using R and ggplot2
  12. Create a matrix of scatterplots (pairs() equivalent) in ggplot2
  13. R ggplot2: stat_count() must not be used with a y aesthetic error in Bar graph
  14. How to maintain size of ggplot with long labels
  15. How to move or position a legend in ggplot2
  16. Remove extra space and ring at the edge of a polar plot
  17. R – emulate the default behavior of hist() with ggplot2 for bin width
  18. Add percentage labels to a stacked barplot
  19. How to jitter both geom_line and geom_point by the same magnitude?
  20. How to show only part of the plot area of polar ggplot with facet?
  21. Different legend-keys inside same legend in ggplot2
  22. Plot two graphs in a same plot
  23. ggplot multiple grouping bar
  24. Showing equation of nls model with ggpmisc
  25. R stat_smooth all points
  26. How to automatically adjust the width of each facet for facet_wrap?
  27. Is it possible to jitter two ggplot geoms in the same way?
  28. Draw lines between different elements in a stacked bar plot
  29. What does the error “arguments imply differing number of rows: x, y” mean?
  30. Change the position of the strip label in ggplot from the top to the bottom?

Leave a Comment