0308.R

# 亞洲四小龍(Four Asian Tigers)
# https://zh.wikipedia.org/wiki/%E4%BA%9A%E6%B4%B2%E5%9B%9B%E5%B0%8F%E9%BE%99
nation <- c("Singapore", "Honk kong", "Korea", "Taiwan")
growth <-c(1.40,    0.83,   0.36, 0.28)
data <- data.frame(nation, growth)
barplot(sort(data$growth, decreasing = TRUE ),
        main = "Four Asian Tigers" , 
        sub ="by JOCELYN"  , 
        names.arg =  c("Singapore", "Honk kong", "Korea", "Taiwan"), 
        xlab ="Nations" , 
        ylab ="Natural Population Growth"  , 
        col = c(11:14))