NATION <- c("KOREA", "TAIWAN", "HONG KONG", "SINGAOORE")
GROWTH <- c(0.36,0.28,0.83,1.40)
courtry <- data.frame(NATION,GROWTH)
barplot(sort(courtry$GROWTH,decreasing = TRUE), names.arg = courtry$NATION,xlab = "nation",ylab = "natural population growth",col =c("green","red","blue","yellow"),main = "Four Asian Tigers", sub = "by Willy ")