Population of Tawi-Tawi from 1903 to 2010

[This article was first published on Alstat R Blog, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

R Codes

library(ggplot2)
library(colorRamps)

TawiTawiPop <- c(17000, 45000, 46000, 59000, 79000, 110000, 143000, 195000, 228204,
                 250718, 322317, 450346, 366550)
YearNames <- c("1903", "1918", "1939", "1948", "1960", "1970", "1975", "1980", "1990",
               "1995", "2000", "2007", "2010")

qplot(YearNames, TawiTawiPop, 
      xlab = expression(bold("Censal Year")), 
      ylab = expression(bold("Population")), 
      geom = "bar",
      stat = "identity", colour = I("red"), 
      fill = matlab.like2(13), ylim = c(0, 520000)) + theme_bw() + 
        opts(
          title = expression(bold("Tawi-Tawi Population from 1903 to 2010")),
          plot.title = theme_text(size = 18, colour = "darkblue"),
          legend.position = "none",
          panel.border = theme_rect(linetype = "dashed", colour = "red"),
          plot.title = theme_text(size = 18, colour = "darkblue")) +
            geom_text(aes(label = TawiTawiPop, angle = 90, hjust = -0.1), size = 4)

To leave a comment for the author, please follow the link and comment on their blog: Alstat R Blog.

R-bloggers.com offers daily e-mail updates about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

Never miss an update!
Subscribe to R-bloggers to receive
e-mails with the latest R posts.
(You will not see this message again.)

Click here to close (This popup will not appear again)