GIYOM

#HISTOGRAM
# Data manual
data <- c(5, 6, 9, 5, 6, 9, 5, 8, 7, 6, 5, 9, 10, 8, 7, 5)
# Membuat histogram
hist_data <- hist(data,
                  breaks = 5,
                  main = "Histogram Data Manual",
                  xlab = "Nilai",
                  ylab = "Frekuensi",
                  col = "coral2",
                  border = "black")

# Membuat histogram Berbeda Warna
hist_data <- hist(data,
                  breaks = 5,
                  main = "Histogram Data Manual",
                  xlab = "Nilai",
                  ylab = "Frekuensi",
                  col = rainbow(length(hist_data)),
                  border = "black")

#BARPLOT
# Data contoh
Kriminalitas <- c(19, 9, 13, 20)
kabupaten_kota <- c("Jambi", "Bungo", "Tebo", "Sarolangun")

# Membuat barplot
barplot(height = Kriminalitas,
names.arg = kabupaten_kota,
col = "blue",
main = "Angka kriminalitas di jambi",
xlab = "Kabupaten Kota",
ylab = "Kriminal")

#BOXPLOT
data <- c(5, 7, 5, 5, 6, 9, 9, 8, 7, 6, 5, 9, 11, 6, 7, 5, 15, -1)
# Membuat boxplot
boxplot(data,
main = "Boxplot Data dengan Pencilan",
ylab = "Nilai",
col = "lightblue",
border = "darkblue")

# Data
data_group1 <- c(5, 7, 8, 5, 6, 9, 5)
data_group2 <- c(10, 12, 15, 14, 11, 13, 20, 12)
data_group3 <- c(3, 4, 5, 2, 4, 3, 10) # Mengandung pencilan
# Menggabungkan data menjadi list
data_list <- list(Group1 = data_group1,
Group2 = data_group2,
Group3 = data_group3)
# Membuat boxplot
boxplot(data_list,
main = "Boxplot Banyak Kelompok Data",
ylab = "Nilai",
xlab = "data",
col = c("lightblue", "lightgreen", "lightcoral"),
border = "black")

#DENSITY PLOT
# Data manual
data <- c(5, 7, 8, 5, 6, 9, 5, 8, 7, 6, 5, 9, 10, 6, 7, 5)
# Membuat density plot
plot(density(data),
main = "Density Plot Data",
xlab = "Nilai",
ylab = "Kepadatan",
col = "blue",
lwd = 5)
# Menambahkan garis vertikal untuk median
abline(v = 6, h=0.1, col = "red", lwd = 5, lty = 2)

# Data manual untuk beberapa kelompok
data_group1 <- c(5, 7, 8, 5, 6, 9, 5)
data_group2 <- c(10, 12, 15, 14, 11, 13, 20)
data_group3 <- c(3, 4, 5, 2, 4, 3, 100) # Mengandung pencilan
# Membuat density plot untuk masing-masing kelompok
plot(density(data_group1),
main = "Density Plot Banyak Kelompok Data",
xlab = "Nilai",
ylab = "Kepadatan",
col = "lightblue",
lwd = 2,
xlim = c(0, 25), # Mengatur batas sumbu x
ylim = c(0, 0.3)) # Mengatur batas sumbu y
lines(density(data_group2), col = "lightgreen", lwd = 5)
lines(density(data_group3), col = "lightcoral", lwd = 3)
# Menambahkan legenda
legend("topright",
legend = c("Group 1", "Group 2", "Group 3"),
col = c("lightblue", "lightgreen", "lightcoral"),
lwd = 5)

# Data manual untuk beberapa kelompok
data_group1 <- c(5, 7, 8, 5, 6, 9, 5)
data_group2 <- c(10, 12, 15, 14, 11, 13, 20)
data_group3 <- c(3, 4, 5, 2, 4, 3, 100) # Mengandung pencilan
# Membuat density plot untuk masing-masing kelompok
plot(density(data_group1),
main = "Density Plot Banyak Kelompok Data",
xlab = "Nilai",
ylab = "Kepadatan",
col = "lightblue",
lwd = 2,
xlim = c(0, 25),
ylim = c(0, 0.2))
# Mengisi area di bawah kurva untuk Group 1
polygon(c(density(data_group1)$x, rev(density(data_group1)$x)),
c(density(data_group1)$y, rep(0, length(density(data_group1)$y))),
col = "lightblue", border = NA)
# Menambahkan density plot dan area untuk Group 2
lines(density(data_group2), col = "lightgreen", lwd = 2)
polygon(c(density(data_group2)$x, rev(density(data_group2)$x)),
c(density(data_group2)$y, rep(0, length(density(data_group2)$y))),
col = "lightgreen", border = NA)
8

## [1] 8

# Menambahkan density plot dan area untuk Group 3
lines(density(data_group3), col = "lightcoral", lwd = 2)
polygon(c(density(data_group3)$x, rev(density(data_group3)$x)),
c(density(data_group3)$y, rep(0, length(density(data_group3)$y))),
col = "lightcoral", border = NA)
# Menambahkan legenda
legend("topright",
legend = c("Group 1", "Group 2", "Group 3"),
fill = c("lightblue", "lightgreen", "lightcoral"),
border = NA)