Untitled

age <- c(50,55,63,55,67,43,52)

high <- c(150,160,170,175,150,153,165)

mean(age)    #平均數

## [1] 55

Q1 <- quantile(age, 1 / 4) 
Q2 <- quantile(age, 2 / 4) 
Q3 <- quantile(age, 3 / 4) 

median(age)

## [1] 55

Q1

## 25% 
##  51

Q2

## 50% 
##  55

Q3

## 75% 
##  59

plot(age)

mEng <- c(80,78,63,55,97,43,86,69)
fEng <- c(96,94,99,92,97,86,82,89)
mJp  <- c(84,77,95,45,87,57,77,79)
fJp  <- c(92,90,93,97,95,90,91,83)





hist(fEng,
     main ="Histogram of English scores",
     xlab ="Female English scores",
     ylab ="Frequency",
     col  ="blue")

x<- c(1,2,2,3)
labels <- c("80-85","85-90","90-95","95-100")

pie(x,labels,main ="女生英文成績分布", col=heat.colors(length(x)))