Bug sometimes with polygon geoms, filtered factors, drop = FALSE, and width = NULL

[davidhodge931]

Bugs only sometimes with polygon geoms, filtered factors, and drop = FALSE.

Always is fixed when width is not NULL.

Using ggplot2 3.4.3 (and also tested in 3.4.2)

library(tidyverse)

#filtered dataset
d <- diamonds |>
  filter(color %in% c("D", "H")) |>
  filter(cut %in% c("Ideal", "Good")) |>
  filter(clarity %in% c("VS1", "VS2"))

#example A
#doesn't works
d |>
  count(cut) |>
  ggplot() +
  geom_col(aes(x = n, y = cut)) +
  scale_y_discrete(drop = FALSE)

#works
d |>
  count(cut) |>
  ggplot() +
  geom_col(aes(x = n, y = cut), width = 0.9) +
  scale_y_discrete(drop = FALSE)

#works
d |>
  count(cut) |>
  ggplot() +
  geom_point(aes(x = n, y = cut)) +
  scale_y_discrete(drop = FALSE)

#doesn't work
d |>
  ggplot() +
  geom_violin(aes(x = price, y = cut)) +
  scale_y_discrete(drop = FALSE)

#works
d |>
  ggplot() +
  geom_violin(aes(x = price, y = cut), width = 0.9) +
  scale_y_discrete(drop = FALSE)

#example B
#doesn't works
d |>
  count(color) |>
  ggplot() +
  geom_col(aes(x = n, y = color)) +
  scale_y_discrete(drop = FALSE)

#example C
#works
d |>
  count(clarity) |>
  ggplot() +
  geom_col(aes(x = n, y = clarity)) +
  scale_y_discrete(drop = FALSE)

^{Created on 2023-08-23 with reprex v2.0.2}

[teunbrand]

Some of these seem to already work in the development version of ggplot2. Only the violin case seems broken at the moment.