country <- c("Korea", "Taiwan", " Hong Kong", "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", " Hong Kong", "Korea", "Taiwan"),
        main = "Four Asian Tigers",
        sub="by harry",
        xlab = "country",
        ylab = "growth",
        col =c("green","purple","red","gold"))