library(openalexR)
#> Thank you for using openalexR!
#> To acknowledge our work, please cite the package by calling `citation("openalexR")`.
#> To suppress this message, add `openalexR.message = suppressed` to your .Renviron file.
# Unlike the other filters, search does NOT require an exact match.
# This is particularly useful to search for authors. Some authors have their middle names in a variety of forms, which may not exist, or co-exist in OpenAlex (e.g. Phillip H. Kuo, Phillip Hsin Kuo).
# The display_name search returns an exact match, and will NOT find all these variations. For example, author "Phillip H. Kuo" and "Phillip Hsin Kuo" is the same person.
# His middle name are recorded differently in openAlex. Therefore, all the varitions can only be found either using search ="Phillip Kuo" or display_name =c("Phillip H. Kuo" , "Phillip Hsin Kuo").
authors_from_names <- oa_fetch(
entity = "authors",
search = "Phillip Kuo"
)
lib_concepts <- oa_fetch(
entity = "concepts",
level = 3,
works_count = "<999",
cited_by_count = ">10000",
ancestors.id = "C161191863",
has_wikidata = TRUE
)
dplyr::glimpse(lib_concepts)
#> Rows: 1
#> Columns: 16
#> $ id <chr> "https://openalex.org/C2777765086"
#> $ display_name <chr> "Co-citation"
#> $ display_name_international <list> <"kocitace", "Kozitation", "co-citation", "…
#> $ description <lgl> NA
#> $ description_international <list> "situace, kdy dva různé dokumenty jsou cito…
#> $ wikidata <chr> "https://www.wikidata.org/wiki/Q1785764"
#> $ level <int> 3
#> $ ids <list> <"https://openalex.org/C2777765086", "http…
#> $ image_url <lgl> NA
#> $ image_thumbnail_url <lgl> NA
#> $ ancestors <list> [<data.frame[6 x 4]>]
#> $ related_concepts <list> [<data.frame[5 x 5]>]
#> $ works_count <int> 790
#> $ cited_by_count <int> 29965
#> $ counts_by_year <list> [<data.frame[13 x 3]>]
#> $ works_api_url <chr> "https://api.openalex.org/works?filter=conc…
tech_insts <- oa_fetch(
entity = "institutions",
country_code = "CN",
x_concepts.id = "C41008148",
display_name.search = "technology",
has_ror = FALSE
)
dplyr::glimpse(tech_insts)
#> Rows: 404
#> Columns: 22
#> $ id <chr> "https://openalex.org/I204983213", "https:/…
#> $ display_name <chr> "Harbin Institute of Technology", "Huazhong…
#> $ display_name_alternatives <list> "哈尔滨工业大学", <"Huázhōng Kējì Dàxué", …
#> $ display_name_acronyms <list> "HIT", "HUST", "USTC", "DUT", "SCUT", "BIT…
#> $ display_name_international <list> <"Harbin Texnologiya İnstitutu", "Institut…
#> $ ror <chr> "https://ror.org/01yqg2h08", "https://ror.o…
#> $ ids <list> <"https://openalex.org/I204983213", "https…
#> $ country_code <chr> "CN", "CN", "CN", "CN", "CN", "CN", "CN", "…
#> $ geo <list> [<data.frame[1 x 7]>], [<data.frame[1 x 7]…
#> $ type <chr> "education", "education", "education", "edu…
#> $ homepage_url <chr> "http://en.hit.edu.cn/", "http://english.hu…
#> $ image_url <chr> "https://commons.wikimedia.org/w/index.php?…
#> $ image_thumbnail_url <chr> "https://commons.wikimedia.org/w/index.php?…
#> $ associated_institutions <list> NA, [<data.frame[3 x 6]>], [<data.frame[6 …
#> $ relevance_score <dbl> 16750.200, 16074.778, 14937.700, 14086.497,…
#> $ works_count <int> 168957, 194735, 145100, 103485, 114462, 100…
#> $ cited_by_count <int> 2420419, 3220030, 3267067, 1711398, 1994836…
#> $ counts_by_year <list> [<data.frame[13 x 3]>], [<data.frame[13 x …
#> $ works_api_url <chr> "https://api.openalex.org/works?filter=inst…
#> $ x_concepts <list> [<data.frame[20 x 5]>], [<data.frame[19 x …
#> $ updated_date <chr> "2024-04-06T12:45:23.513707", "2024-04-06T1…
#> $ created_date <chr> "2016-06-24", "2016-06-24", "2016-06-24", "…
peer_venues <- oa_fetch(
entity = "sources",
display_name = "PeerJ",
x_concepts.id = "C185592680",
is_oa = TRUE,
is_in_doaj = TRUE
)
dplyr::glimpse(peer_venues)
#> Rows: 1
#> Columns: 26
#> $ id <chr> "https://openalex.org/S1983995261"
#> $ issn_l <chr> "2167-8359"
#> $ issn <list> "2167-8359"
#> $ display_name <chr> "PeerJ"
#> $ host_organization <chr> "https://openalex.org/P4310320104"
#> $ host_organization_name <chr> "PeerJ, Inc."
#> $ host_organization_lineage <list> "https://openalex.org/P4310320104"
#> $ works_count <int> 15123
#> $ cited_by_count <int> 245106
#> $ summary_stats <list> <1.771033, 114.000000, 6230.000000>
#> $ is_oa <lgl> TRUE
#> $ is_in_doaj <lgl> TRUE
#> $ ids <list> <"https://openalex.org/S1983995261", "2167-8…
#> $ homepage_url <chr> "http://www.peerj.com/"
#> $ apc_prices <list> [<data.frame[1 x 2]>]
#> $ apc_usd <int> 1395
#> $ country_code <chr> "US"
#> $ societies <lgl> NA
#> $ alternate_titles <list> <"Peer j", "Peerj">
#> $ abbreviated_title <chr> "PeerJ"
#> $ type <chr> "journal"
#> $ x_concepts <list> [<data.frame[24 x 5]>]
#> $ counts_by_year <list> [<data.frame[13 x 3]>]
#> $ works_api_url <chr> "https://api.openalex.org/works?filter=prima…
#> $ updated_date <chr> "2024-04-06T13:36:45.930026"
#> $ created_date <chr> "2016-06-24"