lagexample.R

library(tidyverse)
lagshow <- 
	data.frame(x= rep(1:10, 14),
				y = rep(1:10, 14),
				color = rep(rep(c("A", "B"), each = 10), 7),
				lag = rep(-3:3, each=20)
				) %>%
	mutate(x = if_else(color == "A", x-lag, x))
				
ggplot(lagshow, aes(x = x, y = y, colour = color, shape = color)) +
	geom_point() +
	geom_line() + 
	facet_grid(.~lag)