0225.R

nation <- c("Korea", "Taiwan", "Hong Kong", "Singapore")
growth<- c(0.36,0.28,0.83,1.40)
FourAsianTigers <- data.frame(nation,growth)
barplot(sort(growth,decreasing = TRUE),
        names.arg =c("singapore", "Hong Kong", "Korea", "Taiwan"),
        main = "Four Asian Tigers",
        sub="by Pei Yu Liu",
        xlab = "nation",
        ylab = "growth",
        col =c("blue","pink","red","yellow"))