Fetches cocktails and their ingredients from Wikidata using SPARQL and Wikidata Query Service

wdqs-cocktails.R

cocktails <- WikidataQueryServiceR::query_wikidata('
SELECT DISTINCT ?cocktailLabel ?ingredientLabel ?instanceOfLabel ?subclassLabel
WHERE
{
  ?cocktail wdt:P31/wdt:P279* wd:Q134768 .
  ?cocktail wdt:P186 ?ingredient .
  OPTIONAL {
    ?ingredient wdt:P279 ?subclass .
  }
  OPTIONAL {
    ?ingredient wdt:P31 ?instanceOf .
  }
  SERVICE wikibase:label { bd:serviceParam wikibase:language "en" }
}')

library(magrittr)

cocktails %<>%
  dplyr::rename(
    cocktail = cocktailLabel,
    ingredient = ingredientLabel,
    instance_of = instanceOfLabel,
    subclass = subclassLabel
  ) %>%
  dplyr::mutate(
    cocktail = stringi::stri_trans_general(cocktail, "Latin-ASCII"),
    ingredient = stringi::stri_trans_general(ingredient, "Latin-ASCII")
  ) %>%
  dplyr::arrange(cocktail, ingredient)
cocktails[cocktails == ""] <- NA