library(ggplot2)
library(ggplot2movies)

data1 <- movies
str(data1)
## tibble [58,788 × 24] (S3: tbl_df/tbl/data.frame)
##  $ title      : chr [1:58788] "$" "$1000 a Touchdown" "$21 a Day Once a Month" "$40,000" ...
##  $ year       : int [1:58788] 1971 1939 1941 1996 1975 2000 2002 2002 1987 1917 ...
##  $ length     : int [1:58788] 121 71 7 70 71 91 93 25 97 61 ...
##  $ budget     : int [1:58788] NA NA NA NA NA NA NA NA NA NA ...
##  $ rating     : num [1:58788] 6.4 6 8.2 8.2 3.4 4.3 5.3 6.7 6.6 6 ...
##  $ votes      : int [1:58788] 348 20 5 6 17 45 200 24 18 51 ...
##  $ r1         : num [1:58788] 4.5 0 0 14.5 24.5 4.5 4.5 4.5 4.5 4.5 ...
##  $ r2         : num [1:58788] 4.5 14.5 0 0 4.5 4.5 0 4.5 4.5 0 ...
##  $ r3         : num [1:58788] 4.5 4.5 0 0 0 4.5 4.5 4.5 4.5 4.5 ...
##  $ r4         : num [1:58788] 4.5 24.5 0 0 14.5 14.5 4.5 4.5 0 4.5 ...
##  $ r5         : num [1:58788] 14.5 14.5 0 0 14.5 14.5 24.5 4.5 0 4.5 ...
##  $ r6         : num [1:58788] 24.5 14.5 24.5 0 4.5 14.5 24.5 14.5 0 44.5 ...
##  $ r7         : num [1:58788] 24.5 14.5 0 0 0 4.5 14.5 14.5 34.5 14.5 ...
##  $ r8         : num [1:58788] 14.5 4.5 44.5 0 0 4.5 4.5 14.5 14.5 4.5 ...
##  $ r9         : num [1:58788] 4.5 4.5 24.5 34.5 0 14.5 4.5 4.5 4.5 4.5 ...
##  $ r10        : num [1:58788] 4.5 14.5 24.5 45.5 24.5 14.5 14.5 14.5 24.5 4.5 ...
##  $ mpaa       : chr [1:58788] "" "" "" "" ...
##  $ Action     : int [1:58788] 0 0 0 0 0 0 1 0 0 0 ...
##  $ Animation  : int [1:58788] 0 0 1 0 0 0 0 0 0 0 ...
##  $ Comedy     : int [1:58788] 1 1 0 1 0 0 0 0 0 0 ...
##  $ Drama      : int [1:58788] 1 0 0 0 0 1 1 0 1 0 ...
##  $ Documentary: int [1:58788] 0 0 0 0 0 0 0 1 0 0 ...
##  $ Romance    : int [1:58788] 0 0 0 0 0 0 0 0 0 0 ...
##  $ Short      : int [1:58788] 0 0 1 0 0 0 0 1 0 0 ...
class(data1)
## [1] "tbl_df"     "tbl"        "data.frame"

visualisasi HISTOGRAM, yaitu grafik yang memiliki aplikasi luas

ggplot(data=data1, aes(x=year))+geom_histogram()
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

#merubah ukuran bin
ggplot(data=data1, aes(x=year))+geom_histogram(binwidth = 1,color = "red",fill = "gold",alpha=0.8)#ukuran batang akan berubah tergantung ukuran dari binwidth

a.color untuk pewarnaan setiap garis b.fill untuk pewarnaan setiap batang c.alpha untuk membuat visualisasi jadi transparan

p<-ggplot(data=data1, aes(x=year))+geom_histogram(binwidth = 1,color = "red",fill = "gold",alpha=0.8)

p untuk mewakili seluruh program

p+xlab('Tahun Film')+ylab('Frekuensi')+ggtitle('Data Film')#merubah judul X ,y dan judul grafik

p+xlab('Tahun Film')+ylab('Frekuensi')+ggtitle('Data Film')+theme(plot.title = element_text(hjust = 0.5))#mengubah posisi judul grafik menjadi ketengah

#gradasi warna grafik
p2<-ggplot(data=data1, aes(x=year))+geom_histogram(binwidth = 1,aes(fill=..count..))
p2+xlab('Tahun Film')+ylab('Frekuensi')+ggtitle('Data Film')+theme(plot.title = element_text(hjust = 0.5))