3.5.1

ggplot(data = mpg) +
      geom_point(mapping = aes(x = drv, y = displ)) +
      facet_wrap(~hwy, nrow = 2)