Distribusi Diskrit

Distribusi Diskrit

#Distribusi Poissosn

set.seed(123)
y=rpois(n = 10, lambda = 4)
print(y)

##  [1] 3 6 3 6 7 1 4 7 4 4

set.seed(0)
y=rpois(n = 10, lambda = 4)
print(y)

##  [1] 7 3 3 4 7 2 7 7 5 5

set.seed(1)
y=rpois(n = 10, lambda = 4)
print(y)

##  [1] 3 3 4 7 2 7 7 5 5 1

set.seed(2)
y=rpois(n = 10, lambda = 4)
print(y)

##  [1] 2 5 4 2 7 7 2 6 4 4

set.seed(0123)
y=rpois(n = 10, lambda = 4)
print(y)

##  [1] 3 6 3 6 7 1 4 7 4 4

barplot(y,
        main = "Barplot Data Poisson",
        xlab = "Indeks Data",
        ylab = "Nilai Poisson",
        col = "skyblue",
        border = "black")

#Distribusi Bernaulli

set.seed(1)
z <- rbinom(n = 10, size = 1, prob = 0.5)
print(z)

##  [1] 0 0 1 1 0 1 1 1 1 0

barplot(table(z), 
        main = "Diagram Batang Bernoulli (z)",
        xlab = "Nilai", ylab = "Frekuensi",
        col = c("red", "skyblue"),
        names.arg = c("0 (Gagal)", "1 (Sukses)"))

#Distribusi Multinominal

library(ggplot2)

# 1. PERSIAPAN DATA (N Pendidikan = 30, N Pekerjaan = 46)
data_diagram <- data.frame(
  Grup = factor(
    rep(c("Tingkat Pendidikan\n(N = 30)", "Jenis Pekerjaan\n(N = 46)"), each = 4),
    levels = c("Tingkat Pendidikan\n(N = 30)", "Jenis Pekerjaan\n(N = 46)")
  ),
  Kategori = c("SD", "SMP", "SMA", "Kuliah", "Petani", "Pedagang", "Guru", "Dokter"),
  Jumlah = c(6, 9, 10, 5, 15, 12, 12, 7),
  # Skema 2 Warna Utama: Biru (Kelompok SD/Petani) & Merah (Kelompok Lain)
  Warna_Grup = c("Biru 1", "Merah 1", "Merah 2", "Merah 3", "Biru 2", "Merah 1", "Merah 2", "Merah 3")
)

# Menjaga urutan tumpukan dari bawah ke atas
data_diagram$Kategori <- factor(data_diagram$Kategori, levels = c("SD", "SMP", "SMA", "Kuliah", "Petani", "Pedagang", "Guru", "Dokter"))

# 2. MEMBUAT DIAGRAM BATANG
ggplot(data_diagram, aes(x = Grup, y = Jumlah, fill = Warna_Grup)) +
  geom_col(width = 0.5, color = "black") +
  geom_text(aes(label = paste0(Kategori, "\n(", Jumlah, ")")), 
            position = position_stack(vjust = 0.5), color = "white", fontface = "bold", size = 3.5) +
  scale_fill_manual(
    values = c(
      "Biru 1"  = "#1f77b4", # Warna Biru untuk SD
      "Biru 2"  = "#2ca02c", # Warna Biru/Spesifik untuk Petani
      "Merah 1" = "#d62728", 
      "Merah 2" = "#ff7f0e", 
      "Merah 3" = "#e377c2"
    ),
    guide = "none" # Sembunyikan legenda internal karena nama kategori sudah ada di dalam batang
  ) +
  labs(
    title = "Distribusi Tingkat Pendidikan dan Jenis Pekerjaan",
    x = "",
    y = "Jumlah Orang (Frekuensi)"
  ) +
  theme_minimal()

#