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 = 2,834
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 = 2,834, total_inventor_count = 4,793
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 = query, fields = fields, all_pages = TRUE)
# Unnest the inventor list column
unnest_pv_data(data = pv_out$data, pk = "patent_number")
#> List of 2
#> $ inventors:'data.frame': 104153 obs. of 20 variables:
#> ..$ patent_number : chr [1:104153] "7249856" ...
#> ..$ inventor_city : chr [1:104153] "Kirkland" ...
#> ..$ inventor_country : chr [1:104153] "US" ...
#> ..$ inventor_first_name : chr [1:104153] "Michael J." ...
#> ..$ inventor_first_seen_date : chr [1:104153] "1981-03-17" ...
#> ..$ inventor_id : chr [1:104153] "4257107-2" ...
#> ..$ inventor_lastknown_city : chr [1:104153] "Kirkland" ...
#> ..$ inventor_lastknown_country : chr [1:104153] "US" ...
#> ..$ inventor_lastknown_latitude : chr [1:104153] "47.6769" ...
#> ..$ inventor_lastknown_location_id: chr [1:104153] "47.6768927|-122.20"..
#> ..$ inventor_lastknown_longitude : chr [1:104153] "-122.206" ...
#> ..$ inventor_lastknown_state : chr [1:104153] "WA" ...
#> ..$ inventor_last_name : chr [1:104153] "Sinclair" ...
#> ..$ inventor_last_seen_date : chr [1:104153] "2017-07-25" ...
#> ..$ inventor_latitude : chr [1:104153] "47.6769" ...
#> ..$ inventor_location_id : chr [1:104153] "47.6768927|-122.20"..
#> ..$ inventor_longitude : chr [1:104153] "-122.206" ...
#> ..$ inventor_sequence : chr [1:104153] "0" ...
#> ..$ inventor_state : chr [1:104153] "WA" ...
#> ..$ inventor_total_num_patents : chr [1:104153] "103" ...
#> $ patents :'data.frame': 28822 obs. of 1 variable:
#> ..$ patent_number: chr [1:28822] "7249856" ...
Return patent numbers and titles with at least one inventor whose location was Chicago, IL.1
search_pv(
query = '{"_and":[{"location_city":"Chicago"},{"location_state":"IL"}]}',
endpoint = "inventors",
fields = c("patent_number", "patent_title")
)
#> $data
#> #### A list with a single data frame (with list column(s) inside) on an inventor level:
#>
#> List of 1
#> $ inventors:'data.frame': 25 obs. of 1 variable:
#> ..$ patents:List of 25
#>
#> $query_results
#> #### Distinct entity counts across all downloadable pages of output:
#>
#> total_inventor_count = 12,807
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] "00c135a7c52b5dd3e6e2c342490451f"..
#> ..$ assignee_first_name : chr [1:25] NA ...
#> ..$ assignee_last_name : chr [1:25] NA ...
#> ..$ assignee_organization: chr [1:25] "PicoBrew, Inc." ...
#>
#> $query_results
#> #### Distinct entity counts across all downloadable pages of output:
#>
#> total_assignee_count = 188
Example taken from http://www.patentsview.org/api/inventor.html.↩