data3.2

# MEMBACA DATA
simpan = read.table("data3.2.csv", header = TRUE, sep = ",")
Tahun = simpan$tahun
Jumlah_A = simpan$jenis.barang.A
Jumlah_B = simpan$jenis.barang.B
Jumlah_C = simpan$jenis.barang.C

# Gambar 3.31 (Halaman 46)
plot(Tahun, Jumlah_A)

# Gambar 3.32 (Halaman 47)
plot(Tahun, Jumlah_A, type = "o")

# Gambar 3.33 (Halaman 47)
plot(Tahun, Jumlah_A, type = "o", col = "red")
lines(Tahun, Jumlah_B, type = "o", col = "blue")

# Gambar 3.34 (Halaman 47)
plot(Tahun, Jumlah_A, type = "o", col = "red", ylim = c(70, 180))
lines(Tahun, Jumlah_B, type = "o", col = "blue")

# Gambar 3.35 (Halaman 48)
plot(Tahun, Jumlah_A, type = "o", col = "red", ylim = c(40, 180))
lines(Tahun, Jumlah_B, type = "o", col = "blue")
lines(Tahun, Jumlah_C, type = "o", col = "green")

# Gambar 3.36 (Halaman 48)
plot(Tahun, Jumlah_A, type = "o", col = "red", ylim = c(40, 180))
lines(Tahun, Jumlah_B, type = "o", pch = 22, lty = 2, col = "blue")
lines(Tahun, Jumlah_C, type = "o", col = "green")

# Gambar 3.37 (Halaman 48)
plot(Tahun, Jumlah_A, type = "o", pch = 22, lty = 2, col = "red", ylim = c(40, 180))
lines(Tahun, Jumlah_B, type = "o", pch = 22, lty = 2, col = "blue")
lines(Tahun, Jumlah_C, pch = 22, lty = 2, type = "o", col = "green")

# Gambar 3.38 (Halaman 49)
plot(Tahun, Jumlah_A, type = "p", pch = 22, lty = 2, col = "red", ylim = c(40, 180))
lines(Tahun, Jumlah_B, type = "p", pch = 22, lty = 2, col = "blue")
lines(Tahun, Jumlah_C, pch = 22, lty = 2, type = "p", col = "green")

# Gambar 3.39 (Halaman 49)
plot(Tahun, Jumlah_A, type = "o", pch = 22, lty = 2, col = "red", ylim = c(40, 180))
lines(Tahun, Jumlah_B, type = "p", pch = 22, lty = 2, col = "blue")
lines(Tahun, Jumlah_C, pch = 22, lty = 2, type = "l", col = "green")

# Gambar 3.40 (Halaman 49)
plot(Tahun, Jumlah_A, type = "o", col = "red", ylim = c(40, 180))
lines(Tahun, Jumlah_B, type = "o", col = "blue")
lines(Tahun, Jumlah_C, type = "o", col = "green")
title(main = "Data Penjualan Barang A, B, C, dari Tahun 2001-2007", col.main = "red", font.main = 4)

# Gambar 3.41 (Halaman 50)
Total = Jumlah_A
plot(Tahun, Total, type = "o", col = "red", ylim = c(40, 180), lty = 23)
lines(Tahun, Jumlah_B, type = "o", col = "blue", lty = 23)
lines(Tahun, Jumlah_C, type = "o", col = "green", lty = 23)
legend(2001, 160, c("Jenis Barang A", "Jenis Barang B", "Jenis Barang C"), 
       cex = 0.8, col = c("red", "blue", "green"), lty = 30)
title(main = "Penjualan Barang A, B, C, dari Tahun 2001-2007", col.main = "red", font.main = 4)