20190319 Assignment - 정아영

boxplot

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

##  [1] 2100 2300 2300 2500 1800 2500 2600 2300 2500 2200

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

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

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

##  [1] 2900 3000 3100 2800 3300 3400 3200 3400 3300 3300

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

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