data3.2_grafikgaris.R

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             78
## 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 78 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, 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="p", 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.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="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", 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="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", 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="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), 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="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), 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="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), 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="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="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="Data 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="Data 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="Data 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="Data Penjualan Barang A, B, C, dari tahun 2001-2007", col.main="red", font.main=4)