Dalam pendekatan ini untuk menggambar beberapa histogram overlay, pengguna pertama-tama perlu menginstal dan mengimpor paket ggplot2 pada konsol R dan memanggil fungsi geaom_histogram dengan menentukan argumen alpha dari fungsi ini ke nilai float antara 0 hingga 1 yang akan mengarah ke transparansi plot histogram yang berbeda pada plot yang sama dengan kumpulan bingkai data sebagai parameter fungsi ini untuk mendapatkan beberapa histogram yang dilapis dalam bahasa pemrograman R.

fungsi geom_histogram(): Fungsi ini adalah fungsi built-in dari modul ggplot2.

Sintaks: geom_histogram(pemetaan = NULL, data = NULL, stat = “bin”, posisi = “tumpukan”, …)

Parameter:

pemetaan: Pemetaan estetika, biasanya dibangun dengan aes atau aes_string. Hanya perlu diatur pada tingkat lapisan jika Anda mengganti default plot. data: Kumpulan data khusus lapisan – hanya diperlukan jika Anda ingin mengganti default plot. stat: Transformasi statistik yang akan digunakan pada data untuk lapisan ini. posisi: Penyesuaian posisi yang digunakan untuk titik yang tumpang tindih pada lapisan ini.

Contoh 1:

Dalam contoh ini, kita akan mengambil 2 kumpulan 100 data acak berbeda untuk membuat 2 histogram berbeda pada plot tunggal menggunakan argumen alpha dari fungsi geom_histogram() dari paket ggplot2 dalam bahasa pemrograman R.

library("ggplot2")
data <- data.frame(values = c(rnorm(100),
                            rnorm(100)),
                group = c(rep("A", 100),
                            rep("B", 100)))

ggplot(data, aes(x = values, fill = group)) +
geom_histogram(position = "identity", alpha = 0.4, bins = 50)

Contoh 2:

Dalam contoh ini, kita akan mengambil 3 data berbeda untuk membuat 3 histogram berbeda pada satu plot menggunakan argumen alpha dari fungsi geom_histogram() dari paket ggplot2 dalam bahasa pemrograman R.

library("ggplot2")
data <- data.frame(values = c(c(6,2,5,4,1,6,1,5,4,7),
                            c(4,1,4,4,5,5,4,6,2,4),
                            c(9,1,5,7,1,10,6,4,1,7)),
                group = c(rep("A", 10),
                            rep("B", 10),
                            rep("C", 10)))
ggplot(data, aes(x = values, fill = group)) +
geom_histogram(position = "identity", alpha = 0.4, bins = 50)