facet_wrap2 adding wrong x axis labels about ggh4x HOT 3 CLOSED

df <- tibble::tribble(
  ~sample,             ~pathogen,       ~n, ~detected_by_Illumina_app,
  "Exuberant Bovid",      "Yellow Cricket",    1599L,                      TRUE,
  "Prickly Jay",   "Cloudy Chimpanzee",     864L,                     FALSE,
  "Wandering Spider",     "Quarrelsome Fox",       6L,                     FALSE,
  "Giddy Nightingale",     "Aromatic Ocelot",       2L,                     FALSE,
  "Divergent Mastodon",   "Woebegone Crawdad",    4789L,                      TRUE,
  "Ad Vaquita",      "Yellow Cricket",     637L,                      TRUE,
  "Wandering Spider",         "Pricey Pony",       3L,                     FALSE,
  "Unwieldy Weasel",   "Cloudy Chimpanzee",       1L,                     FALSE,
  "Unequal Bee",   "Woebegone Crawdad",     588L,                      TRUE,
  "Overt Pony",      "Yellow Cricket",    2258L,                      TRUE,
  "Divergent Mastodon",       "Brawny Numbat",   13605L,                     FALSE,
  "Seemly Leopard",       "Physical Mite",    1767L,                      TRUE,
  "Kindly Snipe",         "Pricey Pony",       9L,                     FALSE,
  "Lowly Bovid", "Complete Salamander",     310L,                      TRUE,
  "Humorous Mastodon",      "Steadfast Mole",      84L,                      TRUE,
  "Unequal Bee",        "Spiky Dragon",     130L,                      TRUE,
  "Unwieldy Weasel",     "Decorous Muskox",    8234L,                     FALSE,
  "Perpetual Wolf",      "Steadfast Mole",      81L,                      TRUE,
  "Standing Basilisk",      "Yellow Cricket",     834L,                     FALSE,
  "Prickly Jay",          "Cagey Zebu",     169L,                      TRUE,
  "Pumped Ostrich",       "Brawny Numbat",      21L,                     FALSE,
  "Unequal Bee",      "Shocking Raven",       1L,                     FALSE,
  "Perpetual Wolf",     "Decorous Muskox",   44287L,                     FALSE,
  "Standing Basilisk",     "Quixotic Wombat",      52L,                     FALSE,
  "Annoying Kiwi",       "Brawny Numbat",     450L,                     FALSE,
  "Unwieldy Weasel",  "Dysfunctional Titi",       2L,                     FALSE,
  "Flowery Booby", "Complete Salamander",   17245L,                      TRUE,
  "Strange Cuckoo",      "Yellow Cricket",     236L,                      TRUE,
  "Exuberant Bovid",         "Misty Swift",       1L,                     FALSE,
  "Historical Minnow",     "Decorous Muskox", 2152963L,                      TRUE,
  "Stimulating Kangaroo",        "Spiky Dragon",       3L,                     FALSE,
  "Agonizing Raccoon",     "Decorous Muskox",   24953L,                     FALSE,
  "Scattered Caribou",      "Steadfast Mole",     194L,                      TRUE,
  "Seemly Leopard",     "Quixotic Wombat",      12L,                     FALSE,
  "Elegant Human",          "Cagey Zebu",       5L,                     FALSE,
  "Wild Egret",     "Quixotic Wombat",       1L,                     FALSE
)

ggplot(df, aes(x = sample, y = n)) +
  geom_col() +
  theme(axis.text.x = element_text(angle = 30, hjust = 1, vjust = 1), legend.title = element_text()) +
  ggh4x::facet_wrap2(vars(pathogen), scales = "free")

ggplot(df, aes(x = sample, y = n)) +
  geom_col() +
  theme(axis.text.x = element_text(angle = 30, hjust = 1, vjust = 1), legend.title = element_text()) +
  facet_wrap(vars(pathogen), scales = "free")