Untitled

me <- c(80,78,63,55,97,43,86,69)
fe <- c(96,94,99,92,97,86,82,89)
mj <- c(84,77,95,45,87,57,77,79)
fj <- c(92,90,93,97,95,90,91,83)

mean(me)

## [1] 71.375

## [1] 71.375
median(fe)

## [1] 93

## [1] 93
sd(mj)

## [1] 16.35706

## [1] 16.35706
var(fj)

## [1] 17.41071

## [1] 17.41071
mej <-c(75)
mee <-(95
       )
plot(me, mj,
     pch = 19,
     col ="red",
     main="score",
     xlab="man English",
     ylab="man japanese")
points(mean(me),mean(mj),pch = 8, col ="purple" , cex = 3)
points(fe,fj,pch =9,col ="yellow",cex =3)

legend("bottomrigh",
       pch = 19,
       col =c("red","yellow","blue"),
legend =c("male","female","mygrade")) 


points(mej,mee,pch =10 , col = "blue" , cex = 4)

hist(fe,
    main="histogram of English score",
    xlab="femle English score",
    ylab="Frequency",
    col="lightyellow")

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

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