Mis: Analisis untuk divisi IT: Network & Information Service Provider pada bulan Mei 2005.
1. Akses data ke aplikasi enciety CheckClock Report

read.csv("http://10.20.32.209/sugengrawuh/report_division_csv.php?div=6&bulan=05&tahun=2005&order=start") -> IT.NISP
names(IT.NISP)

2. Analisis Barplot untuk menggambarkan Persentase masuk dan keluar.

barplot(t(as.matrix(IT.NISP[,c(3,5)])),beside=T,ylim=c(0,100),axisname=F,legend=T)  -> barplot.IT.NISP
# Membuat Nama Label
for (i in 1:length(IT.NISP[,1])){      mtext(as.character(IT.NISP[i,1]),at=(barplot.IT.NISP[1,i]+barplot.IT.NISP[2,i])/2,side=1,line=1)
}
# Membuat Abline untuk persentase = 50%
abline(h=seq(10,50,10),col="red",lty=3)
abline(h=seq(60,90,10),col="blue",lty=3)
# Menampilkan abline sebagai background
par(new=T)
barplot(t(as.matrix(IT.NISP[,c(3,5)])),beside=T,ylim=c(0,100),axisname=F,legend=T)
box()
title("enciety Checkclock Report Summary - IT NISP Division - May 2005")
# Membuat text untuk besar persentase masuk dan keluar
for (i in 1:length(IT.NISP[,1])) {
   for (j in 1:2){
      text(barplot.IT.NISP[j,i],IT.NISP[,c(3,5)][i,j]+1,IT.NISP[,c(3,5)][i,j])
   }
}

3. Hasilnya adalah sebagai berikut :

Salam,

Unung Istopo H