Mobile Clinics

Hm ... looks like there's a slight decrease in the number of mobile clinics during the Asian Economic Crisis.

Source: http://www.bps.go.id/eng/tab_sub/view.php?kat=1&tabel=1&daftar=1&id_subyek=30&notab=41

CODES:

mobile.clinics <- read.csv(file = "mobile_clinics.csv")

fill_colors1 <- c()

for ( i in 1:length(mobile.clinics$crisis) ) {

if (mobile.clinics$crisis[i] == 1) {

fill_colors1 <- c(fill_colors1, "purple")

} else {

fill_colors1 <- c(fill_colors1, "coral")

}

}

barplot(mobile.clinics$n, main="Number of Mobile Clinics", col=filled_colors1, names.arg=c(1996:2012), las=2)