Module 5: Apply 4
Mitchell Cripps
Import data
# csv file
salary <- read_csv("../00_data/myData.csv")
salary## # 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>, …State one question
from 2000 to 2020 how many companies aired a super bowl at least 10 times.
Plot data
ggplot(data = salary) +
geom_point(mapping = aes(x = brand, y = year))
Interpret
Most of the companies aired an advertisement 10 or more times over the years.