Melalui game simulasi saham yang dikembangkan oleh Rudi Cayadi membuat tergelitik untuk mengamati historical stock price. Terutama untuk saham yang sempat dipilih dalam simulasi ini .

Dengan basis code dasar R yang telah ada dalam pembahasan sebelumnya, maka hasil plot mulai 1 Januari 2008 hingga 2 Desember 2008 adalah sebagai berikut :

Historical Stock Price

Visualisasi ini diharapkan memberikan gambaran sederhana tentang pergerakan saham dalam negeri, yang coba penulis implementasikan dalam game simulasi saham. (unung@enciety.com)

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 :

1. 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

2. 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))]
   }
   }

3. 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()

4. 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

Ketersediaan data yang ditampilkan cukup menarik di Yahoo! Finance dapat kita analisis menggunakan R. Demikian langkah sederhana melakukan analisis data dengan data yang kita tarik dari Yahoo! Finance berupa data pergerakan saham, misalnya mulai 3 Januari 2005 hingga 20 Mei 2005 untuk NASDAQ COMPOSITE (^IXIC).

read.csv("http://ichart.finance.yahoo.com/table.csv?s=%5EIXIC&a=00&b=1&c=2005&d=04&e=20&f=2005&g=d&ignore=.csv") -> mydata
names(mydata)
mydata[length(mydata[,1]):1,] -> data.ts
plot(ts(data.ts[,2]),axes=F,xlab="time - http://www.enciety.com",ylab="Open",main="NASDAQ COMPOSITE (Open)",col="blue")
abline(v=seq(1,100,10),col="gray")
abline(h=seq(min(data.ts[,2]),max(data.ts[,2]),50),col="gray")
axis(1,at=seq(1,100,10),labels=format(data.ts[seq(1,100,10),1]))
axis(2,at=seq(min(data.ts[,2]),max(data.ts[,2]),50))
box()

Studi Kasus: Silahkan lanjutkan analisis ini dengan pendekatan time series.
Selamat mencoba.

Thanks,

Unung Istopo