Bab 3

simpan = read.table("data3.1.csv", header = TRUE, sep = ",")
simpan

##    jeniskelamin pendapatan pengeluaran
## 1     laki-laki          1         0.5
## 2     laki-laki          2         0.9
## 3     laki-laki          3         1.1
## 4     laki-laki          4         2.0
## 5     laki-laki          5         4.0
## 6     laki-laki          6         5.0
## 7     laki-laki          7         6.2
## 8     laki-laki          8         5.5
## 9     laki-laki          9         5.8
## 10    laki-laki         10         4.5
## 11    perempuan          1         0.7
## 12    perempuan          2         1.4
## 13    perempuan          3         2.8
## 14    perempuan          4         3.3
## 15    perempuan          5         4.3
## 16    perempuan          6         5.0
## 17    perempuan          7         6.7
## 18    perempuan          8         5.9
## 19    perempuan          9         5.7
## 20    perempuan         10         8.0

plot(simpan[2:3], main = "Pendapatan dan Pengeluaran per-Bulan, dalam Jutaan Rupiah")

Pendapatan = simpan$pendapatan
Pengeluaran = simpan$pengeluaran
plot(Pendapatan, Pengeluaran)

library(ggplot2)
qplot(Pendapatan, Pengeluaran, 
      main = "Pendapatan dan Pengeluaran per-Bulan, dalam Jutaan",
      xlab = "Pendapatan per-Bulan", 
      ylab = "Pengeluaran per-Bulan")

## Warning: `qplot()` was deprecated in ggplot2 3.4.0.
## This warning is displayed once per session.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.

jenis = simpan$jeniskelamin
qplot(Pendapatan, Pengeluaran, 
      main = "Pendapatan dan Pengeluaran per-Bulan, dalam Jutaan",
      xlab = "PENDAPATAN", 
      ylab = "PENGELUARAN",
      color = jenis, shape = jenis)

# 1. Membaca data
simpan = read.table("data3.1.csv", header = TRUE, sep = ",")
jenis = simpan$jeniskelamin

# 2. Gambar 3.15 (Halaman 40): Scatter plot dengan warna & bentuk titik bawaan
ggplot(simpan, aes(pendapatan, pengeluaran)) + 
  geom_point(aes(color = jenis, shape = jenis))

# 3. Membuat objek grafik dasar
grafik = ggplot(simpan, aes(pendapatan, pengeluaran)) + 
  geom_point(aes(color = jenis, shape = jenis))

# 4. Gambar 3.16 (Halaman 40): Kustomisasi bentuk titik (bulat padat dan wajik berongga)
grafik + scale_shape_manual(values = c(16, 5))

# 5. Gambar 3.17 (Halaman 41): Memisahkan panel grafik (laki-laki dan perempuan)
grafik + facet_grid(. ~ jeniskelamin)

# 6. Gambar 3.18 (Halaman 41): Garis vertikal di x = 2.5
grafik + geom_vline(xintercept = 2.5)

# 7. Gambar 3.19 (Halaman 42): Dua garis vertikal di x = 2.5 dan x = 5
grafik + geom_vline(xintercept = 2.5) + geom_vline(xintercept = 5)

# 8. Gambar 3.20 (Halaman 42): Garis vertikal 1 sampai 5
grafik + geom_vline(xintercept = 1:5)

# 9. Gambar 3.21 (Halaman 43): Tiga garis vertikal hijau putus-putus
grafik + geom_vline(xintercept = c(2.5, 5, 7.5), colour = "green", linetype = "longdash")

# 10. Gambar 3.22 (Halaman 43): Garis vertikal hijau dan garis horizontal merah putus-putus
grafik + 
  geom_vline(xintercept = c(2.5, 5, 7.5), colour = "green", linetype = "longdash") +
  geom_hline(yintercept = c(2, 4, 6), colour = "red", linetype = "longdash")