Statistical Graphics & Data Visualization

Buat negeriku Indonesia – Dirgahayu …… Semoga Bendera Merah Putih Selalu berkibar di Bumi Indonesia. Semoga selalu dalam Lindungan Yang Maha Esa. Amin

Berikut ini R script untuk ikut memeriahkan Ulang Tahun Kemerdekaan RI ke – 62 – 17 Agustus 2007.

acakbendera < - function() {

plot(1:100,type="n",main="Dirgahayu RI ke-62",axes=F,xlab="",ylab="")
a <- sample(5:95,17)
b <- sample(5:95,17)

for (i in 1:17) {
rect(a[i]-10,b[i],a[i]+10,b[i]+5,col="red")
rect(a[i]-10,b[i]-5,a[i]+10,b[i],col="white")
}

#box()

c <- sample(5:95,8)
d <- sample(5:95,8)

warna <- rainbow(8)

for (i in 1:8) {
points(c[i],d[i],pch=19,col=warna[i])
points(c[i]-2.5,d[i]+5,pch=8,col=warna[i])
points(c[i]-5,d[i],pch=8,col=warna[i])
points(c[i]-2.5,d[i]-5,pch=8,col=warna[i])
points(c[i]+2.5,d[i]-5,pch=8,col=warna[i])
points(c[i]+5,d[i],pch=8,col=warna[i])
points(c[i]+2.5,d[i]+5,pch=8,col=warna[i])

}

}

Silahkan dimodifikasi ya… script sederhana ini .. script ini akan menampilkan 17 Bendera Merah Putih dan 8 Kembang Api Warna Warni MERDEKA… Selamat Mencoba.

> acakbendera()

Hasilnya seperti berikut ini :

Salam, Unung.