Import data
# excel file
data <- read_excel("data/myData.xlsx")
data
## # A tibble: 177 × 20
## Column1 Column2 Column3 Column4 Column5 Column6 Column7 Column8 Column9
## <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 category subcat… title direct… releas… releas… air_da… worldw… worldw…
## 2 Theatrical r… English Super … Rocky … 1993-0… May 28… NA $ 389124…
## 3 Theatrical r… English Double… James … 1994-1… Novemb… NA $ 4152699
## 4 Theatrical r… English Street… Steven… 1994-1… Decemb… NA $ 994235…
## 5 Theatrical r… English Mortal… Paul W… 1995-0… August… NA $ 124741…
## 6 Theatrical r… English Mortal… John R… 1997-1… Novemb… NA $ 513768…
## 7 Theatrical r… English Wing C… Chris … 1999-0… March … NA $ 115780…
## 8 Theatrical r… English Lara C… Simon … 2001-0… June 1… NA $ 274703…
## 9 Theatrical r… English Reside… Paul W… 2002-0… March … NA $ 102984…
## 10 Theatrical r… English Lara C… Jan de… 2003-0… July 2… NA $ 156505…
## # ℹ 167 more rows
## # ℹ 11 more variables: Column10 <chr>, Column11 <chr>, Column12 <chr>,
## # Column13 <chr>, Column14 <chr>, Column15 <chr>, Column16 <chr>,
## # Column17 <chr>, Column18 <chr>, Column19 <chr>, Column20 <chr>
Plot data
data %>%
ggplot(aes(Column8))+
geom_bar()
