Rでサンタクロース

R

ふぉっふぉっふぉっ、みんな今年も良い子にしてたかな？
特にプレゼントはありません。
メリークリスマス！

library(conflicted)
library(tidyverse)
library(aplpack)
library(palmerpenguins)

pen_mean <- penguins |>
  select(bill_length_mm, bill_depth_mm, flipper_length_mm, body_mass_g, species, sex) |>
  drop_na() |>
  summarise(across(where(is.numeric), \(x) mean(x)), .by = c(species, sex)) |>
  arrange(species, sex)

faces(
  pen_mean |> select(bill_length_mm, bill_depth_mm, flipper_length_mm, body_mass_g),
  labels = paste0(pen_mean$species,"_",pen_mean$sex),
  fill = TRUE,
  face.type = 2,
  ncol.plot = 2,
  main = "南極パーマー基地のサンタクロースたち"
  )
南極パーマー基地のサンタクロースたち

この記事はR言語 Advent Calendar 2023の24日目の記事です。
qiita.com