library(dplyr) library(tidyr) netflix_data <- read.csv(“Netflix.csv”) tv_shows <- netflix_data %>% filter(type == “TV Show”) tv_shows <- tv_shows %>% separate_rows(cast, sep = “,”) %>% rename(actor = cast) top_actors <- tv_shows %>% group_by(actor) %>% count(actor, sort = TRUE) %>% top_n(6, wt = n) print(top_actors)