distibusi-diskrit–pertemuan-5-.R

#DISTRIBUSI DISKRIT
y=rpois(10,2)
y=rpois(n=10, lambda=y)
print(y)

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

set.seed(123)
print(y)

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

set.seed(1)
print(y)

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

set.seed(2)
print(y)

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

set.seed(3)
print(y)

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

set.seed(0)
print(y)

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

set.seed(0123)
print(y)

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

#######################
z=rbinom(n=10, size=1, prob=0.7)
print(z)

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

set.seed(2)
print(z)

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

# 1. Bangkitkan data acak Bernoulli
set.seed(123)
z <- rbinom(n = 10, size = 1, prob = 0.7)

# 2. Hitung frekuensi kemunculan angka 0 dan 1
tabel_frekuensi <- table(z)

# 3. Atur layout agar tampilan grafik 1 baris 2 kolom
par(mfrow = c(1, 2))

# --- Grafik Batang (Bar Chart) ---
barplot(
  tabel_frekuensi,
  names.arg = c("0 (Gagal)", "1 (Sukses)"),
  col = c("red", "steelblue"),
  xlab = "Hasil",
  ylab = "Frekuensi",
  main = "Grafik Batang",
  ylim = c(0, max(tabel_frekuensi) + 2)
)

# --- Grafik Lingkaran (Pie Chart) ---
pie(
  tabel_frekuensi,
  labels = paste(names(tabel_frekuensi), "=", tabel_frekuensi),
  col = c("red", "steelblue"),
  main = "Grafik Lingkaran"
)

# Kembalikan layout ke normal
par(mfrow = c(1, 1))

#------------------
# Punya 4 percobaan Bernoulli berbeda
p1 <- rbinom(n = 10, size = 1, prob = 0.2)
p2 <- rbinom(n = 10, size = 1, prob = 0.4)
p3 <- rbinom(n = 10, size = 1, prob = 0.6)
p4 <- rbinom(n = 10, size = 1, prob = 0.8)

# Hitung jumlah sukses (angka 1) di tiap percobaan
sukses <- c(sum(p1), sum(p2), sum(p3), sum(p4))
names(sukses) <- c("Percobaan 1", "Percobaan 2", "Percobaan 3", "Percobaan 4")

# Plot 4 warna
warna_4 <- c("coral", "steelblue", "mediumseagreen", "gold")
barplot(sukses, col = warna_4, ylab = "Jumlah Sukses", main = "Perbandingan 4 Bernoulli")

#-----------------------------

# 1. Buat data frekuensi jumlah orang yang tamat
jumlah_tamat <- c(SD = 15, SMP = 25, SMA = 40, PT = 20)
warna_4 <- c("#FF9999", "#66B2FF", "#99FF99", "#FFCC99")
par(mfrow = c(1, 2), mar = c(4, 4, 3, 1))

# --- Grafik Batang (Barplot) ---
barplot(
  jumlah_tamat,
  col = warna_4,
  xlab = "Tingkat Pendidikan",
  ylab = "Jumlah Orang",
  main = "Jumlah Tamatan Sekolah",
  ylim = c(0, max(jumlah_tamat) + 10),
  cex.names = 0.8,
  cex.main = 0.9
)

# --- Grafik Lingkaran (Pie Chart) ---
pie(
  jumlah_tamat,
  labels = paste(names(jumlah_tamat), "\n", jumlah_tamat, "org"),
  col = warna_4,
  main = "Proporsi Tamatan",
  cex = 0.8,
  cex.main = 0.9
)

# Kembalikan layout ke normal
par(mfrow = c(1, 1))

#-----------------------------------#

library(ggplot2)

# 1. Buat Dataframe
df <- data.frame(
  Pendidikan = factor(rep(c("SD", "SMP", "SMA", "Kuliah"), each = 4), levels = c("SD", "SMP", "SMA", "Kuliah")),
  Pekerjaan = rep(c("Buruh/Tani", "Wiraswasta", "Karyawan", "PNS/Profesional"), 4),
  Jumlah = c(12, 3, 0, 0,  3, 15, 7, 0,  0, 8, 22, 10,  0, 1, 4, 15)
)

# Filter data agar angka 0 tidak ikut tercetak di grafik
df_text <- df[df$Jumlah > 0, ]

# 2. Buat Stacked Bar Chart dengan Angka di Dalam Batang
ggplot(df, aes(x = Pendidikan, y = Jumlah, fill = Pekerjaan)) +
  geom_bar(stat = "identity", position = "stack") +
  geom_text(
    data = df_text,
    aes(label = Jumlah),
    position = position_stack(vjust = 0.5), # Kunci posisi teks tepat di tengah tumpukan
    color = "white",
    fontface = "bold",
    size = 4
  ) +
  scale_fill_manual(values = c("#E66101", "#FDB863", "#B2ABD2", "#5E3C99")) +
  labs(
    title = "Jumlah Pekerjaan berdasarkan Tingkat Pendidikan",
    x = "Tingkat Pendidikan",
    y = "Jumlah Orang"
  ) +
  theme_minimal()

#-------------