0308.R

nation  <- c("Korea","Taiwan","Hong KONG","Singapore") 
growth <- c(5170,2371,750,570)
data <- data.frame(nation,growth)
data <- data.frame(nation,growth)
data <- data.frame(nation,growth)
barplot(sort(data$growth, decreasing= T),#要畫圖的向量資料
        main = "人口", #大標題
        sub = "by Tim Huang", #次標題
        names.arg =  c("Korea","Taiwan","Hong KONG","Singapore"), #資料名稱
        xlab = "nation", #x軸標籤
        ylab = "growth", #y軸標籤
        col = c(15:100))#使用內建第6至10號顏色