datagrafik1.R

simpan=read.table("data3.1.csv",header=TRUE,sep=",")#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
## 5      laki-laki          5           4
## 6      laki-laki          6           5
## 7      laki-laki          7         6,3
## 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
## 17     perempuan          7         6,7
## 18     perempuan          8         5,9
## 19     perempuan          9         5,7
## 20     perempuan         10           8

plot(simpan[2:3],main="Pendapatan dan Pengeluaran per-Bulan, dalam Jutaan Rupiah")

## Warning in xy.coords(x, y, xlabel, ylabel, log): NAs introduced by coercion

Pendapatan=simpan$Pendapatan
Pengeluaran=simpan$Pengeluaran
plot(Pendapatan, Pengeluaran)

## Warning in xy.coords(x, y, xlabel, ylabel, log): NAs introduced by coercion

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

## Scale for colour is already present.
## Adding another scale for colour, which will replace the existing scale.

grafik + facet_grid(.~ 'jenis kelamin')

grafik + facet_grid(. ~ 'jenis kelamin') + scale_colour_manual(values = c("blue","orange"))

## Scale for colour is already present.
## Adding another scale for colour, which will replace the existing scale.

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