library(tidyverse)

Exercise 1: Parsing data

Part 1: Parsing dates

Generate the correct format string to parse each of the following dates and times:

d1 <- "January 1, 2010"
d2 <- "2015-Mar-07"
d3 <- "06-Jun-2017"
d4 <- c("August 19 (2015) - 3:04PM", "July 1 (2015) - 4:04PM")
d5 <- "12/30/14" # Dec 30, 2014
t1 <- "1705"     # 5:05PM

Part 2: Read a CSV file

Download this NCHS dataset on leading Causes of death in the United States, from 1999 to 2015: https://data.cdc.gov/api/views/bi63-dtpu/rows.csv.

Then, import it into R. Are some of the colums the wrong type? If not is there any column that could be a factor instead of character type?

Execise 2: Data manipulation

Part 1: dplyr verbs

Load in the dataset movies.csv used in the lecture:

url <- "https://raw.githubusercontent.com/Juanets/movie-stats/master/movies.csv"
movies <- read_csv(url)
Parsed with column specification:
cols(
  budget = col_double(),
  company = col_character(),
  country = col_character(),
  director = col_character(),
  genre = col_character(),
  gross = col_double(),
  name = col_character(),
  rating = col_character(),
  released = col_character(),
  runtime = col_integer(),
  score = col_double(),
  star = col_character(),
  votes = col_integer(),
  writer = col_character(),
  year = col_integer()
)

  1. Find a subset of the movies produced after 2010. Save the subset in ‘movies.sub’ variable.

  2. Keep columns ‘name’, ‘director’, ‘year’, ‘country’, ‘genre’, ‘budget’, ‘gross’, ‘score’ in the ‘movies.sub’.

  3. Find the profit for each movie in ‘movies.sub’ as a fraction of its budget. Convert ‘budget’ and ‘gross’ columns million dollar units founded to the first decimal point. Use round() to round numbers.

  4. Count the number of movies in ‘movies.sub’ produced by each genre, and order them in the descending count order.

  5. Now group movies in ‘movies.sub’ by countries and genre. Then, count the number of movies in each group and the corresponding median fractional profit, the mean and standard deviation of the movie score for each group.

Part 2: Chaining

Using chaining and pipes, for each genre find the three directors the top mean movie scores received for the movies produced after 2000, after filtering out the directors with fewer than 5 movies in total. Hint: Use top_n() function to select top n from each group.

Find the movies in your favourite genre by the 5 directors you just found. These could serve as suggestions for your next movie night!

