Statistical Graphics & Data Visualization

Memanfaatkan R Sweave

Dalam pembahasannya sebelumnya, saya menyertakan file Snw yang dapat digenerate menjadi file latex. Berikut ini langkah-langkah bikin dokumen analisis data dengan melibatkan library R tools yang menunjukkan bagaimana kita langsung mengambil data dari Yahoo! Finance misalnya atau dari Enciety Data Management untuk kemudian dapat diolah langsung menjadi dokumen analisis yang menarik.

1. Buat file Snw (Latex) dengan menyertakan script R didalamnya, seperti berikut ini :

%================================%
%    Membuat Dokumen Sederhana   %
% Oleh : Unung Istopo Hartanto   %
%     26 Mei 2005                %
%================================%

% Menentukan Format Dokumen
documentclass[A4,11pt]{article}

% Load Package tertentu, misalnya paket bahasa
usepackage[bahasa]{babel}
usepackage{here}

% Awal Dokumen
begin{document}

% Judul Artikel
title{Membuat Dokumen Sederhana\}
author{{sl Unung Istopo H}\[5mm]
e-mail: unung@enciety.com}

% Membangkitkan Tanggal Dokumen
date

% Membangkitkan Judul
maketitle

% Bikin Tulisan sederhana

Berikut ini adalah dua grafik yang secara otomatis dihasilkan dari analisis data enciety dan Yahoo! dengan menggunakan R Latex.

% Membangkitkan Plot 

begin{figure}[b]
caption{Balloon Plot Persentase Migrasi Jawa Timur Menurut Gender dan Area Tahun 2000  (Total Penduduk Jawa Timur tahun 2000 = 34.508.611 jiwa )}
label{fig:data01}
centering
< <fig=TRUE,echo=FALSE>>=
# Mengambil Data dari www.enciety.com
read.csv("http://www.enciety.com/data/manajemen/data/Prosentase%20Table%20Migrasi%20Jawa%20Timur%202000.csv") -> data
# Membuat Plot
require(gplots)
balloonplot(data$Area, data$Gender, data$Data,xlab="Area",ylab="Gender",main="Data : http://www.enciety.com/data/manajemen")
@
\
small{emph{"Panjang jari-jari lingkaran menunjukkan besar persentase migrasi pada suatu kelompok"}\
Sumber Data :	BPS Propinsi Jawa Timur, Sensus Penduduk 2000}
end{figure}

begin{figure}[b]
caption{NASDAQ COMPOSITE (^ISIC) - Open}
label{fig:data02}
centering
< <fig=TRUE,echo=FALSE>>=
# Mengambil Data dari yahoo.finance.com
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
mydata[length(mydata[,1]):1,] -> data.ts
# Plot Data
plot(ts(data.ts[,2]),axes=F,xlab="time - http://www.enciety.com",ylab="Open",main="Data : http://yahoo.finance.com",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()
@
end{figure}

% Akhir Dokumen
end{document}

2. Jalankan file Snw tersebut di R dengan command Sweave("Nama File")
3. Generate file tex menjadi latex
4. Membuat file dvi menjadi pdf

Langkah 2 – 4 ada di Bahasan Sebelumnya.

Silahkan Mencoba.

Oleh : Unung Istopo H