facet_labels_bottom.R

library(tidyverse)
library(scales)
data(diamonds)

diamonds %>% 
  filter(str_detect(cut, "Fair|Ideal")) %>% 
  ggplot(aes(price, carat)) +
  geom_point(color = "skyblue", alpha = 0.5) +
  facet_wrap(~cut, strip.position = "bottom") + 
  scale_x_continuous(labels = comma) +
  labs(x = "Price", y = "Carat", 
       title = "Diamond Carat and Price for Worst and Best Cut", 
       subtitle = "Fair cut has fewer data points, more variation than ideal cut") +
  theme_minimal() +
  theme(strip.background = element_blank(),
        strip.placement = "outside")

## https://github.com/tidyverse/ggplot2/issues/2622