kk匡的日記&學習筆記

/*
散点圖
月薪和花红的关系。
*/

1. Scatterplots

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

attach(mtcars)
plot(salary, bonus, main="Scatterplot Example", 
      xlab="Salary", ylab="Bonus", pch=19)

2. Scatterplots abline

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

plot(salary, bonus, main="Scatterplot Example", 
      xlab="Salary", ylab="Bonus", pch=19)
      
abline(lm(bonus~salary), col="red")
lines(lowess(bonus~salary), col="blue")

      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