grafik garis

simpan = read.table("data3.2.csv.csv", header = TRUE, sep = ",") # membaca data
simpan

##   tahun jenis.barang.A jenis.barang.B jenis.barang.C
## 1  2001             90             85             50
## 2  2002            110             90             55
## 3  2003            115            105             60
## 4  2004            130            110             65
## 5  2005            140            120             75
## 6  2006            155            125             80
## 7  2007            160            130             85

Tahun = simpan$tahun
Jumlah_A = simpan$jenis.barang.A
Jumlah_B = simpan$jenis.barang.B
Jumlah_C = simpan$jenis.barang.C

Jumlah_A

## [1]  90 110 115 130 140 155 160

Jumlah_B

## [1]  85  90 105 110 120 125 130

Jumlah_C

## [1] 50 55 60 65 75 80 85

plot(Tahun, Jumlah_A)

plot(Tahun, Jumlah_A, type = "o")

plot(Tahun, Jumlah_A, type = "o", col = "blue")

plot(Tahun, Jumlah_A, type = "o", col = "green")

plot(Tahun, Jumlah_A, type = "o", col = "red")

lines(Tahun, Jumlah_B, type = "o", col = "blue")

plot(Tahun, Jumlah_A, type = "o", col = "red", ylim = c(70, 180))
lines(Tahun, Jumlah_B, type = "o", col = "blue")

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

plot(Tahun, Jumlah_A, type = "o", col = "red", ylim = c(40, 180))

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, type="o", pch=22, lty=2, col="green")

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, type="p", pch=22, lty=2, col="green")

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, type="l", pch=22, lty=2, col="green")

plot.new()
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)

Total <- Jumlah_A
plot.new()
plot (Tahun, Total, 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)

Total <- Jumlah_A
plot.new()
plot (Tahun, Total, type="o", col="red", ylim=c(40,180))
lines (Tahun, Jumlah_B, type="o", col="blue")
lines (Tahun, Jumlah_C, type="o", col="green")
legend (2001,160,c("Jenis Barang A", "Jenis Barang B", "Jenis Barang C"), cex=0.8, col=c("red", "blue", "green"), pch=21)
title(main="Penjualan Barang A, B, C, dari Tahun 2001-2007", col.main="red", font.main=4)

Total <- Jumlah_A
plot.new()
plot (Tahun, Total, type="o", col="red", ylim=c(40,180))
lines (Tahun, Jumlah_B, type="o", col="blue")
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)

Total <- Jumlah_A
plot.new()
plot (Tahun, Total, type="o", col="red", ylim=c(40,180))
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)

Total <- Jumlah_A
plot.new()
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)

Total <- Jumlah_A
plot.new()
plot (Tahun, Total, type="o", col="red", ylim=c(40,180), lty=23)
lines (Tahun, Jumlah_B, type="s", 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)

Total <- Jumlah_A
plot.new()
plot (Tahun, Total, type="o", col="red", ylim=c(40,180), lty=23)
lines (Tahun, Jumlah_B, type="l", 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)

Total <- Jumlah_A
plot.new()
plot (Tahun, Total, type="o", col="red", ylim=c(40,180))
lines (Tahun, Jumlah_B, type="l", 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)

Total <- Jumlah_A
plot (Tahun, Total, type="o", col="red", ylim=c(40,180), xaxt="n")
Axis(at=2001:2007, side=1, labels=c("A", "B", "C", "D", "E", "F", "G"))
lines (Tahun, Jumlah_B, type="l", 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)

Total <- Jumlah_A
plot (Tahun, Total, type="o", col="red", ylim=c(40,180), xaxt="n")
Axis(at=2001:2007, side=1, labels=c("Tahun 1", "Tahun 2", "Tahun 3", "Tahun 4", "Tahun 5", "Tahun 6", "Tahun 7"))
lines (Tahun, Jumlah_B, type="l", 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)

Total <- Jumlah_A
plot (Tahun, Total, type="o", col="red", ylim=c(40,180), xaxt="n")
Axis(at=2001:2007, side=3, labels=c("Tahun 1", "Tahun 2", "Tahun 3", "Tahun 4", "Tahun 5", "Tahun 6", "Tahun 7"))
lines (Tahun, Jumlah_B, type="l", 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)