In 2017, my wife and I were fed up with the cost of cable television and were considering “cutting the cord”. In addition to cable, we also had Hulu, Netflix, and Amazon Prime, so our hypothesis was that we probably didn’t need cable. Before making the decision to cut cable, I wanted some data to help ensure that I would not be eliminating many of the TV shows that I watched. So, I started recording every episode of every TV show that I watched in a Google Sheet.
# Load libraries library(dplyr) library(readr) library(janitor) library(plotly) library(tidyr) # Import data tv = read_csv("~/Dropbox/data/andy_tv.csv") %>% drop_na() # View data head(tv)
## # A tibble: 6 x 8 ## Year Media Network Show Season Episode Time Episode_name ## <dbl> <chr> <chr> <chr> <chr> <dbl> <dbl> <chr> ## 1 2018 Netflix CBC (Canada) 21 Thunder Season… 1 44 Pilot ## 2 2018 Netflix CBC (Canada) 21 Thunder Season… 2 43 Road Game ## 3 2018 Netflix CBC (Canada) 21 Thunder Season… 3 43 Freefalling ## 4 2018 Netflix CBC (Canada) 21 Thunder Season… 4 43 Fixed ## 5 2018 Netflix CBC (Canada) 21 Thunder Season… 5 43 Heaven Or He… ## 6 2018 Netflix CBC (Canada) 21 Thunder Season… 6 43 War
I then used Plotly to create a hierarchical donut plot of the shows and media I used to view those shows. (Note. At the time I only had my 2017 data, but now, since I have several years worth of data I need to filter to get the 2017 data.)
# Filter 2017 data tv_2017 = tv %>% filter(Year == 2017) # Compute time per show for better plotting tv17 = tv_2017 %>% group_by(Media, Show, Network) %>% summarize(Time = sum(Time)) %>% ungroup() %>% select(Show, Media, Time) head(tv17)
## # A tibble: 6 x 3 ## Show Media Time ## <chr> <chr> <dbl> ## 1 Bosch Amazon Prime 805 ## 2 Goliath Amazon Prime 448 ## 3 Mozart in the Jungle Amazon Prime 814 ## 4 Private Sales Amazon Prime 140 ## 5 Red Oaks Amazon Prime 834 ## 6 Vikings Amazon Prime 836
I then looked for duplicate TV programs across media so that I could combine them. For example, I was watching Vikings at the time on Cable, but it was also available on Hulu.
# Find duplicates #tv17 %>% get_dupes(Show) # Combine duplicates tv17[tv17$Show == "Lucifer" & tv17$Media == "Cable", ]$Show = "Lucifer " tv17[tv17$Show == "Madam Secretary" & tv17$Media == "Cable", ]$Show = "Madam Secretary " tv17[tv17$Show == "Vikings" & tv17$Media == "Hulu", ]$Show = "Vikings "
Lastly, I needed to obtain the the time for each media outlet and the total time across all outlets to correctly plot the heirarchy in the donut plot.
# Obtain time by media outlet second = tv17 %>% group_by(Media) %>% summarize(Time = sum(Time)) %>% ungroup() %>% mutate(Show = Media, Media = "2017") %>% select(Show, Media, Time) # Obtain total time first = data.frame( Show = "2017", Media = "", Time = sum(second$Time) ) # Combine the hierarchies tv_17 = rbind(first, second, tv17)
Finally I could use the
plot_ly() function from the plotly library to create the donut plot.
plot_ly(tv_17) %>% add_trace( labels = ~Show, hoverinfo = 'text', hovertext = ~paste("<b>", Show, '</b><br /><br />Time Watching: ', round(Time/60, 1), ' Hours'), parents = ~Media, values = ~Time, type = 'sunburst', branchvalues = 'total' ) %>% layout( sunburstcolorway = c( "#cc2a36","#edc951","#4f372d", "#00a0b0" ) )
It turns out that most of what I was watching was through the streaming services and not cable. Those shows that I was watching on cable are also either on premium channels (e.g., HBO and Showtime) which are available as separate add-ons to most streaming services, or were shows that were also available on Hulu.
I realized that after the fact, the one important thing I didn’t collect data on was live sports. This, it turns out, is quite important. Both my wife and I love college football and watching these games without having to leave the house every weekend means that we do need to have some sort of live TV option. Ultimately, we switched to Hulu Live which turned out to be a huge cost savings relative to cable. We chose this streaming service because of the sports channel options without needing an additional sports package; the big decider was that Hulu Live had BTN. (Reality check: Watching live sports on Hulu Live is not without its pain. It buffers more than I would like, especially during evernts that are more highly viewed. This seems to be especially true with any of the Fox stations (FSN, FS1, Fox) which televises many of the MLB, NFL, and NHL games I watch.)
Current TV Habits and More Cutting
I have continued to collect data on the TV shows I watch. I still haven’t collected data about the live sports I watch, but that is restricted to particular stations such as ESPN, ESPN2, FSN, FS1, FS2 (occasionally), and BTN. My sense is that the a la carte options we have long dreamed of, are in some ways here. Unfortunately, it is not quite the correct vision. Most a la carte options are still tied to particular channels or suites of channels rather than individual programs. And it is still cheaper to purchase those channels via a streaming service than to buy the episodes of the shows I like.
More options open up for streaming TV (Apple TV, Disney) everyday. In addition to Hulu Live, Youtube TV, Sling, and Playstation Vue (the options when we looked in 2017), there are many more: Apple TV, Disney, fubo, CBS, etc. The main differentiator seems to be channel selection, so it seems relevant to look at the network that produce and air the shows I like. Below I create a similar donut chart for my TV data, this time by network, since 2017.
In looking at these plots, I must say that I watch more network TV than I thought I did (especially on CBS, which anecdotally I thought produced garbage). Although, many of the network shows were older shows that I watched on Netflix and Amazon Prime. The bevy of foreign networks each was primarily associated with a single show and more often than not were aired on Netflix. I am also starting to wonder about the cost-effectiveness for keeping HBO and Showtime, although my wife watches a lot of shows on those channels, so it is probably worth it.
Many of the network programs are available with regular Hulu, and outside of sports we could probably dump Hulu Live. But, to paraphrase the great comedian Steve Martin, sports is like the sun and a day without sun is like…well…night.