Install the palmerpenguins package if you do not have it

#install.packages(“palmerpenguins”)

install.packages(“palmer penguins”) library(tidyverse) library(palmerpenguins) #to load the penguins dataset

#load the dataset penguins <- palmerpenguins::penguins

data(“penguins”) # to see it in the environment

Count penguins by species

penguins |> count(species)

Count penguins by species and island

penguins |> count(species, island)

Filter penguins by species (Adelie)

penguins|> filter(species == “Adelie”)

Count Adelie penguins by island and sex

penguins |> count(island, sex)

Select specific columns (species, island, flipper_length_mm))

penguins |> select(species,island,flipper_length_mm)

Mutate new columns for flipper length in cm and inches (cm = mm/10)(in = mm/25.4)

penguins |> mutate( flipper_length_cm = flipper_length_mm / 10, flipper_length_in = flipper_length_mm / 25.4 )

Group penguins by species

penguins |> group_by(species)

Summarize penguin data by species (basic)

penguins |> group_by(species) |> summarize( avg_bill_length = mean(bill_length_mm, na.rm = TRUE), avg_flipper_length = mean(flipper_length_mm, na.rm = TRUE), avg_body_mass = mean(body_mass_g, na.rm = TRUE))

Summarize penguin data by species (additional statistics)

penguins |> group_by(species) |> summarize( mean_body_mass = mean(body_mass_g, na.rm = TRUE), sd_body_mass = sd(body_mass_g, na.rm = TRUE), min_body_mass = min(body_mass_g, na.rm = TRUE), max_body_mass = max(body_mass_g, na.rm = TRUE), n = n() )

Summarize penguin data by species (handling missing values)

penguins |> group_by(species) |> summarize( mean_body_mass = mean(body_mass_g, na.rm = TRUE), mean_flipper_len = mean(flipper_length_mm, na.rm = TRUE), n = n() )