Import data
# excel file
data <- read_csv("data/myData.csv")
## Rows: 247 Columns: 25
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (10): brand, superbowl_ads_dot_com_url, youtube_url, id, kind, etag, ti...
## dbl (7): year, view_count, like_count, dislike_count, favorite_count, comm...
## lgl (7): funny, show_product_quickly, patriotic, celebrity, danger, animal...
## dttm (1): published_at
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
data
## # A tibble: 247 × 25
## year brand superbowl_ads_dot_co…¹ youtube_url funny show_product_quickly
## <dbl> <chr> <chr> <chr> <lgl> <lgl>
## 1 2018 Toyota https://superbowl-ads… https://ww… FALSE FALSE
## 2 2020 Bud Light https://superbowl-ads… https://ww… TRUE TRUE
## 3 2006 Bud Light https://superbowl-ads… https://ww… TRUE FALSE
## 4 2018 Hynudai https://superbowl-ads… https://ww… FALSE TRUE
## 5 2003 Bud Light https://superbowl-ads… https://ww… TRUE TRUE
## 6 2020 Toyota https://superbowl-ads… https://ww… TRUE TRUE
## 7 2020 Coca-Cola https://superbowl-ads… https://ww… TRUE FALSE
## 8 2020 Kia https://superbowl-ads… https://ww… FALSE FALSE
## 9 2020 Hynudai https://superbowl-ads… https://ww… TRUE TRUE
## 10 2020 Budweiser https://superbowl-ads… https://ww… FALSE TRUE
## # ℹ 237 more rows
## # ℹ abbreviated name: ¹​superbowl_ads_dot_com_url
## # ℹ 19 more variables: patriotic <lgl>, celebrity <lgl>, danger <lgl>,
## # animals <lgl>, use_sex <lgl>, id <chr>, kind <chr>, etag <chr>,
## # view_count <dbl>, like_count <dbl>, dislike_count <dbl>,
## # favorite_count <dbl>, comment_count <dbl>, published_at <dttm>,
## # title <chr>, description <chr>, thumbnail <chr>, channel_title <chr>, …
Plot data
data %>%
ggplot(aes(brand)) +
geom_bar()
