Scraping

library(tidyverse)
library(rvest)

frozen <- read_html("https://www.imdb.com/title/tt2294629")
cast <- html_nodes(frozen, ".gJhRzH")
html_text(cast)

Reviews

frozen_reviews <- read_html("https://www.imdb.com/title/tt2294629/reviews")
all_reviews <- html_nodes(frozen_reviews, ".show-more__control")
reviews<- tibble(text = html_text(all_reviews) %>% unlist())

bigrams <- reviews %>%
  unnest_tokens(words, text, token = "ngrams", n = 2)