scopusmining

The goal of the scopusmining package is to provides tools for programmatic literature mining and meta-analysis using the Elsevier Scopus Search API.

□ Code explained: https://agronomy4future.com/archives/25033

Installation

You can install scopusmining() like so:

Before installing, please download Rtools (https://cran.r-project.org/bin/windows/Rtools)

if(!require(remotes)) install.packages("remotes")
if (!requireNamespace("scopusmining", quietly= TRUE)) {
  remotes::install_github("agronomy4future/scopusmining", force= TRUE)
}
library(remotes)
library(scopusmining)

## Install the scopusmining() package
if(!require(remotes)) install.packages("remotes")
if (!requireNamespace("scopusmining", quietly= TRUE)) {
 remotes::install_github("agronomy4future/scopusmining", force= TRUE)
}
library(remotes)
library(scopusmining)

## Run the code
#(0) Activate API Key
Sys.setenv(SCOPUS_API_KEY= "00000000000000000000")

#(1) AND logic
reference= scopusmining(
  title_blocks= list(
    list(terms= c("Soybean", "Yield"), logic= "AND")),
  abskey_blocks= list(
    list(terms= c("Grain", "Pod"), logic= "AND")),
  years= 2020:2023,
  dedupe= FALSE
)

□ Scopus query:
  TITLE(("Soybean" AND "Yield")) AND TITLE-ABS-KEY(("Grain" AND "Pod"))
        AND DOCTYPE(AR) AND SRCTYPE(j)
  Query length: 100
  ABSKEY–TITLE deduplication: OFF

nrow(reference$data) # The search returned 104 papers
[1] 104

#(2) OR logic
reference= scopusmining(
  title_blocks= list(
    list(terms= c("Soybean", "Yield"), logic= "OR")),
  abskey_blocks= list(
    list(terms= c("Grain", "Pod"), logic= "OR")),
  years= 2020:2023,
  dedupe= FALSE
)

□ Scopus query:
 TITLE(("Soybean" OR "Yield")) AND TITLE-ABS-KEY(("Grain" OR "Pod"))
       AND DOCTYPE(AR) AND SRCTYPE(j)
 Query length: 98
 ABSKEY–TITLE deduplication: OFF

nrow(reference$data)
[1] 800

#(3) AND + OR logic
reference= scopusmining(
 title_blocks= list(
   list(terms= c("Soybean", "Yield"), logic= "OR"),
   list(terms= c("Maize", "Nitrogen"), logic= "OR")),
 abskey_blocks= list(
   list(terms= c("Grain", "Pod"), logic= "OR"),
   list(terms= c("Kernel", "Weight"), logic= "OR")),
 years= 2020:2023,
 dedupe= FALSE
)

□ Scopus query:
  TITLE(("Soybean" OR "Yield") AND ("Maize" OR "Nitrogen"))
        AND TITLE-ABS-KEY(("Grain" OR "Pod") AND ("Kernel" OR "Weight"))
        AND DOCTYPE(AR) AND SRCTYPE(j)
  Query length: 153
  ABSKEY–TITLE deduplication: OFF

nrow(reference$data)
[1] 757

#(4) Repeated searches will be ignored
reference= scopusmining(
 title_blocks= list(
   list(terms= c("Soybean", "Yield", "Biomass"), logic= "OR")),
 abskey_blocks= list(
   list(terms= c("Grain", "Pod"), logic= "OR")),
 years= 2020:2023,
 dedupe= TRUE
)

□ Scopus query:
  TITLE(("Soybean" OR "Yield" OR "Biomass")) AND TITLE-ABS-KEY("Pod")
        AND DOCTYPE(AR) AND SRCTYPE(j)
  Query length: 73
  ABSKEY–TITLE deduplication: ON

nrow(reference$data)
[1] 800

# (5) Export to .csv file
write.csv(reference$data, "reference_list.csv", row.names= FALSE)

□ Website: https://agronomy4future.com/archives/25033
□ Github: https://github.com/agronomy4future/scopusmining

- All Rights Reserved © J.K Kim (kimjk@agronomy4future.com)