histogramme

Code R de l'exemple ggplot2

library(ggplot2)
library(palmerpenguins)

p <- ggplot(penguins, aes(x = flipper_length_mm)) +
  geom_histogram(binwidth = 2, fill = "#7d7d7d", colour = "white", na.rm = TRUE) +
  scale_x_continuous(labels = lex_number, breaks = lex_break_breaks, expand = lex_break_expand) +
  scale_y_continuous(labels = lex_number, expand = expansion(mult = c(0, 0.05))) +
  labs(title = "Flipper length has two peaks",
       subtitle = "Adelie (median 190 mm) and Chinstrap (196 mm) make the first peak, Gentoo (216 mm) the second; 2 mm bins",
       x = "Flipper length (mm)", y = "Number of penguins",
       caption = "Data: palmerpenguins (Horst, Hill & Gorman 2020)") +
  theme_lex_viz(grid = "y", break_not_zero = "x")