kk匡的日記&學習筆記

1. Matrices

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)

MixInfo = c(salary, jobPosition, bonus)
result <- matrix(MixInfo, ncol=6, byrow=TRUE)
colnames(result) <- userName
rownames(result) <- c("salary", "jobPosition", "bonus")
result

            Lam Wei Wei Zheng Da Shi Lin Da You Fei Gu Man Chen Kuang
salary      "8500"      "9800"       "12500"    "15000"    "8700"    
jobPosition "Staff"     "Manger"     "BOSS"     "CEO"      "Staff"   
bonus       "2300"      "1350"       "3285"     "1035"     "3285"

            Wong wei yun
salary      "7500"      
jobPosition "Staff"     
bonus       "1035"