library(tidyverse)
# サンプルデータを作成
students <- tibble(
id = 1:10,
name = c("田中", "鈴木", "佐藤", "山田", "伊藤",
"渡辺", "中村", "小林", "加藤", "吉田"),
grade = c(3, 2, 4, 3, 2, 4, 3, 2, 4, 3),
score = c(78, 82, 91, 65, 74, 88, 70, 95, 83, 77),
group = c("A", "B", "A", "B", "A", "B", "A", "B", "A", "B")
)
students# A tibble: 10 × 5
id name grade score group
<int> <chr> <dbl> <dbl> <chr>
1 1 田中 3 78 A
2 2 鈴木 2 82 B
3 3 佐藤 4 91 A
4 4 山田 3 65 B
5 5 伊藤 2 74 A
6 6 渡辺 4 88 B
7 7 中村 3 70 A
8 8 小林 2 95 B
9 9 加藤 4 83 A
10 10 吉田 3 77 B