My On-Job Training Analytics

I have been working at Provincial Statistics Office of Tawi-Tawi (Philippines) which was part of the training on my OJT (On-Job Training). One of the requirements of the training is at least 80 hours of services, so I decided to work from April 19 to May 18, 2012, making it sure to surpass the required hours.

In that office, there is this daily records of our attendance which has a Sign in and Sign Out columns, where we actually put the time we arrive and dismiss, respectively. The first time I notice this, I started to get excited and very particular on the time I input, because I know that at the end of my training I'll be collecting this and make some analysis.

Here's the first plot below, which shows the Arrival and Dismissal time.

In the plot, notice that there are two groups of arrival and dismissal points. The first arrival points are dotted in the early morning of the day, this is due to the schedule of services of the office which opens at 8:00 am and will close at 12:00 pm. And the other one are in the afternoon, at 1:00 pm and will close at 5:00 pm. And I'm home, taking my lunch between 12:00 pm and 1:00 pm.

Average Annual Population Growth Rate of Tawi-Tawi

R Codes

library(ggplot2)
 
TawiTawiGrowthRate <- as.numeric(c(2.6, 3.3, 5.9, 1.6, 1.8, 5.5, 5))
CensalYear <- c("1948-1960","1960-1970","1970-1980","1980-1990","1990-1995",
"1995-2000","2000-2007")
 
qplot(CensalYear, TawiTawiGrowthRate, xlab = expression(bold("Censal Year")),
ylab = expression(bold("Growth Rate")), ylim = c(1.3, 6.3)) + 
geom_path(aes(group = 1), size = 1.3, colour = "green") + theme_bw() +
geom_point(size = 13, colour = "blue", fill = "white", pch = 21) +
opts(title = expression(bold("Tawi-Tawi: Average Annual Population
Growth Rate")), plot.title = theme_text(size = 18, colour = "darkblue"),
panel.border = theme_rect(linetype = "dashed", colour = "red")) + 
geom_text(aes(label = TawiTawiGrowthRate), angle = -0.13, size = 4, colour = "black")

Population of Iligan City from 1970 to 2010

R Codes

library(ggplot2)
library(grDevices)

IliganCity <- c(104493, 118778, 167358, 226568, 273004, 285061, 308046, 322821)
CensalYear <- c("1970", "1975", "1980", "1990", "1995", "2000", "2007", "2010")

qplot(CensalYear, IliganCity, xlab = expression(bold("Censal Year")),
      ylab = expression(bold("Population")), geom = "bar", colour = I("red"), 
      fill = IliganCity, stat = "identity", ylim = c(0, 370000)) + theme_bw() + 
      opts(
          title = expression(bold("Iligan City Population from 1970 to 2010")),
          plot.title = theme_text(size = 18, colour = "darkblue"),
          panel.border = theme_rect(linetype = "dashed", colour = "red"),
          legend.position = "none") + geom_text(aes(label = IliganCity, angle = 90,
          hjust = -0.1), size = 4)