``` r library(tidyverse) library(palmerpenguins) penguins |> ggplot() + geom_point(aes( x = bill_depth_mm, y = body_mass_g, col = sex )) + scale_color_manual(values = c("red", "blue")) #> Warning: Removed 2 rows containing missing values (`geom_point()`). ``` <!-- --> ``` r penguins |> ggplot() + geom_point(aes( x = bill_depth_mm, y = body_mass_g, col = sex )) + scale_color_manual(values = c("male" = "red", "female" = "blue")) #> Warning: Removed 2 rows containing missing values (`geom_point()`). ``` <!-- --> <sup>Created on 2023-03-03 with [reprex v2.0.2](https://reprex.tidyverse.org)</sup>