Untitled

成績對於讀書時間

Grades and Study time (minutes) relationship chart

g <- c(40,50,65,59,59,73,77,67,70,95)
s <- c(10,20,50,50,15,30,15,30,10,60)

mean(g)

## [1] 65.5

median(g)

## [1] 66

min(g)

## [1] 40

max(g)

## [1] 95

as.numeric(names(table(g)))[which.max(table(g))] 

## [1] 59

sd(g)

## [1] 15.11622

var(g)

## [1] 228.5

mean(s)

## [1] 29

median(s)

## [1] 25

min(s)

## [1] 10

max(s)

## [1] 60

as.numeric(names(table(s)))[which.max(table(s))]

## [1] 10

sd(s)

## [1] 18.37873

var(s)

## [1] 337.7778

plot(g,s,
     pch = 8,
     col = "darkorchid4",
     main = "Grades v Study Time",
     xlab = "Grades",
     ylab = "Study Time （minutes)",)

hist(g,
     pch = 8,
     col = "darkorchid4",
     main = "Grades Histogram",
     xlab = "Grades",)