Este estudio analiza las diferencias morfológicas entre tres especies de pingüinos registradas en el archipiélago de Palmer (Antártida) entre 2007-2009.
Se utilizó el conjunto de datos penguins
del paquete
palmerpenguins
, que contiene mediciones de 344 pingüinos de
tres especies diferentes.
penguins_clean %>%
group_by(species) %>%
summarise(
N = n(),
"Peso medio (g)" = mean(body_mass_g),
"Largo pico medio (mm)" = mean(bill_length_mm),
"Profundidad pico (mm)" = mean(bill_depth_mm),
"Longitud aleta (mm)" = mean(flipper_length_mm)
) %>%
kable(digits = 2) %>%
kable_styling(bootstrap_options = "striped", full_width = FALSE)
species | N | Peso medio (g) | Largo pico medio (mm) | Profundidad pico (mm) | Longitud aleta (mm) |
---|---|---|---|---|---|
Adelie | 146 | 3706.16 | 38.82 | 18.35 | 190.10 |
Chinstrap | 68 | 3733.09 | 48.83 | 18.42 | 195.82 |
Gentoo | 119 | 5092.44 | 47.57 | 15.00 | 217.24 |
ggplot(penguins_clean,
aes(x = bill_length_mm,
y = body_mass_g,
color = species,
shape = species)) +
geom_point(alpha = 0.7, size = 3) +
geom_smooth(method = "lm", se = FALSE) +
labs(title = "Relación entre largo del pico y peso corporal",
subtitle = "Por especie de pingüino",
x = "Largo del pico (mm)",
y = "Peso corporal (g)",
color = "Especie",
shape = "Especie") +
theme_minimal() +
scale_color_manual(values = c("darkorange", "purple", "cyan4"))
# Discusión
Los resultados muestran diferencias significativas entre las tres especies de pingüinos:
Estas diferencias morfológicas probablemente reflejan adaptaciones a diferentes nichos ecológicos y estrategias de alimentación.