Dosen Pengempu : Prof. Dr. Suhartono, M.Kom

UIN Maulana Malik Ibrahim Malang - Teknik Informatika

Kustomisasi Parameter Grafik (bagian I)

Pada bagian pertama ini akan menjelaskan cara untuk kustomisasi parameter grafik seperti :

  1. Menambahkan judul,

  2. Menambahkan legend

  3. Menambahkan teks pada grafik

Menambahkan Judul

Pada grafik di R, kita dapat menambahkan judul dengan dua cara, yaitu :

  • pada plot melalui parameter

  • pada plot melalui fungsi plot()

Kedua cara tersebut tidak berbeda satu sama lain pada parameter input.

Untuk menambahkan judul pada plot secara langsung, kita dapat menggunakan argumen tambahan sebagai berikut :

  • main : teks untuk judul

  • xlab : teks untuk keterangan axis X.

  • ylab : teks untuk keterangan axis y.

  • sub : teks untuk sub-judul.

Dibawah ini merupakan contoh sintaks penerapan masing-masing argumen tersebut beserta dengan output yang dihasilkan pada Gambar :

Bisa juga melakukan kustomisasi pada warna, font style, dan ukuran font judul. Untuk melakukan kustomisasi pada warna pada judul, kita dapat menambahkan argumen sebagai berikut :

  • col.main : warna untuk judul.

  • col.lab : warna untuk keterangan axis.

  • col.sub : warna untuk sub-judul

Untuk kustomisasi font judul, dapat menambahkan argumen berikut :

  1. font.main : font style untuk judul.

  2. font.lab : font style untuk keterangan axis.

  3. font.sub : font style untuk sub-judul

    Penting !!

    Nilai yang dapat dimasukkan antara lain:

    • 1 : untuk teks normal.

    • 2 : untuk teks cetak tebal.

    • 3 : untuk teks cetak miring.

    • 4 : untuk teks cetak tebal dan miring.

    • 5 : untuk font simbol.

Sedangkan untuk ukuran font, dapat menambahkan variabel berikut :

  1. cex.main : ukuran teks judul.

  2. cex.lab : ukuran teks keterangan axis.

  3. cex.sub : ukuran teks sub-judul.

Dibawah ini sintaks penerapan seluruh argumen tersebut beserta output yang dihasilkan pada Gambar :

# menambahkan judul
barplot(c(2,5), 
        # menambahkan judul
        main="Main title",
        xlab="X axis title",
        ylab="Y axis title",
        sub="Sub-title",
        # kustomisasi warna font
        col.main="red", 
        col.lab="blue", 
        col.sub="black",
        # kustomisasi font style
        font.main=4, 
        font.lab=4, 
        font.sub=4,
        # kustomisasi ukuran font
        cex.main=2, 
        cex.lab=1.7, 
        cex.sub=1.2)

Telah dibahas mengenai bagaimana menambahkan judul langsung pada fungsi plot. Selain cara tersebut, dijelaskan pula bahwa kita dapat menambahkan judul melalui fungsi title(). Argumen yang dimasukkan pada dasarnya tidak berbeda dengan ketika dilakukan penambahan judul secara langsung pada plot. Berikut adalah contoh sintaks dan output yang dihasilkan ada pada Gambar dibawah :

# menambahkan judul
barplot(c(2,5,8))

# menambahkan judul
title(main="Main title",
      xlab="X axis title",
      ylab="Y axis title",
      sub="Sub-title",
      # kustomisasi warna font
      col.main="red", 
      col.lab="blue", 
      col.sub="black",
      # kustomisasi font style
      font.main=4, 
      font.lab=4, 
      font.sub=4,
      # kustomisasi ukuran font
      cex.main=2, 
      cex.lab=1.7, 
      cex.sub=1.2)

Menambahkan Legend Fungsi legend() pada R dapat digunakan untuk menambahkan legend pada grafik. Format sederhananya adalah sebagai berikut :

legend(x, y=NULL, legend, fill, col, bg)Col1

Catatan !!

  • x dan y : koordinat yang digunakan untuk posisi legend.

  • legend : teks pada legend

  • fill : warna yang digunakan untuk mengisi box disamping teks legend.

  • col : warna garis dan titik disamping teks legend.

  • bg : warna latar belakang legend box.

Berikut adalah contoh sintaks dan ouput penerapan argumen ada pada Gambar dibawah :

# membuat vektor numerik
x <- c(1:10)
y <- x^2
z <- x*2

# membuat line plot
plot(x,y, type="o", col="red", lty=1)

# menambahkan line plot
lines(x,z, type="o", col="blue", lty=2)

# menambahkan legend
legend(1, 95, legend=c("Line 1", "Line 2"),
       col=c("red", "blue"), lty=1:2, cex=0.8)

Juga dapat menambahkan judul, merubah font, dan merubah warna backgroud pada legend. Argumen yang ditambahkan pada legend adalah sebagai berikut :

  1. title : Judul legend

  2. text.font : integer yang menunjukkan font style pada teks legend. Nilai yang dapat dimasukkan adalah sebagai berikut :

    • 1 : normal

    • 2 : cetak tebal

    • 3 : cetak miring

    • 4 : cetak tebal dan miring

  3. bg : warna background legend box

