r20190319

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

ms <-round(runif(10, 2400, 3000),-1)

pd <-round(runif(10, 2800, 3800), -1)

bs

ms

pd

boxplot(ms)

boxplot(ms,pd, col=“bisque” )

boxplot(bs,ms,pd, col=“bisque”, horizontal = TRUE )

boxplot(bs,ms,pd, col=“bisque”, horizontal = TRUE, xlab = “연봉”,ylab = “학위”)

bs <-round(runif(10, 1800, 2600),-1)
ms <-round(runif(10, 2400, 3000),-1)
pd <-round(runif(10, 2800, 3800), -1)

boxplot(ms)

boxplot(ms,pd, col="bisque" )

boxplot(bs,ms,pd, col="bisque", horizontal = TRUE )

boxplot(bs,ms,pd, col="bisque", horizontal = TRUE, xlab = "연봉",ylab = "학위")