Statistical Graphics & Data Visualization

Oleh: Unung Istopo H

Untuk materi kedua ini kita akan membahas tentang bagaimana melakukan pengolahan data yang disimpan di SPSS (*.sav). Untuk materi ini data dapat didownload dan silahkan simpan di folder tertentu yang mudah diakses.

Analisis sederhana dengan menggunakan data SPSS.

#Memanggil library foreign yang digunakan untuk membaca file SPSS, MINITAB, SAS, Systat, dll.
require(foreign)
read.spss("/home/unung/work/REncietyCourse/DataSPSS.sav") -> data.SPSS
names(data.SPSS)
#Untuk mengetahui atribut yang ada di data.SPSS maka gunakan function attributes
attributes(data.SPSS) -> attr.data.SPSS
names(attr.data.SPSS)

attach(data.SPSS)
#Diagram Dahan Daun
stem(A1)
#Menghitung Frekuensi dan Tabulasi Silang
table(A2,B1) -> data.1
data.1
names(dimnames(data.1)) <- c("Jenis Kelamin", "Langganan Koran")
data.1
total=sum(data.1)
data.1/total
row.total <- apply(data.1,1,sum)
col.total <- apply(data.1,2,sum)
row.percentage <- sweep(data.1,1,row.total,"/")
col.percentage <- sweep(data.1,1,col.total,"/")
round(col.percentage,3)
#Merubah data.frame ke dalam matrix table
data.frame(data.1) -> data.1.frame
attach(data.1.frame)
tapply(Freq,list(Jenis.Kelamin,Langganan.Koran),c)

attach(data.SPSS)
layout(matrix(c(1,3,6,1,4,6,2,4,7,2,5,7),3,4))
par(mar = c(2,2,2,2))
dotchart(table(B2,A2),main="Hobby & Jenis Kelamin")
par(mar = c(2,2,2,2))
dotchart(table(B3,A2),main="Pengeluaran & Jenis Kelamin")
par(mar = c(2,2,2,2))
pie(c(1,2),c("Perempuan","Laki-laki"),col=c("black","gray"),radius=sum(c(1,2))/20+0.65,main=paste("Tidak Berlangganan Koran n = ",sum(c(1,2))))
par(mar = c(2,2,2,2))
barplot(table(A2,B1),col=c("black","gray"),main="Langganan Koran & Jenis Kelamin",beside=T)
pie(c(4,3),c("Perempuan","Laki-laki"),col=c("black","gray"),radius=sum(c(4,3))/20+0.65,main=paste("Berlangganan Koran n =",sum(c(4,3))))
par(mar = c(2,2,2,2))
hist(A1,main="Histogram Usia Responden",col="darkgray")
par(mar = c(2,2,2,2))
boxplot(A1,horizontal=T,main="Boxplot Usia Responden",col="darkgray")

Hasil Grafiknya adalah sebagai berikut :

(*) Dokumentasi R enciety Internal Course, 2 dan 3 Mei 2005