bab-3,diaggaris.R

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)

# Membuat grafik dasar
grafik <- ggplot(simpan,
                 aes(x = pendapatan,
                     y = pengeluaran)) +
  geom_point(aes(color = jenis.kelamin,
                 shape = jenis.kelamin))

grafik

# Mengatur warna
grafik +
  scale_colour_manual(
    values = c("blue", "orange")
  )

# Mengatur bentuk titik
grafik +
  scale_shape_manual(
    values = c(16, 5)
  )

# Mengatur warna dan bentuk titik sekaligus
grafik +
  scale_colour_manual(
    values = c("blue", "orange")
  ) +
  scale_shape_manual(
    values = c(16, 5)
  )

# Membagi grafik berdasarkan jenis
grafik +
  facet_grid(. ~ jenis.kelamin)

# Membagi grafik dan mengatur warna
grafik +
  facet_grid(. ~ jenis.kelamin) +
  scale_colour_manual(values = c("blue", "orange"))

# Menambahkan satu garis vertikal
grafik +
  geom_vline(xintercept = 2.5)

# Menambahkan dua garis vertikal
grafik +
  geom_vline(xintercept = 2.5) +
  geom_vline(xintercept = 5)

# Menambahkan beberapa garis vertikal
grafik +
  geom_vline(xintercept = c(2.5, 5, 7.5))

# Garis vertikal hijau putus-putus
grafik +
  geom_vline(
    xintercept = c(2.5, 5, 7.5),
    colour = "green",
    linetype = "longdash"
  )

# Garis vertikal dan horizontal
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"
  )