Patents endpoint

Which patents have been cited by more than 500 US patents?

library(patentsview)

search_pv(query = qry_funs$gt(patent_num_cited_by_us_patents = 500))
#> $data
#> #### A list with a single data frame on a patent level:
#> 
#> List of 1
#>  $ patents:'data.frame': 25 obs. of  3 variables:
#>   ..$ patent_id    : chr [1:25] "3940844" ...
#>   ..$ patent_number: chr [1:25] "3940844" ...
#>   ..$ patent_title : chr [1:25] "Method of installing an insulating sleeve on"..
#> 
#> $query_results
#> #### Distinct entity counts across all downloadable pages of output:
#> 
#> total_patent_count = 6,556

How many distinct inventors are represented by these highly-cited patents?

# Setting subent_cnts = TRUE will give us the subentity counts. Since inventors 
# are subentities for the patents endpoint, this means we will get their counts.
search_pv(
  query = qry_funs$gt(patent_num_cited_by_us_patents = 500),
  fields = c("patent_number", "inventor_id"),
  subent_cnts = TRUE
)
#> $data
#> #### A list with a single data frame (with list column(s) inside) on a patent level:
#> 
#> List of 1
#>  $ patents:'data.frame': 25 obs. of  2 variables:
#>   ..$ patent_number: chr [1:25] "3940844" ...
#>   ..$ inventors    :List of 25
#> 
#> $query_results
#> #### Distinct entity counts across all downloadable pages of output:
#> 
#> total_patent_count = 6,556, total_inventor_count = 9,572

Where geographically have Microsoft inventors been coming from over the past 20 years?

# Write the query
query <- with_qfuns(
  and(
    gte(patent_date = "2007-07-25"), # Dates are in yyyy-mm-dd format 
    contains(assignee_organization = "microsoft")
  )
)

# Create a field list
inv_fields <- get_fields(endpoint = "patents", groups = "inventors")
fields <- c(inv_fields, "patent_number")

# Pull the data
pv_out <- search_pv(query, fields = fields, all_pages = TRUE)

# Unnest the inventor list column
unnest_pv_data(pv_out$data, "patent_number")
#> List of 2
#>  $ inventors:'data.frame':   133023 obs. of  24 variables:
#>   ..$ patent_number                 : chr [1:133023] "10001683" ...
#>   ..$ inventor_city                 : chr [1:133023] "Mountain View" ...
#>   ..$ inventor_country              : chr [1:133023] "US" ...
#>   ..$ inventor_county               : chr [1:133023] "Santa Clara" ...
#>   ..$ inventor_county_fips          : chr [1:133023] "6085" ...
#>   ..$ inventor_first_name           : chr [1:133023] "Andriy" ...
#>   ..$ inventor_first_seen_date      : chr [1:133023] "2014-04-22" ...
#>   ..$ inventor_id                   : chr [1:133023] "8704119-1" ...
#>   ..$ inventor_last_name            : chr [1:133023] "Pletenetskyy" ...
#>   ..$ inventor_last_seen_date       : chr [1:133023] "2020-01-07" ...
#>   ..$ inventor_lastknown_city       : chr [1:133023] "Mountain View" ...
#>   ..$ inventor_lastknown_country    : chr [1:133023] "US" ...
#>   ..$ inventor_lastknown_latitude   : chr [1:133023] "37.3861" ...
#>   ..$ inventor_lastknown_location_id: chr [1:133023] "37.3861|-122.0828" ...
#>   ..$ inventor_lastknown_longitude  : chr [1:133023] "-122.083" ...
#>   ..$ inventor_lastknown_state      : chr [1:133023] "CA" ...
#>   ..$ inventor_latitude             : chr [1:133023] "37.3861" ...
#>   ..$ inventor_location_id          : chr [1:133023] "37.3861|-122.0828" ...
#>   ..$ inventor_longitude            : chr [1:133023] "-122.083" ...
#>   ..$ inventor_sequence             : chr [1:133023] "0" ...
#>   ..$ inventor_state                : chr [1:133023] "CA" ...
#>   ..$ inventor_state_fips           : chr [1:133023] "6" ...
#>   ..$ inventor_total_num_patents    : chr [1:133023] "14" ...
#>   ..$ inventor_key_id               : chr [1:133023] "3069833" ...
#>  $ patents  :'data.frame':   36177 obs. of  1 variable:
#>   ..$ patent_number: chr [1:36177] "10001683" ...

Inventors endpoint

Which inventors have Chicago, IL listed as their location on at least one patent.1

search_pv(
  query = '{"_and":[{"location_city":"Chicago"},{"location_state":"IL"}]}',
  endpoint = "inventors"
)
#> $data
#> #### A list with a single data frame on an inventor level:
#> 
#> List of 1
#>  $ inventors:'data.frame':   25 obs. of  3 variables:
#>   ..$ inventor_id        : chr [1:25] "10002361-1" ...
#>   ..$ inventor_first_name: chr [1:25] "Drew A." ...
#>   ..$ inventor_last_name : chr [1:25] "Stern" ...
#> 
#> $query_results
#> #### Distinct entity counts across all downloadable pages of output:
#> 
#> total_inventor_count = 15,002

Assignees endpoint

Which assignees have an interest in beer?

search_pv(
  query = qry_funs$text_phrase(patent_title = "beer"),
  endpoint = "assignees"
)
#> $data
#> #### A list with a single data frame on an assignee level:
#> 
#> List of 1
#>  $ assignees:'data.frame':   25 obs. of  4 variables:
#>   ..$ assignee_id          : chr [1:25] "org_0Dpb6BIEQg0Ff1gDV7dM" ...
#>   ..$ assignee_first_name  : logi [1:25] NA ...
#>   ..$ assignee_last_name   : logi [1:25] NA ...
#>   ..$ assignee_organization: chr [1:25] "Gist-Brocades N.V." ...
#> 
#> $query_results
#> #### Distinct entity counts across all downloadable pages of output:
#> 
#> total_assignee_count = 203