Four-Asian-Tigers_barplot.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("Korea", "Taiwan", "Hong kong", "Singapore")
growth <- c(0.36, 0.28, 0.83, 1.40)
data <- data.frame(nation, growth)
barplot(sort(data$growth, decreasing = TRUE), 
        main = "Four Asian Tigers", 
        sub = "by Peter Liu", 
        names.arg = c("Singapore", "Hong kong", "Korea", "Taiwan"), 
        xlab = "Nations", 
        ylab = "Natural Population Growth",
        col = c(11:14))