Pada artikel ini, kita akan membahas cara menginsertkan garis rata dan garis rata+deviasi ke dalam scatter plot menggunakan R. Scatter plot adalah salah satu jenis grafik yang paling umum digunakan untuk menganalisis hubungan antara dua variabel numerik.

Menggunakan ggplot2

Kita akan menggunakan paket ggplot2 untuk membuat scatter plot dan menambahkan garis rata dan garis rata+deviasi. Berikut adalah kode yang kita perlukan:

library(ggplot2)
library(dplyr)

# Membuat scatter plot dengan data
p <- ggplot(df, aes(x = x, y = y)) + 
 geom_point() + 
 theme_classic()

# Menghitung mean dan standard deviation untuk tanggal tertentu
mean_Week <- mean(as.numeric(ds_OC[,"D1"]) )
sd_week <- sd(as.numeric(ds_OC[,"D1"]))

# Menambahkan garis rata dan garis rata+deviasi ke dalam scatter plot
p + 
 geom_abline(intercept = mean_Week, slope = 0) + 
 geom_abline(intercept = mean_Week + sd_week, slope = 0)

Pada kode di atas, kita menggunakan ggplot2 untuk membuat scatter plot dengan data. Kemudian, kita menghitung mean dan standard deviation untuk tanggal tertentu menggunakan paket dplyr. Akhirnya, kita menambahkan garis rata dan garis rata+deviasi ke dalam scatter plot menggunakan geom_abline.

Mengintegrasikan Kode dengan Scatter Plot

Untuk mengintegrasikan kode di atas dengan scatter plot yang kita buat sebelumnya, kita dapat menggunakan fungsi scatter_date berikut:

scatter_date <- function(dt, dta = df) {
 # Membuat scatter plot untuk tanggal tertentu
 p <- ggplot(dta, aes(x = x, y = y)) + 
 geom_point() + 
 theme_classic()
 
 # Menghitung mean dan standard deviation untuk tanggal tertentu
 mean_Week <- mean(as.numeric(ds_OC[,"D1"]) )
 sd_week <- sd(as.numeric(ds_OC[,"D1"]))
 
 # Menambahkan garis rata dan garis rata+deviasi ke dalam scatter plot
 p + 
 geom_abline(intercept = mean_Week, slope = 0) + 
 geom_abline(intercept = mean_Week + sd_week, slope = 0)
}

Pada kode di atas, kita mengintegrasikan fungsi scatter_date dengan scatter plot yang kita buat sebelumnya. Fungsi ini akan membuat scatter plot untuk tanggal tertentu dan menambahkan garis rata dan garis rata+deviasi ke dalamnya.

Contoh

Berikut adalah contoh hasil dari kode di atas:

> scatter_date("2021-04-10", df)

Pada contoh di atas, kita membuat scatter plot untuk tanggal 10 April 2021. Scatter plot ini akan menampilkan hubungan antara dua variabel numerik serta garis rata dan garis rata+deviasi yang sesuai dengan tanggal tersebut.

Dengan demikian, kita telah berhasil mengintegrasikan garis rata dan garis rata+deviasi ke dalam scatter plot di R menggunakan ggplot2.