Scatter Plot (Jenis Kelamin)

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

##    Jenis_Kelamin 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)
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 per session.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.

library(ggplot2)
jenis=simpan$Jenis_Kelamin
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()

ggplot(simpan, aes(Pendapatan, Pengeluaran)) + geom_point(aes(color=jenis, shape=jenis))

grafik <- ggplot(simpan, aes(Pendapatan, Pengeluaran)) + geom_point(aes(color=jenis, shape=jenis))
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")