20190319 Assignment - 김다정

boxplot

bs <- round(runif(10, 1800, 2600), -2)
bs

##  [1] 2200 2600 2400 2200 2500 2000 2100 2100 2300 2600

ms <- round(runif(10, 2000, 2800), -2)
ms

##  [1] 2600 2100 2600 2200 2700 2100 2600 2800 2400 2700

ph <- round(runif(10, 2800, 3500), -2)
ph

##  [1] 2900 3200 3100 2800 2800 3200 3100 2900 2900 3500

boxplot(bs, ms, ph, horizontal = T)

salary <- data.frame(bs, ms, ph)
boxplot(salary[c("bs", "ms", "ph")], xlab="연봉", ylab="학위", main="학위별 임금", horizontal=TRUE)