Author: Shelby Lyn Gomes

# Getting Started with Seattle Open Data

#### Shelby Lyn Gomes

    knitr::opts_chunk$set(
      collapse = TRUE,
      comment = "#>",
      warning = FALSE,
      message = FALSE
    )

    library(seattleOpenData)
    library(dplyr)
    library(ggplot2)

## Introduction

Welcome to the `seattleOpenData` package, an R package designed to provide convenient access to the Seattle Open Data Portal.

The package provides a streamlined interface for discovering and downloading datasets from Seattle Open Data. It helps bridge the gap between raw Socrata API endpoints and tidy data analysis in R.

The package provides three primary functions:

- `seattle_list_datasets()` for browsing available datasets
- `seattle_pull_dataset()` for downloading datasets using a catalog key or Socrata UID
- `seattle_any_dataset()` for downloading data directly from a Socrata JSON endpoint

## Listing Available Datasets

The first step in a typical workflow is to use `seattle_list_datasets()` to retrieve the live Seattle Open Data catalog.

    catalog <- seattle_list_datasets()

    catalog

The returned catalog includes information about the datasets available through the portal. Two especially important columns are:

- `key`, a human-readable dataset identifier generated from the dataset name
- `uid`, the official Socrata dataset identifier

You can search the catalog for datasets containing a keyword.

    catalog |>
      filter(grepl("Pet", name, ignore.case = TRUE)) |>
      select(key, uid, name)

Replace `Pet` with a useful search term related to the example dataset selected for the package.

## Pulling a Dataset

The primary way to download data is with `seattle_pull_dataset()`.

A dataset can be requested using either its human-readable catalog key or its official Socrata UID.

### Pulling by UID

    example_data_uid <- seattle_pull_dataset(
      dataset = "jguv-t9rb",
      limit = 5
    )

    example_data_uid

### Pulling by Key

    example_data_key <- seattle_pull_dataset(
      dataset = "seattle_pet_licenses",
      limit = 5
    )

    example_data_key

Both calls should return data from the same dataset.

## Keys and UIDs

Dataset keys are easier to read, while Socrata UIDs are more stable.

For reproducible research and long-term workflows, using the official Socrata UID is generally recommended.

## Filtering Data

The `filters` argument can be used for simple exact-match filtering.

    filtered_data <- seattle_pull_dataset(
      dataset = "jguv-t9rb",
      limit = 25,
      filters = list(
        primary_breed = "Domestic Shorthair"
      )
    )

    filtered_data

You can confirm that the filter worked by inspecting the unique values in the selected field.

    filtered_data |>
      distinct(primary_breed)

Multiple values can also be supplied.

    filtered_multiple <- seattle_pull_dataset(
      dataset = "jguv-t9rb",
      limit = 50,
      filters = list(
        primary_breed = c("Domestic Shorthair", "American Shorthair")
      )
    )

    filtered_multiple

Multiple fields can be combined within the same filter list.

    filtered_combination <- seattle_pull_dataset(
      dataset = "jguv-t9rb",
      limit = 50,
      filters = list(
        species = "Dog",
        secondary_breed = "Mix"
      )
    )

    filtered_combination

## Filtering by Date

If the example dataset contains a date or datetime field, records can be filtered using `from`, `to`, and `date_field`.

    date_filtered_data <- seattle_pull_dataset(
      dataset = "jguv-t9rb",
      from = "2023-01-01",
      to = "2024-01-01",
      date_field = "license_issue_date",
      limit = 100
    )

    date_filtered_data

The `from` date is inclusive, while the `to` date is exclusive.

A single day can also be requested using the `date` argument.

    single_day_data <- seattle_pull_dataset(
      dataset = "jguv-t9rb",
      date = "2023-03-04",
      date_field = "license_issue_date",
      limit = 100
    )

    single_day_data

## Pulling Data from Any Socrata Endpoint

The preferred workflow is to use `seattle_list_datasets()` together with `seattle_pull_dataset()`.

However, when a dataset is not available in the package catalog, `seattle_any_dataset()` can download data directly from a Socrata JSON endpoint.

Seattle Open Data endpoints typically follow this structure:

    https://data.seattle.gov/resource/<dataset_uid>.json

For example:

    https://data.seattle.gov/resource/jguv-t9rb.json

The endpoint can then be supplied directly to `seattle_any_dataset()`.

    endpoint_data <- seattle_any_dataset(
      json_link = "https://data.seattle.gov/resource/jguv-t9rb.json",
      limit = 5
    )

    endpoint_data

## Which function should you use?

Use `seattle_pull_dataset()` when the dataset is available through `seattle_list_datasets()`.

Use `seattle_any_dataset()` when you already have a valid Socrata JSON endpoint or when the dataset is not included in the package catalog.

## Example Analysis

Once the data have been downloaded, they can be analyzed using standard R tools.

The following example counts the number of records in a categorical field.

    category_summary <- seattle_pull_dataset(
      dataset = "jguv-t9rb",
      limit = 500
    ) |>
      filter(!is.na(primary_breed)) |>
      count(primary_breed, sort = TRUE)

    category_summary

The results can then be visualized.

    category_summary |>
      slice_head(n = 10) |>
      ggplot(
        aes(
          x = n,
          y = reorder(primary_breed, n)
        )
      ) +
      geom_col() +
      theme_minimal() +
      labs(
        title = "Most Frequent Categories",
        x = "Number of Records",
        y = "Breeds"
      )

This example demonstrates the complete workflow from discovering a dataset to downloading, filtering, summarizing, and visualizing it.

## Summary

The `seattleOpenData` package provides a consistent interface for working with data from the Seattle Open Data Portal.

In this vignette, you learned how to:

- browse available datasets using `seattle_list_datasets()`
- download datasets by key or UID using `seattle_pull_dataset()`
- filter data using fields, values, and dates
- access a Socrata JSON endpoint using `seattle_any_dataset()`
- perform a simple analysis and visualization

These functions allow users to focus on analysis rather than manually constructing API requests.

## How to Cite

If you use this package for research or educational purposes, cite it using the package citation returned by:

    citation("seattleOpenData")