ふぉっふぉっふぉっ、みんな今年も良い子にしてたかな? 特にプレゼントはありません。 メリークリスマス! 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) mea…