04 Januari 2009

Grafik Tiga Dimensi

Grafik tiga dimensi dengan mudah dapat dibuat dengan menggunakan bantuan R. Berikut ini adalah perintah-perintah dalam R untuk membuat grafik tiga dimensi.

> # plot-plot 3D menggunakan: persp, contour, image

> # Bangun Bidang Datar
> x <- y <- seq(-5, 5, length=50)

> # Untuk membuat dimensi yang ketiga, kita membutuhkan fungsi "outer"
> z <- outer(x, y, "+")
> persp(x, y, z )

Grafik yang ditampilkan adalah sebagai berikut:

Untuk fungsi yang lebih kompleks, definisikan fungsinya terlebih dahulu. Contoh berikut ini adalah menggambarkan grafik fungsi berikut:

> # misalkan fungsinya diberi nama f2

> f2 <- function(x, y){ x * sin(y) + y*sin(x)}
> z2 <- outer(x, y, "f2")

> persp( x, y, z2)

Grafik yang ditampilkan adalah sebagai berikut:

Perintah berikut ini memberikan perpektif yang lebih baik


> persp(x, y, z2, theta=45, phi=45, col="slateblue")

Grafik yang ditampilkan adalah sebagai berikut:

Argumen col pada fungsi persp akan memberikan warna pada grafik yang kita buat. Untuk melihat warna-warna apa saja yang dapat diterima oleh R, gunakan perintah berikut ini:

> colors() # atau
> colours()

Perintah R berikut ini memberikan gambar lain yang lebih menarik. Fungsi yang ingin digambarkan adalah:

> x <- seq(-10, 10, length= 50)
> y <- x
> f <- function(x,y) { r <- sqrt(x^2+y^2); 10 * sin(r)/r }
> z <- outer(x, y, f)

> persp(x, y, z, theta=45, phi=30, col="skyblue")

Grafik yang ditampilkan adalah sebagai berikut:

Perintah R berikut ini memberikan gambar fungsi yang sama, tetapi dengan perspektif yang lain (theta = 30 dan phi = 45), dan warna kuning (col = "orange").

> persp(x, y, z, theta=30, phi=45, col="orange")

Grafik yang ditampilkan adalah sebagai berikut:

Perintah R berikut ini memberikan gambar fungsi yang sama, tetapi dengan detil yang lebih baik.

> persp(x, y, z, theta = 30, phi = 30, col = "lightblue",
+ ltheta = 120, shade = 0।75, ticktype = "detailed",
+ xlab = "X", ylab = "Y", zlab = "f(x, y)" )

Grafik yang ditampilkan adalah sebagai berikut:

Bidang "Countour"

Bidang countour merupakan proyeksi grafik tiga dimensi kebidang XY, yang mana ketinggian grafik digambarkan oleh garis-garis countour yang samakin rapat atau padat. Perintah-perintah berikut ini menggambarkan bidang countour tersebut, dengan fungsi R countour dan image.

> contour(x, y, z)

Grafik yang ditampilkan adalah sebagai berikut:

Countour01

> image(x, y, z)

Grafik yang ditampilkan adalah sebagai berikut:


> image(x, y, z, col=rainbow(n=100))

Grafik yang ditampilkan adalah sebagai berikut:


> image(x, y, z, col=terrain.colors(n=100))

Grafik yang ditampilkan adalah sebagai berikut:

3 komentar:

Riyan adriyan mengatakan...
Komentar ini telah dihapus oleh pengarang.
Riyan adriyan mengatakan...

Pak saya punya trik untuk ngilangin Navbar (Navigation Bar)yang diatas ....

lihat saja caranya di http://monster-blogging.co.nr

Anom Yudistira mengatakan...

Trima kasih Ryan, sangat membantu. Blog kamu bagus sekali.