library(dplyr) library(readr)
movies <- read_csv(“https://gist.githubusercontent.com/tiangechen/b68782efa49a16edaf07dc2cdaa855ea/raw/0c794a9717f18b094eabab2cd6a6b9a226903577/movies.csv”) movies <- movies %>% rename(movie_title = Film, release_year = Year) movies <- movies %>% select(movie_title, release_year, Genre, Profitability) movies_filtered <- movies %>% filter(release_year > 2000, Rotten_Tomatoes > 80) From the resulting data, it is evident that the best movies—those with the highest Rotten Tomatoes percentages—are not always the most popular in terms of profitability.