Halo pengguna R!

Dalam artikel ini, kita akan membahas bagaimana cara meningkatkan ukuran huruf pada plot scatter yang dibuat menggunakan fungsi pairs dari paket R. Fungsi ini digunakan untuk membuat plot matrix, tetapi memiliki beberapa kekurangan, seperti tidak dapat membiarkan Anda menentukan ukuran huruf.

Contoh 1: Meningkatkan Ukuran Huruf Pada Panel Correlation

Kita akan membahas contoh pertama yang diberikan dalam soal. Dalam fungsi panel.cor, kita dapat meningkatkan ukuran huruf dengan mengubah nilai cex.cor (font size multiplier). Namun, perlu diingat bahwa nilai ini harus ditentukan sebelumnya.

Contoh:

library(GGally)

# Definisikan fungsi panel.cor
panel.cor <- function(x, y, digits = 2, prefix = "", cex.cor, ...) {
 # ...
 if (missing(cex.cor)) cex.cor <- 0.8/strwidth(txt)
 text(0.5, 0.5, txt, cex = cex.cor)
}

# Buat plot scatter matrix
pairs(~ pH + Oxygen + Salinity + Temperature + Eh + Water_Level + Fe_total + FeII + V,
 data = RT2, lower.panel = panel.smooth, upper.panel = panel.cor,
 pch = 10, main = "")

Dalam contoh di atas, kita dapat meningkatkan ukuran huruf dengan mengubah nilai cex.cor. Contohnya, jika kita ingin meningkatkan ukuran huruf menjadi 16, maka kode seperti berikut:

upper.panel = panel.cor(cex.cor = 16)

Contoh 2: Meningkatkan Ukuran Huruf Pada R^2

Kita juga dapat meningkatkan ukuran huruf pada R^2 yang diperlihatkan dalam plot scatter. Kita hanya perlu menambahkan argument size ke fungsi stat_regline_equation.

Contoh:

library(ggplot2)
library(ggpubr)

# Buat data
set.seed(4321)
x <- 1:100
y <- (x + x^2 + x^3) + rnorm(length(x), mean = 0, sd = mean(x^3) / 4)
my.data <- data.frame(x, y, group = c("A", "B"),
 y2 = y * c(0.5, 2), block = c("a", "a", "b", "b"))

# Buat plot scatter dengan R^2
ggplot(my.data, aes(x, y2, color = group)) +
 geom_point() +
 stat_smooth(aes(fill = group, color = group), method = "lm") +
 stat_regline_equation(
 aes(label = paste(..eq.label.., ..adj.rr.label.., sep = "~~~~")),
 formula = ~ y + poly(x, 3, raw = TRUE),
 size = 8
 ) +
 theme_bw()

Dalam contoh di atas, kita dapat meningkatkan ukuran huruf pada R^2 dengan menambahkan argument size ke fungsi stat_regline_equation. Contohnya, jika kita ingin meningkatkan ukuran huruf menjadi 8, maka kode seperti berikut:

size = 8

Dengan demikian, kita dapat meningkatkan ukuran huruf pada plot scatter yang dibuat menggunakan fungsi pairs dan stat_regline_equation.