``` r library(tidyverse) p <- palmerpenguins::penguins |> ggplot() + geom_point( aes(x = flipper_length_mm, y = body_mass_g, colour = sex, shape = sex), ) p #> Warning: Removed 11 rows containing missing values or values outside the scale range #> (`geom_point()`). ``` <!-- --> ``` r p + scale_shape_discrete(na.value = 78) #> Warning: Removed 2 rows containing missing values or values outside the scale range #> (`geom_point()`). ``` <!-- --> <sup>Created on 2025-09-22 with [reprex v2.1.1](https://reprex.tidyverse.org)</sup>