Module 8: Apply it to your data 7

Import your data

data <- read.csv("../00_data/mydata.csv")

data_wide <- filter(data, season %in% c(1, 2), episode %in% c(1, 2)) %>%
    arrange(-desc(episode), -desc(season)) %>%
    select(painting_title, painting_index, season, episode, num_colors)

data_long <- data_wide %>%
    
    pivot_longer(cols = c("season", "episode"),
                 names_to = "1",
                 values_to = "2")

Separating and Uniting

Separate a column

Unite two columns

Missing Values