menyajikan-data-dalam-grafik_memplot-data-dalam-R….R

#### nama: Diva Lathifah Zain ####
#### nim: 2502056042 ####
#### matkul: statistika sosial ####

## bab 3 ##

##menyajikan data dalam grafik##

###memplot data dalam r (scatter plot)###

simpan=read.table(file.choose(),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.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 per-Bulan, dalam Jutaan", 
xlab="PENDAPATAN", ylab="PENGELUARAN", color=jenis, shape=jenis)

library(ggplot2)
ggplot(simpan, aes(pendapatan, pengeluaran)) + geom_point()

ggplot<- ggplot(simpan, aes(pendapatan, pengeluaran)) + geom_point(aes(color = jenis.kelamin, shape = jenis))

grafik <- ggplot(simpan, aes(pendapatan, pengeluaran)) + geom_point(aes(color = jenis.kelamin, shape = jenis))
grafik + scale_colour_manual(values = c ("blue", "orange"))

grafik + scale_colour_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 = c(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")