Outpatients

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

CODES:

outpatient <- read.csv(file = "pct_outpatient_trmt.csv")

fill_colors2 <- c()

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

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

fill_colors2 <- c(fill_colors2, "purple")

} else {

fill_colors2 <- c(fill_colors2, "coral")

}

}

barplot(outpatient$pct_outpatient_trmt, main="% of population with outpatient treatment", col=fill_colors2, names.arg=c(1995:2001, 2003:2012), las=2)