0225.R

country <- c("Korea", "Taiwan", "HK", "Singapore")
growth<- c(0.36,0.28,0.83,1.40)
FourAsianTigers <- data.frame(country,growth)
barplot(sort(growth,decreasing = TRUE),
        names.arg =c("singapore", "HK", "Korea", "Taiwan"),
        main = "Four Asian Tigers",
        sub="by ALLEN PAN",
        xlab = "country",
        ylab = "growth",
        col =c("blue","red","green","BLACK"))