P.S.Pudyastuti's Lovely Rooms…

Learning is a long-life process, so it's never late to learn…

Dolanan R, masih yang mudah dulu…

Leave a comment

Melanjutkan bermain dengan R pada tulisan sebelumnya, kali ini saya masih mengajak bermain dengan grafik sederhana. Oiya, bagaimana cara menjalankan / me-run script yang kita tulis di jendela R Editor? Caranya : highlight script yang ingin kita run, lalu klik kanan pada mouse, dan selanjutnya klik Run line or selection, atau bisa juga gunakan Ctrl+R. Gambar di bawah ini semoga cukup bisa menjelaskan.

Berikut ini adalah contoh script untuk grafik sederhana.

Contoh script 1 :

# membuat plot grafik sederhana dengan variabel x dan y

> x <- c(1,4,7,10,12)

> y <- c(1.5,2,7,8,15)

> plot(x,y, xlab=”x axis”, ylab=”y axis”, main=”my plot”, cex.main=1.4,

 +   col.main=”purple”,ylim=c(0,20), xlim=c(0,20), pch=17, col=”blue”)

> #cex.main = kode untuk ukuran huruf judul grafik

> #col.main = kode untuk warna huruf judul grafik

Selanjutnya jika ingin membuat garis regresi linier untuk grafik di atas, maka dapat digunakan script berikut ini :

Contoh script 2 :

> # merumuskan regresi linier untuk data

> myline.fit <- lm(y ~ x)

> # menggambar garis regresi pada grafik

> abline(myline.fit)

Untuk mendapatkan informasi tentang regresi linier di atas, script berikut ini bisa digunakan :

Contoh script 3 :

> # mendapatkan informasi tentang regresi linier
> summary(myline.fit)

Jika script tersebut di-run, maka output-nya adalah sebagai berikut :

> # mendapatkan informasi tentang regresi linier
> summary(myline.fit)

Call:
lm(formula = y ~ x)

Residuals:
1 2 3 4 5
1.4759 -1.4772 0.0698 -2.3832 2.3147

Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -1.1269 2.0099 -0.561 0.6142
x 1.1510 0.2553 4.509 0.0204 *

Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 2.266 on 3 degrees of freedom
Multiple R-squared: 0.8714, Adjusted R-squared: 0.8286
F-statistic: 20.33 on 1 and 3 DF, p-value: 0.02038

Contoh script 4 :
> # Menggambar histogram frekuensi sederhana
> x <- c(12,15,13,20,14,16,10,10,8,15)
> hist(x,col=”green”,main=”Histogram dari X”,cex.main=1.2,col.main=”blue”,
+         ylab=”Frekuensi”)

Contoh script 5 :

> curve(expr=sin, from=0, to=8*pi,lty=2.0,col=”red”,main=”Grafik fungsi Sin(x)”,
+             cex.main=1.1,col.main=”blue”)

Untuk grafik-grafik mudah yang lainnya, silakan dibaca di referensi yang ada di tulisan sebelumnya.

InshaAllah akan saya lanjutkan dengan tulisan berikutnya. Semoga bermanfaat.

Author: P.S.Pudyastuti

I am an academic staff at Civil Engineering Department, Faculty of Engineering, Universitas Muhammadiyah Surakarta - Indonesia. I got my Bachelor Degree (ST) from Gadjah Mada University, Indonesia, and Master Degree (M.Sc) from Loughborough University, England. I am married and have got 3 children.

Leave a Reply

Please log in using one of these methods to post your comment:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s