Introduction to patentr

  collapse = TRUE,
  comment = "#>"


Information about patents approved in the United States is publicly available. The United States Patent and Trademark Office (USPTO) provides digital bulk patent files on its website containing basic details including patent titles, application and issue dates, classification, and so on. Although files are available for patents issued during or after 1976, patents from different periods are accessible in different formats: patents issued between 1976 and 2001 (inclusive) are provided in TXT files; patents issued between 2002 and 2004 (inclusive) are provided in one XML format; and patents issued during or after 2005 are provided in a second XML format. The patentr R package accesses USPTO bulk data files and converts them to rectangular CSV format so that users do not have to deal with distinct formats and can work with patent data more easily.


CRAN hosts the stable version of patentr and GitHub hosts the development version. Each of the lines of code below install the respective version.

# stable version from CRAN

# development version from GitHub

Data acquisition

Acquiring patent data from the USPTO is straightforward with patentr's get_bulk_patent_data function. First, we load patentr and the packages we'll need for this vignette.

library(tibble)    # for the tibble data containers
library(magrittr)  # for the pipe (%>%) operator
library(dplyr)     # to work with patent data
library(lubridate) # to work with dates

Then, we use it to acquire data from the first 2 weeks in 1976. Since patentr stores the data as a local CSV file, we must import the data into R. For this, we use the read.csv function.

# acquire data from USPTO
  year = rep(1976, 2),            # each week must have a corresponding year
  week = 1:2,                     # each week corresponds element-wise to a year
  output_file = "temp_output.csv" # output file in which patent data is stored

# import data into R
patent_data <- read.csv("temp_output.csv") %>%
  as_tibble() %>%
  mutate(App_Date = as_date(App_Date),

# delete local file (optional - but we no longer need it for this tutorial)

The patent_data variable should be equal to the y1976w1 dataset provided with patentr. We peek at the patent data to get a glimpse of its structure.

patent_data <- y1976w1 %>%
  as_tibble %>%
  mutate(App_Date = as_date(App_Date),


Sample use

For the recently acquired set of patents, let's say we are interested in how long it took for the patents to get issued once the application was submitted. We can calculate the difference between issue date (Issue_Date column) and application date (App_Date) column, then either obtain a numerical summary or visualize the results as a histogram. The code block below does both.

# calculate time from application to issue (in days)
lag_time <- patent_data %>%
  transmute(Lag = Issue_Date - App_Date) %>%
  pull(Lag) %>%

# get quantitative summary

# plot as histogram
     main = "Histogram of delay before issue",
     xlab = "Time (days)", ylab = "Count")

In addition to application and issue dates, the downloaded USPTO data contains multiple text columns. More information about these can be found at

Available data for each patent

Text in boldface corresponds to column names in datasets returned by get_bulk_patent_data. Note that the following definitions for each column in the returned dataset are intuitive, not official, definitions. For official definitions, visit

Try the patentr package in your browser

Any scripts or data that you put into this service are public.

patentr documentation built on Sept. 12, 2021, 5:07 p.m.