Dslabs

DS Labs

Loading library’s

library(tidyverse)

## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.2     ✔ readr     2.1.4
## ✔ forcats   1.0.0     ✔ stringr   1.5.0
## ✔ ggplot2   3.4.2     ✔ tibble    3.2.1
## ✔ lubridate 1.9.2     ✔ tidyr     1.3.0
## ✔ purrr     1.0.1     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

library(dslabs)

Loading in data

data(package="dslabs")
data("movielens")

Lets See all the movie years

unique(movielens$year)

##   [1] 1995 1941 1996 1981 1989 1978 1959 1982 1992 1991 1979 1971 1980 1988 1998
##  [16] 1986 1974 1994 1993 1990 1970 1987 1983 1997 1999 1984 2000 2002 2003 2004
##  [31] 2006 2008 2009 1977 1937 1940 1972 1958 1939 1950 1964 1951 1975 1960 1985
##  [46] 1962 1976 1942 1967 1955 1961 1953 1928 1973 1965 2001 2005 1957 1954 1968
##  [61] 1966 2007 2010 2011 2012 2013 1952 1963 1945 1946 1949 1948 1931 1969 1927
##  [76] 1933 1956 1944 1936 1925 1929 1935 2014 2015 2016 1922 1947 1926 1920 1938
##  [91] 1934 1930 1943 1921 1932 1924   NA 1915 1902 1923 1918 1917 1916 1919

movies <- movielens 

First lets filter out all the movies that are fromm 2000-2010

#movies_2000<- movies %>%
  #filter(year >= 2000 & year <= 2010)
#movies_2000

In this code, I want to determine the mosto popular movie genre’s throughout the years

MY thoughts: I want my x-axis to be the years. My y-axis to be rating. And my fill/legend to be the genre types. I want to plot the 5 most popular genre per year and see how they change throughout the decade.

Below is the code im working on, however im having trouble solving how to group those top 5 genre types per year (2000-2010) any help would be appreciated

highratings <- movies_2000 %>% group_by(genres) + summarize(mean_rating = mean(rating)) highratings