#pendapatan dan pengeluaran barang

simpan = read.csv2(file.choose())
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
Pendapatan = simpan$pendapatan
Pengeluaran = simpan$pengeluaran
plot(Pendapatan, Pengeluaran)

library(ggplot2)
## Warning: package 'ggplot2' was built under R version 4.5.3
PENDAPATAN = simpan$pendapatan
PENGELUARAN = simpan$pengeluaran
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 every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.

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

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

library(ggplot2)
ggplot(simpan, aes(pendapatan, pengeluaran)) + geom_point()

colnames(simpan) <- c("jenis_kelamin", "pendapatan", "pengeluaran")

ggplot(simpan, aes(pendapatan, pengeluaran)) + 
  geom_point(aes(color = jenis_kelamin, shape = jenis_kelamin))

grafik <- ggplot(simpan, aes(pendapatan, pengeluaran)) + 
  geom_point(aes(color = jenis_kelamin, shape = jenis_kelamin))

grafik + scale_colour_manual(values = c("blue", "orange"))

grafik + scale_shape_manual(values = c(16, 5))

grafik + scale_colour_manual(values = c("blue", "orange")) + scale_shape_manual(values = c(5, 5))

grafik + facet_grid(.~ jenis_kelamin)

grafik + facet_grid(.~ jenis_kelamin) + scale_colour_manual(values = c("blue", "orange"))

grafik + geom_vline(xintercept = 2.5)

grafik + geom_vline(xintercept = 2.5) + geom_vline(xintercept = 5)

grafik + geom_vline(xintercept = 1:5)

grafik + geom_vline(xintercept = c(2.5, 5, 7.5))

grafik + geom_vline(xintercept = c(2.5, 5, 7.5), colour="green", linetype = "longdash")

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")