Di bawah ini adalah penerapan sintaks dan output yang dihasilkan ada pada Gambar :

# membuat line plot
plot(x,y, type="o", col="red", lty=1)

# menambahkan line plot
lines(x,z, type="o", col="blue", lty=2)

# menambahkan legend
legend(1, 95, legend=c("Line 1", "Line 2"),
       col=c("red", "blue"), lty=1:2, cex=0.8,
       title="Line types", text.font=4, bg='lightblue')

Juga dapat melakukan kustomisasi pada border dari legend melalui argumen box.lty =(jenis garis), box.lwd =(ukuran garis), dan box.col =(warna box). Berikut adalah penerapan argumen tersebut beserta output yang dihasilkan, ada pada Gambar dibawah ini :

# membuat line plot
plot(x,y, type="o", col="red", lty=1)

# menambahkan line plot
lines(x,z, type="o", col="blue", lty=2)

# menambahkan legend
legend(1, 95, legend=c("Line 1", "Line 2"),
       col=c("red", "blue"), lty=1:2, cex=0.8,
       title="Line types", text.font=4, bg='white',
       box.lty=2, box.lwd=2, box.col="steelblue")

Selain menggunakan koordinat, kita juga dapat melakukan kustomisasi posisi legend menggunakan keyword seperti : “bottomright”,“bottom”,“bottomleft”,“left”,“topleft”,“top”,“topright”,“right” and “center”. Sejumlah kustomisasi legend berdasarkan keyword disajikan pada Gambar dibawah ini :

# plot
plot(x,y, type = "n")

# posisi kiri atas, inset =0.05
legend("topleft",
  legend = "(x,y)",
  title = "topleft, inset = .05",
  inset = 0.05)
# posisi atas
legend("top",
       legend = "(x,y)",
       title = "top")
# posisi kanan atas inset = .02
legend("topright",
       legend = "(x,y)",
       title = "topright, inset = .02",
       inset = 0.02)
# posisi kiri
legend("left",
       legend = "(x,y)",
       title = "left")
# posisi tengah
legend("center",
       legend = "(x,y)",
       title = "center")
# posisi kanan
legend("right",
       legend = "(x,y)",
       title = "right")
# posisi kiri bawah
legend("bottomleft",
       legend = "(x,y)",
       title = "bottomleft")
# posisi bawah
legend("bottom",
       legend = "(x,y)",
       title = "bottom")
# posisi kanan bawah
legend("bottomright",
       legend = "(x,y)",
       title = "bottomright")

Menambahkan Teks Pada Grafik

Teks pada grafik dapat ditambahkan baik sebagai keterangan yang menunjukkan label suatu observasi, keterangan tambahan disekitar bingkai grafik, maupun sebuah persamaan yang ada pada bidang grafik. Untuk menambahkannya dapat menggunakan dua buah fungsi yaitu : text() dan mtext().

Fungsi text() berguna untuk menambahkan teks di dalam bidang grafik seperti label titik observasi dan persamaan di dalam bidang grafik. Format yang digunakan adalah sebagai berikut :

text(x, y, labels)

Catatan !!

  • x dan y : vektor numerik yang menunjukkan koordinat posisi teks

  • labels : vektor karakter yang menunjukkan teks yang hendak ditulis

Berikut adalah contoh sintaks untuk memberi label pada sejumlah data yang memiliki kriteria yang diinginkan dan output yang dihasilkan ada pada Gambar dibawah ini :

# tandai observasi yang memiliki nilai
# mpg < 15 dan wt > 5
d <- mtcars[mtcars$wt >= 5 & mtcars$mpg <= 15, ]


# plot
plot(mtcars$wt, mtcars$mpg, main="Milage vs. Car Weight",
      xlab="Weight", ylab="Miles/(US) gallon")

# menambahkan text
text(d$wt, d$mpg,  row.names(d),
     cex=0.65, pos=3,col="red")

Sedangkan sintaks berikut adalah contoh bagaimana menambahkan persamaan kedalam bidang grafik dan output yang dihasilkan ada pada Gambar dibawah ini :

plot(1:10, 1:10, 
     main="text(...) examples\n~~~~~~~~~~~")
text(4, 9, expression(hat(beta) == (X^t * X)^{-1} * X^t * y))
text(7, 4, expression(bar(x) == sum(frac(x[i], n), i==1, n)))

Fungsi mtext() berguna untuk menambahkan teks pada frame sekitar bidang grafik. Format yang digunakan adalah sebagai berikut :

mtext(text, side=3)

Catatan !!

  • text: teks yang akan ditulis

  • side : integer yang menunjukkan lokasi teks yang akan ditulis. Nilai yang dapat dimasukkan antara lain :

  • 1 : bawah

  • 2 : kiri

  • 3 : atas

  • 4 : kanan

Dibawah ini adalah contoh penerapan dan output yang dapat dihasilkan pada Gambar :

plot(1:10, 1:10, 
     main="mtext(...) examples\n~~~~~~~~~~~")
mtext("Magic function", side=3)

Referensi