library(ggplot2)
simpan = read.table("dat3.1.csv", header=TRUE, sep=",")
pendapatan = simpan$pendapatan
pengeluaran = simpan$pengeluaran
jenis = simpan$jeniskelamin
grafik = ggplot(simpan, aes(pendapatan, pengeluaran)) + geom_point(aes(color=jenis, shape=jenis))
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")