Секрет
1 + 1[1] 2
Для того чтобы это узнать мы будем изучать засекреченную ссылку palmerpenguins Ее достали наши специалисты из закрытых архивов ЦРУ
Пингвины вообще прикольные, но
Издавна пингвины являются: милыми - смешными - добрыми, но ТАК ЛИ ЭТО?
Вот что Савва смог узнать о них на самом деле:
Вопрос сложный, зависит от региона. Но у них точно есть индексация, а у Саввы ее кстати нет (не будем о наболевшем)
Add an ID starting with #tip- to reference a tip.
| Переменная | Значение |
|---|---|
species |
вид пингвина |
island |
остров, где задержан |
bill_len |
длина клюва, мм |
bill_dep |
глубина клюва, мм |
flipper_len |
длина плавника, мм |
body_mass |
масса тела, г |
sex |
пол |
year |
год наблюдения |
1 + 1[1] 2
library(tidyverse)
library(palmerpenguins)penguins_raw <- penguins
penguinsВ исходнике 344 строк
Ниже показан график с типичными видами пингвинов под которые разведчики любят шифроваться и сколько их задержано по всему миру
species_count <- penguins_raw |>
count(species)
species_count |>
ggplot(aes(x = species, y = n, fill = species)) +
geom_col(width = 0.6) +
geom_text(aes(label = n), vjust = -0.5, size = 4) +
scale_fill_manual(values = c(
"Adelie" = "#2c3e50",
"Chinstrap" = "#c0392b",
"Gentoo" = "#27ae60"
)) +
labs(
title = "Сколько пингвинов каждого вида задержано",
subtitle = "Никто не ушёл незамеченным",
x = NULL, y = "Количество особей", fill = "Вид"
) +
theme_minimal(base_size = 13)palmerpenguins.
Если автор исследования не будет подавать признаков жизни, то за ним пришли ОНИ…