LS0tCnRpdGxlOiAiTGVjdHVyZSAzOiBFeGVyY2lzZXMiCmRhdGU6IE9jdG9iZXIgNHRoLCAyMDE4Cm91dHB1dDogCiAgaHRtbF9ub3RlYm9vazoKICAgIHRvYzogdHJ1ZQogICAgdG9jX2Zsb2F0OiB0cnVlCiAgICBkZl9wcmludDogcGFnZWQKLS0tCgpgYGB7ciBnbG9iYWxfb3B0aW9ucywgZWNobyA9IEZBTFNFLCBpbmNsdWRlID0gRkFMU0V9Cm9wdGlvbnMod2lkdGggPSA4MCkKa25pdHI6Om9wdHNfY2h1bmskc2V0KAogIHdhcm5pbmcgPSBGQUxTRSwgbWVzc2FnZSA9IEZBTFNFLAogIGNhY2hlID0gRkFMU0UsIHRpZHkgPSBGQUxTRSwgc2l6ZSA9ICJzbWFsbCIpCmBgYAoKYGBge3IsIHdhcm5pbmc9RkFMU0UsIG1lc3NhZ2U9RkFMU0V9CmxpYnJhcnkodGlkeXZlcnNlKQpgYGAKCgojIEV4ZXJjaXNlIDE6IFBhcnNpbmcgZGF0YQogCiMjIFBhcnQgMTogUGFyc2luZyBkYXRlcwoKR2VuZXJhdGUgdGhlIGNvcnJlY3QgZm9ybWF0IHN0cmluZyB0byBwYXJzZSBlYWNoIG9mIHRoZSBmb2xsb3dpbmcgZGF0ZXMgYW5kIHRpbWVzOgpgYGB7cn0KZDEgPC0gIkphbnVhcnkgMSwgMjAxMCIKZDIgPC0gIjIwMTUtTWFyLTA3IgpkMyA8LSAiMDYtSnVuLTIwMTciCmQ0IDwtIGMoIkF1Z3VzdCAxOSAoMjAxNSkgLSAzOjA0UE0iLCAiSnVseSAxICgyMDE1KSAtIDQ6MDRQTSIpCmQ1IDwtICIxMi8zMC8xNCIgIyBEZWMgMzAsIDIwMTQKdDEgPC0gIjE3MDUiICAgICAjIDU6MDVQTQpgYGAKCgojIyBQYXJ0IDI6IFJlYWQgYSBDU1YgZmlsZQogCkRvd25sb2FkIHRoaXMgTkNIUyBkYXRhc2V0IG9uIGxlYWRpbmcgQ2F1c2VzIG9mIGRlYXRoIGluIHRoZSBVbml0ZWQgU3RhdGVzLCAKZnJvbSAxOTk5IHRvIDIwMTU6IGh0dHBzOi8vZGF0YS5jZGMuZ292L2FwaS92aWV3cy9iaTYzLWR0cHUvcm93cy5jc3YuCgpUaGVuLCBpbXBvcnQgaXQgaW50byBSLiBBcmUgc29tZSBvZiB0aGUgY29sdW1zIHRoZSB3cm9uZyB0eXBlPwpJZiBub3QgaXMgdGhlcmUgYW55IGNvbHVtbiB0aGF0IGNvdWxkIGJlIGEgZmFjdG9yIGluc3RlYWQgb2YgY2hhcmFjdGVyCnR5cGU/CgojIEV4ZWNpc2UgMjogRGF0YSBtYW5pcHVsYXRpb24KCiMjIFBhcnQgMTogYGRwbHlyYCB2ZXJicwoKTG9hZCBpbiB0aGUgZGF0YXNldCBgbW92aWVzLmNzdmAgdXNlZCBpbiB0aGUgbGVjdHVyZToKCmBgYHtyfQp1cmwgPC0gImh0dHBzOi8vcmF3LmdpdGh1YnVzZXJjb250ZW50LmNvbS9KdWFuZXRzL21vdmllLXN0YXRzL21hc3Rlci9tb3ZpZXMuY3N2Igptb3ZpZXMgPC0gcmVhZF9jc3YodXJsKQpgYGAKCgphLiBGaW5kIGEgc3Vic2V0IG9mIHRoZSBtb3ZpZXMgcHJvZHVjZWQgYWZ0ZXIgMjAxMC4gClNhdmUgdGhlIHN1YnNldCBpbiAnbW92aWVzLnN1YicgdmFyaWFibGUuCgpiLiBLZWVwIGNvbHVtbnMgJ25hbWUnLCAnZGlyZWN0b3InLCAneWVhcicsICdjb3VudHJ5JywgJ2dlbnJlJywgJ2J1ZGdldCcsICdncm9zcycsICdzY29yZScKaW4gdGhlICdtb3ZpZXMuc3ViJy4KCmMuIEZpbmQgdGhlIHByb2ZpdCBmb3IgZWFjaCBtb3ZpZSBpbiAnbW92aWVzLnN1YicgYXMgYSBmcmFjdGlvbiBvZiBpdHMgYnVkZ2V0LgpDb252ZXJ0ICdidWRnZXQnIGFuZCAnZ3Jvc3MnIGNvbHVtbnMgbWlsbGlvbiBkb2xsYXIgdW5pdHMgZm91bmRlZCB0byB0aGUgZmlyc3QgZGVjaW1hbCBwb2ludC4KVXNlIGByb3VuZCgpYCB0byByb3VuZCBudW1iZXJzLgoKZC4gQ291bnQgdGhlIG51bWJlciBvZiBtb3ZpZXMgaW4gJ21vdmllcy5zdWInIHByb2R1Y2VkIGJ5IGVhY2ggZ2VucmUsCmFuZCBvcmRlciB0aGVtIGluIHRoZSBkZXNjZW5kaW5nIGNvdW50IG9yZGVyLgoKZS4gTm93IGdyb3VwIG1vdmllcyBpbiAnbW92aWVzLnN1YicgYnkgY291bnRyaWVzIGFuZCBnZW5yZS4KVGhlbiwgY291bnQgdGhlIG51bWJlciBvZiBtb3ZpZXMgaW4gZWFjaCBncm91cCBhbmQgdGhlIGNvcnJlc3BvbmRpbmcgCm1lZGlhbiBmcmFjdGlvbmFsIHByb2ZpdCwgdGhlIG1lYW4gYW5kIHN0YW5kYXJkIGRldmlhdGlvbiBvZiAKdGhlIG1vdmllIHNjb3JlIGZvciBlYWNoIGdyb3VwLgoKCiMjIFBhcnQgMjogQ2hhaW5pbmcKClVzaW5nIGNoYWluaW5nIGFuZCBwaXBlcywgZm9yIGVhY2ggZ2VucmUgZmluZCB0aGUgdGhyZWUgZGlyZWN0b3JzIHRoZQp0b3AgbWVhbiBtb3ZpZSBzY29yZXMgcmVjZWl2ZWQgZm9yIHRoZSBtb3ZpZXMgcHJvZHVjZWQgYWZ0ZXIgMjAwMCwKYWZ0ZXIgZmlsdGVyaW5nIG91dCB0aGUgZGlyZWN0b3JzIHdpdGggZmV3ZXIgdGhhbiA1IG1vdmllcyBpbiB0b3RhbC4KSGludDogVXNlIGB0b3BfbigpYCBmdW5jdGlvbiB0byBzZWxlY3QgdG9wIG4gZnJvbSBlYWNoIGdyb3VwLgoKRmluZCB0aGUgbW92aWVzIGluIHlvdXIgZmF2b3VyaXRlIGdlbnJlIGJ5IHRoZSA1IGRpcmVjdG9ycwp5b3UganVzdCBmb3VuZC4gVGhlc2UgY291bGQgc2VydmUgYXMgc3VnZ2VzdGlvbnMgZm9yIHlvdXIgbmV4dCBtb3ZpZSBuaWdodCEKCgoKCgoKCg==