starwarsdb provides data from the Star Wars API as a set of relational tables, or as an in-package DuckDB database.
Formats: Metadata, Local Tables, Remote Tables, Data Model (dm), API (rwars)
You can install starwarsdb from CRAN:
install.packages("starwarsdb")Or you can install the development version of starwarsdb from GitHub with remotes:
# install.packages("remotes")
remotes::install_github("gadenbuie/starwarsdb")
# For remotes <= 2.1.0
remotes::install_github("gadenbuie/starwarsdb@main")All of the tables are available when you load starwarsdb
library(dplyr)
library(starwarsdb)or via
data(package = "starwarsdb")The schema table includes information about the tables that were
sourced from SWAPI.
schema
#> # A tibble: 5 × 4
#> endpoint endpoint_title endpoint_description properties
#> <chr> <chr> <chr> <list>
#> 1 films Film A Star Wars film <tibble>
#> 2 vehicles Starship A Starship or vehicle <gropd_df>
#> 3 species People A species within the Star Wars universe <tibble>
#> 4 planets Planet A planet. <tibble>
#> 5 people People A person within the Star Wars universe <tibble>schema %>%
filter(endpoint == "films") %>%
pull(properties)
#> [[1]]
#> # A tibble: 14 × 4
#> variable type description format
#> <chr> <chr> <chr> <chr>
#> 1 starships array The starship resources featured within this fil… <NA>
#> 2 edited string the ISO 8601 date format of the time that this … date-…
#> 3 planets array The planet resources featured within this film. <NA>
#> 4 producer string The producer(s) of this film. <NA>
#> 5 title string The title of this film. <NA>
#> 6 url string The url of this resource uri
#> 7 release_date string The release date at original creator country. date
#> 8 vehicles array The vehicle resources featured within this film. <NA>
#> 9 episode_id integer The episode number of this film. <NA>
#> 10 director string The director of this film. <NA>
#> 11 created string The ISO 8601 date format of the time that this … date-…
#> 12 opening_crawl string The opening crawl text at the beginning of this… <NA>
#> 13 characters array The people resources featured within this film. <NA>
#> 14 species array The species resources featured within this film. <NA>Ask questions, like who flew an X-Wing?
x_wing_pilots <- pilots %>% filter(vehicle == "X-wing")
x_wing_pilots
#> # A tibble: 4 × 2
#> pilot vehicle
#> <chr> <chr>
#> 1 Luke Skywalker X-wing
#> 2 Biggs Darklighter X-wing
#> 3 Wedge Antilles X-wing
#> 4 Jek Tono Porkins X-wing
people %>% semi_join(x_wing_pilots, by = c(name = "pilot"))
#> # A tibble: 4 × 11
#> name height mass hair_…¹ skin_…² eye_c…³ birth…⁴ gender homew…⁵ species
#> <chr> <dbl> <dbl> <chr> <chr> <chr> <dbl> <chr> <chr> <chr>
#> 1 Luke Skyw… 172 77 blond fair blue 19 mascu… Tatooi… Human
#> 2 Biggs Dar… 183 84 black light brown 24 mascu… Tatooi… Human
#> 3 Wedge Ant… 170 77 brown fair hazel 21 mascu… Corell… Human
#> 4 Jek Tono … 180 110 brown fair blue NA mascu… Bestin… Human
#> # … with 1 more variable: sex <chr>, and abbreviated variable names
#> # ¹hair_color, ²skin_color, ³eye_color, ⁴birth_year, ⁵homeworldstarwarsdb also includes the entire data set as a DuckDB database, appropriate for teaching and practicing remote database access with dbplyr.
con <- starwars_connect()
people_rmt <- tbl(con, "people")
pilots_rmt <- tbl(con, "pilots")
pilots_rmt
#> # Source: table<pilots> [?? x 2]
#> # Database: DuckDB 0.6.1 [root@Darwin 22.1.0:R 4.2.2/:memory:]
#> pilot vehicle
#> <chr> <chr>
#> 1 Chewbacca Millennium Falcon
#> 2 Han Solo Millennium Falcon
#> 3 Lando Calrissian Millennium Falcon
#> 4 Nien Nunb Millennium Falcon
#> 5 Luke Skywalker X-wing
#> 6 Biggs Darklighter X-wing
#> 7 Wedge Antilles X-wing
#> 8 Jek Tono Porkins X-wing
#> 9 Darth Vader TIE Advanced x1
#> 10 Boba Fett Slave 1
#> # … with more rows
x_wing_pilots <- pilots_rmt %>% filter(vehicle == "X-wing")
x_wing_pilots
#> # Source: SQL [4 x 2]
#> # Database: DuckDB 0.6.1 [root@Darwin 22.1.0:R 4.2.2/:memory:]
#> pilot vehicle
#> <chr> <chr>
#> 1 Luke Skywalker X-wing
#> 2 Biggs Darklighter X-wing
#> 3 Wedge Antilles X-wing
#> 4 Jek Tono Porkins X-wing
people_rmt %>% semi_join(x_wing_pilots, by = c(name = "pilot"))
#> # Source: SQL [4 x 11]
#> # Database: DuckDB 0.6.1 [root@Darwin 22.1.0:R 4.2.2/:memory:]
#> name height mass hair_…¹ skin_…² eye_c…³ birth…⁴ gender homew…⁵ species
#> <chr> <dbl> <dbl> <chr> <chr> <chr> <dbl> <chr> <chr> <chr>
#> 1 Luke Skyw… 172 77 blond fair blue 19 mascu… Tatooi… Human
#> 2 Biggs Dar… 183 84 black light brown 24 mascu… Tatooi… Human
#> 3 Wedge Ant… 170 77 brown fair hazel 21 mascu… Corell… Human
#> 4 Jek Tono … 180 110 brown fair blue NA mascu… Bestin… Human
#> # … with 1 more variable: sex <chr>, and abbreviated variable names
#> # ¹hair_color, ²skin_color, ³eye_color, ⁴birth_year, ⁵homeworldFinally, starwarsdb provides a function that returns a
pre-configured dm object. The dm
package wraps local data frames into a complete relational data model.
library(dm, warn.conflicts = FALSE)
sw_dm <- starwars_dm()
sw_dm
#> ── Metadata ────────────────────────────────────────────────────────────────────
#> Tables: `films`, `people`, `planets`, `species`, `vehicles`, … (9 total)
#> Columns: 58
#> Primary keys: 5
#> Foreign keys: 10
sw_dm %>%
dm_select_tbl(pilots, people) %>%
dm_filter(pilots = vehicle == "X-wing") %>%
dm_zoom_to("people") %>%
semi_join(pilots)
#> # Zoomed table: people
#> # A tibble: 4 × 11
#> name height mass hair_…¹ skin_…² eye_c…³ birth…⁴ gender homew…⁵ species
#> <chr> <dbl> <dbl> <chr> <chr> <chr> <dbl> <chr> <chr> <chr>
#> 1 Luke Skyw… 172 77 blond fair blue 19 mascu… Tatooi… Human
#> 2 Biggs Dar… 183 84 black light brown 24 mascu… Tatooi… Human
#> 3 Wedge Ant… 170 77 brown fair hazel 21 mascu… Corell… Human
#> 4 Jek Tono … 180 110 brown fair blue NA mascu… Bestin… Human
#> # … with 1 more variable: sex <chr>, and abbreviated variable names
#> # ¹hair_color, ²skin_color, ³eye_color, ⁴birth_year, ⁵homeworlddm_draw(sw_dm)
For API access from R, check out the
rwars package by Oliver Keyes. Big
thanks to rwars for making it easy to access the Star Wars API!