１．データーの準備 生徒NO <- seq(1, 10, 1) kubun1 <- c(1,1,1,2,2,2,2,3,3,3) kubun2 <- c("a","a","a","b","b","b","b","c","c","c") 国語 <- c(96,91,89,78,67,63,53,38,31,39) 英語 <- c(96,91,89,78,67,53,63,36,24,32) 数学 <- c(67,68,69,58,61,55,…