data3.3

simpan=read.table("data3.3.csv", header = TRUE, sep =",")
simpan

##   tahun jenis.barang.A
## 1  2001             90
## 2  2002            110
## 3  2003            115
## 4  2004            130
## 5  2005            140
## 6  2006            155
## 7  2007            160

Tahun=simpan$tahun
Jumlah_A=simpan$jenis.barang.A
barplot(Jumlah_A,Tahun)

barplot(Jumlah_A,Tahun, main="penjualan barang jenis A dari tahun 2001-2008", xlab="Tahun", 
        ylab="Jumlah barang yang terjual", names.arg=c("2001", "2002","2003", "2004", "2005",  "2006", "2007"))

barplot(Jumlah_A,Tahun, main="penjualan barang jenis A dari tahun 2001-2008", xlab="Tahun", 
        ylab="Jumlah barang yang terjual", names.arg=c("2001", "2002","2003", "2004", "2005",  "2006", "2007"))
barplot(Jumlah_A,Tahun, main="penjualan barang jenis A dari tahun 2001-2008", xlab="Tahun", 
        ylab="Jumlah barang yang terjual", names.arg=c("2001", "2002","2003", "2004", "2005",  "2006", "2007"), border="blue")

barplot(Jumlah_A,Tahun, main="penjualan barang jenis A dari tahun 2001-2008", xlab="Tahun", 
        ylab="Jumlah barang yang terjual", names.arg=c("2001", "2002","2003", "2004", "2005",  "2006", "2007"), border="red")

barplot(Jumlah_A,Tahun, main="penjualan barang jenis A dari tahun 2001-2008", xlab="Tahun", 
        ylab="Jumlah barang yang terjual", names.arg=c("2001", "2002","2003", "2004", "2005",  "2006", "2007"),
        border="green", density=c(10,20,30,40,50,60,70) )

library(ggplot2)
ggplot(data=simpan, aes(x=Tahun,y=Jumlah_A)) + geom_bar(stat = "identity")

ggplot(data=simpan, aes(x=Tahun,y=Jumlah_A)) + geom_bar(stat = "identity", fill="darkblue")

ggplot(data=simpan, aes(x=Tahun,y=Jumlah_A)) + geom_bar(stat = "identity",  fill=heat.colors(7))