ggplot, drawing multiple lines across facets

by

Updated to ggplot2 V3.0.0

In the simple scenario where panels have common axes and the lines extend across the full y range you can draw lines over the whole gtable cells, having found the correct npc coordinates conversion (cf previous post, updated because ggplot2 keeps changing),

library(ggplot2)
library(gtable)
library(grid)

dat <- data.frame(x=rep(1:10,2),y=1:20+rnorm(20),z=c(rep("A",10),rep("B",10)))

p <- ggplot(dat,aes(x,y)) + geom_point() + facet_grid(z~.) + xlim(0,10)
pb <- ggplot_build(p)
pg <- ggplot_gtable(pb)


data2npc <- function(x, panel = 1L, axis = "x") {
  range <- pb$layout$panel_params[[panel]][[paste0(axis,".range")]]
  scales::rescale(c(range, x), c(0,1))[-c(1,2)]
}


start <- sapply(c(4,8), data2npc, panel=1, axis="x")

pg <- gtable_add_grob(pg, segmentsGrob(x0=start, x1=start, y0=0, y1=1, gp=gpar(lty=2)), t=7, b=9, l=5)

grid.newpage()
grid.draw(pg)

enter image description here

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. Changing fonts in ggplot2
  3. “for” loop only adds the final ggplot layer
  4. Add a common Legend for combined ggplots
  5. Label points in geom_point
  6. geom_rect and alpha – does this work with hard coded values?
  7. Controlling ggplot2 legend display order
  8. Nested facets in ggplot2 spanning groups
  9. ggplot2: histogram with normal curve
  10. How to get a reversed, log10 scale in ggplot2?
  11. Plot over multiple pages
  12. How can we make xkcd style graphs?
  13. geom_boxplot with precomputed values
  14. Inserting a table under the legend in a ggplot2 histogram
  15. Is there a built-in way to do a logarithmic color scale in ggplot2?
  16. World map with ggmap
  17. Saving a graph with ggsave after using ggplot_build and ggplot_gtable
  18. Reasons that ggplot2 legend does not appear [duplicate]
  19. set ggplot plots to have same x-axis width and same space between dot plot rows
  20. R – ggplot2 issues with date as character for x-axis
  21. different size facets proportional of x axis on ggplot 2 r
  22. ggplot2 plot area margins?
  23. Changing the order of dodged bars in ggplot2 barplot
  24. ggplot2: Setting geom_bar baseline to 1 instead of zero
  25. Combined plot of ggplot2 (Not in a single Plot), using par() or layout() function? [duplicate]
  26. Plot background colour in gradient
  27. Specify height and width of ggplot graph in Rmarkdown knitr output
  28. The perils of aligning plots in ggplot
  29. How do I loop through column names and make a ggplot scatteplot for each one
  30. How to use superscript in axis labels with ggplot2

Leave a Comment