ggplot, drawing line between points across facets

by

Updated to ggplot2 V3.0.0

You could do this, but turning clip off might have unwanted consequences,

library(ggplot2)
df <- data.frame(y=c(1,2,3),x=1,Set=LETTERS[1:3])
p <- ggplot(df,aes(x,y)) + 
  theme_bw() + theme(legend.position=c(.01,.99),legend.justification=c(0,1)) + 
  geom_point(aes(fill=Set),color="black",shape=21,size=3) + 
  facet_grid(~Set) + 
  xlim(1,5) 

gb <- ggplot_build(p)
g <- ggplot_gtable(gb)

library(gtable)
library(grid)
# ggplot2 doesn't use native units in data space
# instead, the data is rescaled to npc, i.e from 0 to 1
# so we need to use the build info to convert from data to [0,1]
ranges <- gb$layout$panel_params
data2npc <- function(x, range) scales::rescale(c(range, x), c(0,1))[-c(1,2)]

start <- c(data2npc(1, ranges[[1]][["x.range"]]), 
           data2npc(1, ranges[[1]][["y.range"]]))

end <- c(data2npc(1, ranges[[3]][["x.range"]]), 
           data2npc(3, ranges[[3]][["y.range"]]))
# starting position in the first panel
g <- gtable_add_grob(g, moveToGrob(start[1],start[2]), 
                     t = 8, l = 5)
# draw line to end position in last panel
g <- gtable_add_grob(g, lineToGrob(end[1],end[2]), 
                     t = 8, l = 9, z=Inf)
# turn clip off to see the line across panels
g$layout$clip <- "off"
grid.newpage()
grid.draw(g)

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. Add a common Legend for combined ggplots
  3. Stacked Bar Plot in R
  4. Ignore outliers in ggplot2 boxplot
  5. ggplot legends – change labels, order and title
  6. How to get a vertical geom_vline to an x-axis of class date?
  7. Split time series data into time intervals (say an hour) and then plot the count
  8. Adding table within the plotting region of a ggplot in r
  9. How to produce stacked bars within grouped barchart in R [duplicate]
  10. Alignment of numbers on the individual bars
  11. Stacked barchart, independent fill order for each stack
  12. How to position strip labels in facet_wrap like in facet_grid
  13. How to conditionally highlight points in ggplot2 facet plots – mapping color to column
  14. Making a stacked area plot using ggplot2
  15. Cowplot made ggplot2 theme disappear / How to see current ggplot2 theme, and restore the default?
  16. ggplot2: Adding secondary transformed x-axis on top of plot
  17. How to make dodge in geom_bar agree with dodge in geom_errorbar, geom_point
  18. Reasons that ggplot2 legend does not appear [duplicate]
  19. Plot a function with ggplot, equivalent of curve()
  20. set only lower bound of a limit for ggplot
  21. set ggplot plots to have same x-axis width and same space between dot plot rows
  22. different size facets proportional of x axis on ggplot 2 r
  23. ggplot2 plot area margins?
  24. Changing the order of dodged bars in ggplot2 barplot
  25. How to deal with “data of class uneval” error from ggplot2?
  26. Issue with ggplot2, geom_bar, and position=”dodge”: stacked has correct y values, dodged does not
  27. stat_contour not able to generate contour lines
  28. Add x and y axis to all facet_wrap
  29. How to change positions of x and y axis in ggplot2
  30. R Plot Filled Longitude-Latitude Grid Cells on Map

Leave a Comment