simpan=read.csv(file.choose(),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,
data = simpan,
main = "Pendapatan dan Pengeluaran per-Bulan, dalam Jutaan",
xlab = "Pendapatan per-Bulan",
ylab = "Pengeluaran per-Bulan",
color = simpan$jenis,
shape = simpan$jenis)
## 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.
## Warning: Use of `simpan$jenis` is discouraged.
## ℹ Use `jenis` instead.
## Use of `simpan$jenis` is discouraged.
## ℹ Use `jenis` instead.
library(ggplot2)
ggplot(simpan, aes(Pendapatan, pengeluaran)) + geom_point()
ggplot(simpan, aes(pendapatan, pengeluaran)) + geom_point(aes(color = simpan$jenis, shape = simpan$jenis))
## Warning: Use of `simpan$jenis` is discouraged.
## ℹ Use `jenis` instead.
## Use of `simpan$jenis` is discouraged.
## ℹ Use `jenis` instead.
grafik <- ggplot(simpan, aes(x = pendapatan, y = pengeluaran)) + geom_point(aes(color = simpan$jenis, shape = simpan$jenis))
grafik + scale_colour_manual(values = c("blue", "orange"))
## Warning: Use of `simpan$jenis` is discouraged.
## ℹ Use `jenis` instead.
## Use of `simpan$jenis` is discouraged.
## ℹ Use `jenis` instead.
grafik + scale_shape_manual(values = c(16, 5))
## Warning: Use of `simpan$jenis` is discouraged.
## ℹ Use `jenis` instead.
## Use of `simpan$jenis` is discouraged.
## ℹ Use `jenis` instead.
grafik + scale_colour_manual(values = c("blue", "orange")) + scale_shape_manual(values = c(5, 5))
## Warning: Use of `simpan$jenis` is discouraged.
## ℹ Use `jenis` instead.
## Use of `simpan$jenis` is discouraged.
## ℹ Use `jenis` instead.
grafik + facet_grid(. ~ jenis.kelamin)
## Warning: Use of `simpan$jenis` is discouraged.
## ℹ Use `jenis` instead.
## Use of `simpan$jenis` is discouraged.
## ℹ Use `jenis` instead.
grafik + facet_grid(. ~ jenis.kelamin) + scale_colour_manual(values = c("blue", "orange"))
## Warning: Use of `simpan$jenis` is discouraged.
## ℹ Use `jenis` instead.
## Use of `simpan$jenis` is discouraged.
## ℹ Use `jenis` instead.
grafik + geom_vline(xintercept = 2.5)
## Warning: Use of `simpan$jenis` is discouraged.
## ℹ Use `jenis` instead.
## Use of `simpan$jenis` is discouraged.
## ℹ Use `jenis` instead.
grafik + geom_vline(xintercept = 2.5) + geom_vline(xintercept = 5)
## Warning: Use of `simpan$jenis` is discouraged.
## ℹ Use `jenis` instead.
## Use of `simpan$jenis` is discouraged.
## ℹ Use `jenis` instead.
grafik + geom_vline(xintercept = 1.5)
## Warning: Use of `simpan$jenis` is discouraged.
## ℹ Use `jenis` instead.
## Use of `simpan$jenis` is discouraged.
## ℹ Use `jenis` instead.
grafik + geom_vline(xintercept = c(2.5, 5, 7.5))
## Warning: Use of `simpan$jenis` is discouraged.
## ℹ Use `jenis` instead.
## Use of `simpan$jenis` is discouraged.
## ℹ Use `jenis` instead.
grafik + geom_vline(xintercept = c(2.5, 5, 7.5), colour = "green", linetype = "longdash")
## Warning: Use of `simpan$jenis` is discouraged.
## ℹ Use `jenis` instead.
## Use of `simpan$jenis` is discouraged.
## ℹ Use `jenis` instead.
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")
## Warning: Use of `simpan$jenis` is discouraged.
## ℹ Use `jenis` instead.
## Use of `simpan$jenis` is discouraged.
## ℹ Use `jenis` instead.
