library(readxl) library(tidyverse)

netflix_data <- read_excel(“Netflix.xlsx”) netflix_data_transformed <- netflix_data %>% separate_rows(cast, sep = “,”) %>% rename(actor = cast) head(netflix_data_transformed)

library(writexl)

write_xlsx(netflix_data_transformed, “transformed_netflix.xlsx”)