scatterplot

R code of the ggplot2 example

library(ggplot2)
library(dplyr)
library(palmerpenguins)

centres <- penguins |>
  group_by(species) |>
  summarise(x = mean(bill_length_mm, na.rm = TRUE), y = mean(bill_depth_mm, na.rm = TRUE))

p <- ggplot(penguins, aes(x = bill_length_mm, y = bill_depth_mm, colour = species)) +
  geom_point(size = 1.6, alpha = 0.6, na.rm = TRUE) +
  geom_label(data = centres, aes(x = x, y = y, label = species), size = 3.5,
             fontface = "bold", fill = "white", border.colour = NA) +
  scale_x_continuous(labels = lex_number, breaks = lex_break_breaks, expand = lex_break_expand) +
  scale_y_continuous(labels = lex_number, breaks = lex_break_breaks, expand = lex_break_expand) +
  labs(title = "Bill shape sets the three species apart",
       x = "Bill length (mm)", y = "Bill depth (mm)",
       caption = "Data: palmerpenguins (Horst, Hill & Gorman 2020)") +
  theme_lex_viz(break_not_zero = "xy") +
  theme(legend.position = "none")