datardis

install.packages("datardis")

devtools::install_github("KittJonathan/datardis")

## Load packages
library(datardis)
library(tidyverse)

## Find maximum number of UK viewers for Doctor Who (in millions)
max(drwho_episodes$uk_viewers, na.rm = TRUE)
#> [1] "9.87"

## Find who wrote the most episodes for Doctor Who
drwho_writers |>
     count(writer, sort = TRUE) |>
     head(5)
#> # A tibble: 5 × 2
#>   writer               n
#>   <chr>            <int>
#> 1 Steven Moffat       45
#> 2 Russell T Davies    31
#> 3 Chris Chibnall      29
#> 4 Mark Gatiss          9
#> 5 Toby Whithouse       7

## Find who directed the most episodes for Doctor Who
drwho_directors |>
     count(director, sort = TRUE) |>
     head(5)
#> # A tibble: 5 × 2
#>   director               n
#>   <chr>              <int>
#> 1 Graeme Harper         12
#> 2 Euros Lyn             11
#> 3 Douglas Mackinnon      8
#> 4 Jamie Magnus Stone     8
#> 5 James Strong           7