Tutorial PCH di R

Plot character atau pch adalah argumen standar untuk menentukan karakter yang akan dipetakan pada sejumlah fungsi R.

Teks penjelas dapat ditambahkan ke plot dalam beberapa bentuk berbeda, termasuk label sumbu, judul, legenda, atau teks yang ditambahkan langsung pada plot. Fungsi grafik dasar di R biasanya membuat label sumbu secara default, meskipun ini dapat ditimpa melalui argumen xlab() yang memungkinkan kita memberikan label sumbu-x sendiri dan ylab() yang memungkinkan kita memberikan label sumbu-y sendiri.

Beberapa fungsi grafik dasar juga menyediakan judul default, tetapi ini juga dapat ditimpa seperti yang terlihat di sini:

library(MASS)
par(mfrow = c(1, 2))
plot(density(geyser$waiting))
plot(density(geyser$waiting), main = "Estimated density: \n Old Faithful waiting times")

Plot di sebelah kiri menggunakan judul default yang dikembalikan oleh fungsi density, yang memberi tahu kita bahwa plot dibuat oleh fungsi ini menggunakan opsi bawaannya dan juga memberikan spesifikasi R untuk variabel yang kerapatannya sedang kita plot. Pada plot sebelah kanan, judul default ini ditimpa dengan menentukan argumen opsional main. Perhatikan bahwa dengan menyertakan karakter return, backslash n, kita membuat judul dua baris dalam string karakter ini.

text() Function

Seperti fungsi lines dan points, text adalah fungsi grafis tingkat rendah yang memungkinkan kita menambahkan teks penjelas ke plot yang sudah ada. Untuk melakukan ini, kita harus menentukan nilai untuk x dan y, yaitu koordinat pada plot tempat teks harus muncul, serta labels, sebuah vektor karakter yang menentukan teks yang akan ditambahkan.

text(x, y, adj)

Secara default, teks yang ditambahkan ke plot dipusatkan pada nilai x yang ditentukan, tetapi argumen opsional adj dapat digunakan untuk memodifikasi perataannya.

Perlu dicatat bahwa argumen adj pada fungsi text() menentukan penempatan horizontal teks, dan dapat mengambil nilai apa pun antara 0 (rata kiri) dan 1 (rata kanan). Bahkan, argumen ini dapat mengambil nilai di luar rentang tersebut. Artinya, membuat nilai ini negatif menyebabkan teks mulai di sebelah kanan posisi x yang ditentukan. Demikian pula, membuat adj lebih besar dari 1 menyebabkan teks berakhir di sebelah kiri posisi x.

library(MASS)
plot(UScereal$fibre)
text(5, 28, "<-- Outliers [left-justified text at (5, 28)]", adj = 0)
text(65, 23, "[Right-justified text at (65, 23)]", adj = 1, col = "red")
text(5, 28, "[Centered text (default) at (31, 18)]", col = "blue")

Font, Orientasi, dan Fitur Teks Lainnya

Di bawah ini kita melihat beberapa cara tampilan teks yang ditambahkan dapat diubah melalui argumen opsional pada fungsi text. Secara default, teks dibuat secara horizontal melintasi halaman, tetapi ini dapat diubah dengan argumen srt, yang menentukan sudut orientasi terhadap sumbu horizontal.

Berikutnya, teks berwarna merah miring ke atas sebagai hasil dari penentuan srt sebagai nilai positif 30 derajat, sedangkan teks berwarna hijau miring ke bawah dengan menentukan srt sama dengan -45.

Kita juga dapat menentukan warna teks dengan argumen col, dan teks merah menunjukkan bahwa kita dapat mengubah ukuran teks dengan argumen cex. Dengan menentukan cex = 1.2, kita menentukan teks 20% lebih besar dari normal.

Karakteristik teks lain yang dimodifikasi dalam contoh ini adalah jenis huruf (font), yang diatur oleh argumen font. Nilai default adalah font = 1, yang menentukan teks normal, sementara font = 2 menentukan huruf tebal, font = 3 menentukan huruf miring, dan font = 4 menentukan huruf tebal dan miring sekaligus.

library(MASS)
plot(Boston$rad)

# "Inner city" with adjusted colour and rotation
text(350, 24, adj = 1, "Inner city? -->", srt = 30, font = 2, cex = 1.2, col = "red")

# "Suburbs" with adjusted colour and rotation
text(100, 15, "Suburbs? -->", srt = -45, font = 3, col = "green")

title("Text with varying orientations, fonts, sizes & colors")

Mengatur Posisi, Ukuran, dan Font Teks

Pada contoh berikut, Anda akan:

• Membuat plot MPG.city vs. Horsepower dari data frame Cars93, dengan data direpresentasikan sebagai lingkaran kosong (pch default).
• Membuat variabel index3 menggunakan fungsi which() yang mengidentifikasi nomor baris yang memuat semua mobil dengan 3 silinder.
• Menggunakan fungsi points() untuk melapiskan lingkaran solid, pch = 16, di atas semua titik dalam plot yang mewakili mobil 3 silinder.
• Menggunakan fungsi text() dengan variabel Make seperti sebelumnya untuk menambahkan label di sebelah kanan mobil 3 silinder, tetapi kini gunakan adj = 0.2 untuk memindahkan label lebih ke kanan, gunakan argumen cex untuk memperbesar ukuran label sebesar 20 persen, dan gunakan argumen font untuk membuat label tebal miring.

# Plot MPG.city vs. Horsepower as open circles
plot(Cars93$Horsepower, Cars93$MPG.city)

# Create index3, pointing to 3-cylinder cars
index3 <- which(Cars93$Cylinders == 3)

# Highlight 3-cylinder cars as solid circles
points(Cars93$Horsepower[index3],
       Cars93$MPG.city[index3],
       pch = 16)

# Add car names, offset from points, with larger bold text
text(Cars93$Horsepower[index3],
     Cars93$MPG.city[index3],
     Cars93$Make[index3],
     adj = -0.2, cex = 1.2, font = 4)

Saat kita menjalankan kode di atas, akan dihasilkan keluaran berikut:

Coba sendiri.

Untuk mempelajari lebih lanjut tentang menambahkan teks ke plot, silakan lihat video dari kursus kami Data Visualization in R.

Konten ini diambil dari kursus DataCamp Data Visualization in R oleh Ronald Pearson.