p1 <- ggplot(diamonds2, aes(x = cut, price)) + geom_boxplot() p2 <- ggplot(diamonds2, aes(x = cut, price, fill = clarity)) + geom_boxplot() cowplot::plot_grid(p1, p2, nrow = 1)