Visualization of R language penguins dataset

Macro package palmerpenguins::penguins get data , A large number of penguin signs recorded , The features are as follows ： species, island, bill_length_mm,bill_depth_mm, flipper_length_mm, body_mass_g,sex,year

Distribution of beak peak length of each type of penguin

library(palmerpenguins)
penguins %>%
  ggplot(aes(x = bill_length_mm)) +
  geom_density() +
  facet_wrap(vars(species), scales = "free")

The distribution of the beak peak length of each type of penguin is like a normal distribution

Distribution of beak peak length of each type of penguin （ Gender ）

penguins %>%
  ggplot(aes(x = bill_length_mm)) +
  geom_boxplot(aes(fill = sex)) +
  facet_wrap(vars(species), scales = "free")

The beak peak of male penguins is longer than that of female penguins

penguins %>%
  ggplot(aes(
    x = bill_length_mm, y = bill_depth_mm,
    shape = species, colo