geom_binomdensity: turn it into a real geom [make facets work]

[DominiqueMakowski]

library(ggplot2)
#> Warning: package 'ggplot2' was built under R version 4.0.5
library(see)

data <- iris[1:100, ]
data$facet <- rep(c("A", "B"), 50)

ggplot(data) +
  geom_binomdensity(data,
                    x = "Sepal.Length",
                    y = "Species",
                    fill = "red",
                    color = NA) +
  facet_grid(~facet)

^{Created on 2021-08-03 by the reprex package (v2.0.0)}

facetting currently don't work 😞