Slide 9
Slide 9 text
顔グラフ
# 顔グラフ
library(tidyverse)
library(aplpack)
palmerpenguins::penguins |>
group_by(species) |>
summarise(
bill_length_mm = mean(bill_length_mm, na.rm = TRUE),
bill_depth_mm = mean(bill_depth_mm, na.rm = TRUE),
flipper_length_mm = mean(flipper_length_mm, na.rm = TRUE),
body_mass_g = mean(body_mass_g, na.rm = TRUE)
) |>
select(!species) |>
faces(
labels=c("アデリーペンギン", "ヒゲペンギン", "ジェンツーペンギン"),
main="ペンギンの顔"
)
青木先生(元群馬大)作
成の関数もある。
http://aoki2.si.gunma-u.
ac.jp/R/face.html