まず、bigclass2.csvをRで読み込みます。
class <- read.csv("bigclass2.csv")
男子と女子のデータをclassから抽出し、それぞれclass_male, class_femaleに代入します。
class_male <- subset(class,性別=="M")
class_female <- subset(class,性別=="F")
class_maleの内容を表示してみます。
class_male
名前 年齢 性別 身長 体重
6 TIM 12 M 60 84
7 JAMES 12 M 61 128
8 ROBERT 12 M 51 79
12 JOHN 13 M 65 98
13 JOE 13 M 63 105
14 MICHAEL 13 M 58 95
男子の身長のヒストグラムと箱ひげ図を表示します。
par(mfrow=c(2,1))
boxplot(class_male$身長,horizontal=T,main="男子身長の箱ひげ図",xlab="身長")
hist(class_male$身長,main="男子身長のヒストグラム",xlab="身長")
同様に女子についても表示してみます。
par(mfrow=c(2,1))
boxplot(class_female$身長,horizontal=T,main="女子身長の箱ひげ図",xlab="身長")
hist(class_female$身長,main="女子身長のヒストグラム",xlab="身長")
基本統計量も見てみましょう。
mean(class_male$身長)
[1] 63.90909
mean(class_female$身長)
[1] 60.88889
sd(class_male$身長)
[1] 4.308453
sd(class_female$身長)
[1] 3.61189
これより男性の身長の方が女性の身長に比べ平均身長が高く、ばらつきも大きいことが分かります。

コメントする