data3.3.csv-Grafik-Batang-Bagian-Pertama-.R

simpan=read.table("C:/STASOS/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,Tahun, 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"))

library(ggplot2)

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