R tutorial 05 - Table & Bar Plot 表格与棒形图(2)

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

 

1.  Bar chart

result <- matrix(salary,ncol=4,byrow=TRUE)

colnames(result) <- userName

barplot(result, main="Bar chart", 
    xlab="Name",

    ylab="Salary")

2. Table function

2.1 Table
# 返回值是0~1之间
source <- c("A", "A", "B", "A", "C", "B")
results <- table(source)
print(results)

Output result: 
A B C 
3 2 1

2.2 matrix

# 返回值是salary值
userName <- c("Lam Wei Wei", "Zheng Da Shi", "Lin Da You", "Fei Gu Man")
salary <- c(8500, 9800, 12500, 15000)
jobPosition <- c("Staff", "Manger", "BOSS", "CEO")
bonus <- c(2300, 1350, 3285, 1035)

result <- matrix(salary,ncol=4,byrow=TRUE)

colnames(result) <- userName

barplot(result, main="Bar chart", 
    xlab="Name",
    ylab="Salary")

Output result: 

    Lam Wei Wei Zheng Da Shi Lin Da You Fei Gu Man
[1,]       8500          9800        12500        15000