Default labs where geom when the aesthetic is in both the ggplot and geom_* call about ggplot2 HOT 6 CLOSED

devtools::load_all("~/packages/ggplot2")
#> ℹ Loading ggplot2

palmerpenguins::penguins |> 
  ggplot(aes(x = flipper_length_mm, y = body_mass_g, colour = sex)) +
  geom_point(aes(x = bill_depth_mm, y = bill_length_mm, colour = species))
#> Warning: Removed 2 rows containing missing values or values outside the scale range
#> (`geom_point()`).

devtools::load_all("~/GitHub/ggplot2/")
#> ℹ Loading ggplot2

library(gghighlight)

# The original labels should be kept
ggplot(mtcars, aes(wt, mpg, colour = factor(cyl))) +
  geom_point() +
  gghighlight(100 < disp, disp <= 300, use_group_by = FALSE)

library(gghighlight)
#> Loading required package: ggplot2

# The original labels should be kept
p <- ggplot(mtcars, aes(wt, mpg, colour = factor(cyl))) +
  geom_point() +
  gghighlight(100 < disp, disp <= 300, use_group_by = FALSE)

p$layers[[1]]$mapping
#> Aesthetic mapping: 
#> * `x`      -> `highlight..........1`
#> * `y`      -> `highlight..........2`
#> * `colour` -> `highlight..........3`
#> * `fill`   -> NULL
#> * `group`  -> `highlight..........group`
colnames(p$layers[[1]]$data)
#> [1] "highlight..........1"     "highlight..........2"    
#> [3] "highlight..........3"     "highlight..........group"

library(gghighlight)
#> Loading required package: ggplot2

p <- ggplot(mtcars, aes(wt, mpg, colour = factor(cyl))) +
  geom_point() +
  gghighlight(100 < disp, disp <= 300, use_group_by = FALSE)

p$mapping
#> Aesthetic mapping: 
#> * `x`      -> `wt`
#> * `y`      -> `mpg`
#> * `colour` -> `factor(cyl)`