HW2

## ```{r}

## #> library(tidyverse)
## > transformed_data <-Netflix %>%
## + separate_rows(cast, sep =  ) %>%
## + rename(actor=cast)
## > actor_count <- transformed_data %>%
## + count(actor, sort = TRUE)
## > top_actors <- actor_count %>%
## + head(6)
## > top_actors

## ```