I have a function to make multi-panel plots using ggplot2:
plot_facet <- function(df, var.x, var.y, var.facet) { p <- df %>% ggplot(aes(x = {{