0222asia.R
rstudio-user
2021-02-22
name <- c("s", "h", "k", "t")
n <- c(1.40, 0.83,0.28,0.36)
barplot(sort(n, decreasing = TRUE), main = "Natural Growth Rate", sub = "by Tinghua", names.arg = name, xlab = "name", ylab = "n", col = c(1:4))
name <- c("s", "h", "k", "t")
n <- c(1.40, 0.83,0.28,0.36)
barplot(sort(n, decreasing = TRUE), main = "Natural Growth Rate", sub = "by Tinghua", names.arg = name, xlab = "name", ylab = "n", col = c(1:4))