p <- ggplot(mpg, aes(displ, cty)) + geom_point()
p + facet_ragged_rows(vars(drv), vars(cyl))
p + facet_ragged_cols(vars(cyl), vars(drv))
# \donttest{
# Allow axes to vary between panels
p + facet_ragged_rows(vars(drv), vars(cyl), scales = "free_y")
p + facet_ragged_rows(vars(drv), vars(cyl), scales = "free")
# Change strip label positions
p + facet_ragged_rows(vars(drv), vars(cyl), switch = "y")
p + facet_ragged_rows(vars(drv), vars(cyl), switch = "both")
# Draw strips between panels
p + facet_ragged_rows(vars(drv), vars(cyl), strips = "all")
# Draw axes between panels
p + facet_ragged_rows(vars(drv), vars(cyl), axes = "all_x")
p + facet_ragged_rows(vars(drv), vars(cyl), axes = "all")
# }
# Change panel alignment
p + facet_ragged_rows(vars(drv), vars(cyl), align = "end")
Run the code above in your browser using DataLab