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] "3946398" ...
#>   ..$ patent_number: chr [1:25] "3946398" ...
#>   ..$ patent_title : chr [1:25] "Method and apparatus for recording with"..
#> 
#> $query_results
#> #### Distinct entity counts across all downloadable pages of output:
#> 
#> total_patent_count = 3,783

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] "3946398" ...
#>   ..$ inventors    :List of 25
#> 
#> $query_results
#> #### Distinct entity counts across all downloadable pages of output:
#> 
#> total_patent_count = 3,783, total_inventor_count = 6,090

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':   112173 obs. of  24 variables:
#>   ..$ patent_number                 : chr [1:112173] "7249856" ...
#>   ..$ inventor_city                 : chr [1:112173] "Kirkland" ...
#>   ..$ inventor_country              : chr [1:112173] "US" ...
#>   ..$ inventor_county               : chr [1:112173] "King County" ...
#>   ..$ inventor_county_fips          : chr [1:112173] "33" ...
#>   ..$ inventor_first_name           : chr [1:112173] "Michael J." ...
#>   ..$ inventor_first_seen_date      : chr [1:112173] "1981-03-17" ...
#>   ..$ inventor_id                   : chr [1:112173] "4257107-2" ...
#>   ..$ inventor_last_name            : chr [1:112173] "Sinclair" ...
#>   ..$ inventor_last_seen_date       : chr [1:112173] "2018-03-13" ...
#>   ..$ inventor_lastknown_city       : chr [1:112173] "Kirkland" ...
#>   ..$ inventor_lastknown_country    : chr [1:112173] "US" ...
#>   ..$ inventor_lastknown_latitude   : chr [1:112173] "47.6769" ...
#>   ..$ inventor_lastknown_location_id: chr [1:112173] "47.6769|-122.206" ...
#>   ..$ inventor_lastknown_longitude  : chr [1:112173] "-122.206" ...
#>   ..$ inventor_lastknown_state      : chr [1:112173] "WA" ...
#>   ..$ inventor_latitude             : chr [1:112173] "47.6769" ...
#>   ..$ inventor_location_id          : chr [1:112173] "47.6769|-122.206" ...
#>   ..$ inventor_longitude            : chr [1:112173] "-122.206" ...
#>   ..$ inventor_sequence             : chr [1:112173] "0" ...
#>   ..$ inventor_state                : chr [1:112173] "WA" ...
#>   ..$ inventor_state_fips           : chr [1:112173] "53" ...
#>   ..$ inventor_total_num_patents    : chr [1:112173] "98" ...
#>   ..$ inventor_key_id               : chr [1:112173] "292582" ...
#>  $ patents  :'data.frame':   30845 obs. of  1 variable:
#>   ..$ patent_number: chr [1:30845] "7249856" ...

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] "3930318-2" ...
#>   ..$ inventor_first_name: chr [1:25] "Raymond J." ...
#>   ..$ inventor_last_name : chr [1:25] "Kulka" ...
#> 
#> $query_results
#> #### Distinct entity counts across all downloadable pages of output:
#> 
#> total_inventor_count = 12,305

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] "00c18cb68a16b81f57736c9e4569766"..
#>   ..$ assignee_first_name  : chr [1:25] NA ...
#>   ..$ assignee_last_name   : chr [1:25] NA ...
#>   ..$ assignee_organization: chr [1:25] "Kegx LLC" ...
#> 
#> $query_results
#> #### Distinct entity counts across all downloadable pages of output:
#> 
#> total_assignee_count = 193