#MEMPLOT DATA DALAM R(SCATTER PLOT)
simpan=read.table("C:/STATISTIK SOSIAL 2026/data.1a12.csv",header=TRUE,sep=";",dec=",") #membaca data
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
#Gambar 3.3
plot(simpan[2:3], main="Pendapatan dan Pengeluaran per-bulan, dalam Jutaan Rupiah")
#Gambar 3.7
Pendapatan=simpan$Pendapatan
Pengeluaran=simpan$Pengeluaran
plot(Pendapatan, Pengeluaran)
#Gambar 3.9
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.
#Gambar 3.11
library(ggplot2)
jenis=simpan$Jenis.kelamin
qplot(PENDAPATAN, PENGELUARAN, main="Pendapatan dan Pengeluaran perBulan, 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)
#Gambar 3.13
library(ggplot2)
ggplot(simpan, aes(Pendapatan, Pengeluaran)) + geom_point()
#Gambar 3.15
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_color_manual(values = c("blue", "orange"))
#Gambar 3.16
grafik + scale_shape_manual(values = c(16, 5))
grafik + scale_colour_manual(values = c("blue", "orange")) + scale_shape_manual(values = c(5, 5))
#Gambar 3.17
grafik + facet_grid(.~Jenis.kelamin)
grafik + facet_grid(. ~ Jenis.kelamin) + scale_colour_manual(values = c("blue", "orange"))
#Gambar 3.18
grafik + geom_vline(xintercept = 2.5)
#Gambar 3.19
grafik + geom_vline(xintercept = 2.5) + geom_vline(xintercept = 5)
#Gambar 3.20
grafik + geom_vline(xintercept = 1:5)
grafik + geom_vline(xintercept = c(2.5, 5, 7,5))
#Gambar 3.21
grafik + geom_vline(xintercept = c(2.5, 5, 7.5), colour ="green", linetype = "longdash")
#Gambar 3.22
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")
