Grafik Garis (Jenis Barang A, B, C)

simpan=read.table("data3.2.csv",header=TRUE,sep=",")
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))
lines(Tahun,Jumlah_B, type="o", pch=22, col="blue")
lines(Tahun, Jumlah_C, type="o", col="green")

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

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

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="l", col="green")

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

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)