kk匡的日記&學習筆記

/*
Boxplots、箱形图
月薪和花红的关系。
*/

1. Boxplots

userName <- c("Lam Wei Wei", "Zheng Da Shi", "Lin Da You", "Fei Gu Man", "Chen Kuang", "Wong wei yun")
salary <- c(8500, 9800, 12500, 15000, 8700, 7500)
jobPosition <- c("Staff", "Manger", "BOSS", "CEO", "Staff", "Staff")
bonus <- c(2300, 1350, 3285, 1035, 3285, 1035)

result <- data.frame(userName, salary, jobPosition, bonus)
result

boxplot(salary, bonus, data=result, main="Car Milage Data", 
      xlab="salary, bonus", 
      ylab="The amount of salary & bonus")

Output result: 

      userName salary jobPosition bonus
1  Lam Wei Wei   8500       Staff  2300
2 Zheng Da Shi   9800      Manger  1350
3   Lin Da You  12500        BOSS  3285
4   Fei Gu Man  15000         CEO  1035
5   Chen Kuang   8700       Staff  3285
6 Wong wei yun   7500       Staff  1035