change background and text of strips associated to multiple panels in R / lattice

by

Here’s a clean and easily customizable solution.

myStripStyle(), the function that is passed in to the strip= argument of xyplot() uses the counter variable which.panel to select colors and also the value of factor.levels for the panel that’s currently being plotted.

If you want to play around with the settings, just put a browser() somewhere inside the definition of myStripStyle() and have at it!

bgColors <- c("black", "green4", "blue", "red", "purple", "yellow")
txtColors <- c("white", "yellow", "white", "white", "green", "red")

# Create a function to be passed to "strip=" argument of xyplot
myStripStyle <- function(which.panel, factor.levels, ...) {
    panel.rect(0, 0, 1, 1,
               col = bgColors[which.panel],
               border = 1)
    panel.text(x = 0.5, y = 0.5,
               font=2,
               lab = factor.levels[which.panel],
               col = txtColors[which.panel])
}    
xyplot(yield ~ year | site, data = barley, strip=myStripStyle)

enter image description here

More Related Contents:

  1. How to save a plot as image on the disk?
  2. How to plot a function curve in R
  3. R package lattice won’t plot if run using source()
  4. How can I plot with 2 different y-axes?
  5. Storing ggplot objects in a list from within loop in R
  6. Label points in geom_point
  7. Stacked Bar Plot in R
  8. Subscripts in plots in R
  9. How to display the frequency at the top of each factor in a barplot in R [duplicate]
  10. Error in plot.new() : figure margins too large in R
  11. Plot over multiple pages
  12. ggplot2 3D Bar Plot
  13. How can we make xkcd style graphs?
  14. Plot one numeric variable against n numeric variables in n plots
  15. How to plot a hybrid boxplot: half boxplot with jitter points on the other half?
  16. How to conditionally highlight points in ggplot2 facet plots – mapping color to column
  17. Plot a function with ggplot, equivalent of curve()
  18. Multiple time series in one plot
  19. R return corrplot as object
  20. How to specify the actual x axis values to plot as x axis ticks in R
  21. ggplot2, Ordering y axis
  22. Issue with ggplot2, geom_bar, and position=”dodge”: stacked has correct y values, dodged does not
  23. Plot background colour in gradient
  24. plot stacked bar plot in R
  25. R Plot Filled Longitude-Latitude Grid Cells on Map
  26. How do I draw gridlines using abline() that are behind the data?
  27. Adding ellipses to a principal component analysis (PCA) plot
  28. how to plot ellipse given a general equation in R?
  29. Chronological timeline with points in time and format date
  30. How to define more line types for graphs in R (custom linetype)?

Leave a Comment