library(ggplot2)
p <- ggplot(mapping = aes(x, y)) +
geom_point(data = data.frame(x = 1:5, y = 1:5, facet = "b")) +
geom_point(data = data.frame(x = 1:5, y = 1:5, facet = "a")) +
facet_wrap(vars(facet))
p
p + sequential_layer_facets()
Run the code above in your browser using DataLab