- Add more than one variable
fandango %>%
mutate(avgRotten = (rottentomatoes + rottentomatoes_user)/2,
avgMeta = (metacritic_norm + metacritic_user_nom)/2) %>%
select(film, year, avgRotten, avgMeta, everything())
## # A tibble: 146 x 25
## film year avgRotten avgMeta rottentomatoes rottentomatoes_~ metacritic
## <chr> <dbl> <dbl> <dbl> <int> <int> <int>
## 1 Avengers:~ 2015 80 3.42 74 86 66
## 2 Cinderella 2015 82.5 3.55 85 80 67
## 3 Ant-Man 2015 85 3.62 80 90 64
## 4 Do You Be~ 2015 51 1.72 18 84 22
## 5 Hot Tub T~ 2015 21 1.58 14 28 29
## 6 The Water~ 2015 62.5 2.95 63 62 50
## 7 Irrationa~ 2015 47.5 3.22 42 53 53
## 8 Top Five 2014 75 3.72 86 64 81
## 9 Shaun the~ 2015 90.5 4.22 99 82 81
## 10 Love & Me~ 2015 88 4.12 89 87 80
## # ... with 136 more rows, and 18 more variables: metacritic_user <dbl>,
## # imdb <dbl>, fandango_stars <dbl>, fandango_ratingvalue <dbl>,
## # rt_norm <dbl>, rt_user_norm <dbl>, metacritic_norm <dbl>,
## # metacritic_user_nom <dbl>, imdb_norm <dbl>, rt_norm_round <dbl>,
## # rt_user_norm_round <dbl>, metacritic_norm_round <dbl>,
## # metacritic_user_norm_round <dbl>, imdb_norm_round <dbl>,
## # metacritic_user_vote_count <int>, imdb_user_vote_count <int>,
## # fandango_votes <int>, fandango_difference <dbl>