---

Цель работы

Исследовать различия в биометрических характеристиках трёх видов пингвинов.

penguins %>%
  drop_na() %>%
  ggplot(aes(x = bill_length_mm, y = bill_depth_mm, color = species)) +
  geom_point(aes(shape = species), alpha = 0.7, size = 2) +
  geom_smooth(method = "lm", se = FALSE) +
  scale_color_viridis(discrete = TRUE) +
  labs(
    title = "Соотношение длины и глубины клюва",
    x = "Длина клюва (мм)",
    y = "Глубина клюва (мм)",
    color = "Вид",
    shape = "Вид"
  ) +
  theme_minimal() +
  theme(legend.position = "bottom")

## `geom_smooth()` using formula = 'y ~ x'

Вывод

На графике видно, что у пингвинов Gentoo клюв длиннее, но не такой глубокий, как у Adelie. Chinstrap занимают промежуточное положение. Это может быть связано с особенностями питания. title: ‘Пингвины: сравнение видов’ author: “Люся” date: “2026-03-09” output: html_document