library(openxlsx)
library(dplyr)
library(tidyr)
netflix_df <- read.csv("C:/Users/pongpichai.r/Desktop/netflix_titles.csv")
netflix_df
str(netflix_df)
netflix_df2 <- netflix_df %>% separate(duration,into = c("value","unit"),sep = " ",convert= TRUE)
netflix_df3 <- netflix_df %>% separate(duration,into = c("value","unit"),sep = " ",convert= TRUE) %>%
group_by(type,unit) %>%
summarise(Mean_Duration = mean(value))
netflix_df4 <- netflix_df2 %>% unite("duration",value,unit,sep = " ")