grafik3.3.R

simpan =read.table("C:/Users/Moza_/OneDrive/Documents/STATISTIK/data3.3.csv",header=TRUE, sep=";") #membaca data 
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, names.arg=Tahun)

barplot(Jumlah_A, main="Penjualan Barang Jenis A dari Tahun 2001-2007", xlab="Tahun",
        ylab="Jumlah Barang yang Terjual", names.arg=c("2001","2002", "2003", "2004","2005","2006","2007"))

barplot (Jumlah_A, main="Penjualan Barang Jenis A dari Tahun 2001-2007", xlab="Tahun",
         ylab="Jumlah Barang yang Terjual", names.arg=c("2001","2002", "2003", "2004", "2005", "2006","2007"))

barplot (Jumlah_A, main="Penjualan Barang Jenis A dari Tahun 2001-2007", xlab="Tahun",
         ylab="Jumlah Barang yang Terjual", names.arg=c("2001", "2002", "2003", "2004", "2005", "2006","2007"), border="blue")

barplot(Jumlah_A, main="penjualan Barang Jenis A dari Tahun 2001-2007", xlab="Tahun",
        ylab="Jumlah Barang yang Terjual", names.arg=c("2001", "2002", "2003", "2004","2005","2006","2007"), border="red")

barplot(Jumlah_A, main="penjualan Barang Jenis A dari Tahun 2001-2007", 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))