facet_wrap vs facet_grid

library(ggplot2)
library(palmerpenguins)
library(MASS)

#penguin--------------------------------------------------
penguins <- na.omit(penguins)

ggplot(penguins, aes(x = bill_length_mm, bill_depth_mm)) +
  geom_point() +
  facet_wrap(sex~species) +
  theme_bw() +
  ggtitle("Penguin Bill Length and Depth (facet_wrap)")

ggplot(penguins, aes(x = bill_length_mm, bill_depth_mm)) +
  geom_point() +
  facet_grid(sex~species) +
  theme_bw() +
  ggtitle("Penguin Bill Length and Depth (facet_grid)")

#cereal----------------------------------------------------
data("UScereal")

ggplot(UScereal, aes(x = fibre, y = sugars)) +
  geom_point() +
  facet_wrap(vitamins ~ mfr) +
  theme_bw() +
  ggtitle("Cereal Fibre and Sugars (facet_wrap)")

ggplot(UScereal, aes(x = fibre, y = sugars)) +
  geom_point() +
  facet_grid(vitamins ~ mfr) +
  theme_bw() +
  ggtitle("Cereal Fibre and Sugars (facet_grid)")