Kita seringkali ingin mengetahui bagaimana time series messages dalam komunitas milis yang kita ikuti. Namun terkadang, model message History Parameter, seperti dalam Gambar 1, sulit bagi kita untuk melakukan analisis. Dalam script sederhana kali ini, kita akan mencoba menggambarkan plot time series untuk data yang berbetuk matriks. Sebenarnya kita bisa menggunakan fungsi-fungsi R Time Series, namun untuk langkah-langkah ini kita akan menggunakan script dasar R, sekalian untuk mengenalkan bagaimana menggunakan loop, abline dan fungsi dasar lainnya.
Gambar 1. Data Milis Parameter YAHOO! groups Message History
snapshot time : 17 Juni 2005 10:53 WIB
Langkah-Langkah membuat plot time series untuk message history milis www.yahoogroups.com dengan kasus milis Parameter yang kita ambil pada tanggal 17 Juni 2005 10:09:43 WIB, adalah sebagai berikut :
-
Mengambil data message history dari halaman Home Milis Parameter.
Ada beberapa metode untuk mengambil data dari halaman ini, yaitu dengan menggunakan metode RegEx, untuk mengambil data dalam pola HTML tertentu atau cara yang mudah dan simple yaitu dengan copy clipboard untuk data message history.
Untuk script kali ini kita memilih copy clipboard, dengan cara seperti artikel sebelumnya.
read.delim(pipe("xclip -o")) -> data.parameter
- Kemudian kita melakukan manipulasi data matriks diatas untuk membuat data series, berikut ini script yang dapat digunakan :
data.new <- c(1:60)
for (i in 5:1) {
for (j in 1:12){
data.parameter[i,j] -> data.new[j+(12*(5-i))]
}
} - Selanjutnya, kita dapat mulai melakukan plot, menambahkan abline untuk mempercantik tampilan
now <- date()
plot(data.new,type="b",axes=F,xlab=paste("Generated by enciety Data Mining ",now),ylab="Messages Total",main="Message History Parameter YAHOO! Groups",col="darkblue")
axis(2)
abline(v=c(1,13,25,37,49),lty=3,col="red")
abline(h=seq(25,150,25),lty=3,col="grey")
axis(2,at=seq(25,150,25),seq(25,150,25))
axis(1,at=c(1,13,25,37,49),c("Jan 2001","Jan 2002","Jan 2003","Jan 2004","Jan 2005"))
#text(c(1:60),data.new+3,data.new)
box() - Setelah kita jalankan script tersebut di R maka kita akan dapatkan hasil seperti Gambar 2:
Gambar 2. Plot Time Series Milis Parameter YAHOO! groups Message History
snapshot time : 17 Juni 2005 11:19 WIB
Salam,
Unung Istiopo H
