Skip to content

Instantly share code, notes, and snippets.

@steam228
Created November 29, 2021 16:25
Show Gist options
  • Save steam228/f895894b6e02a6bc1820e44f3ef39972 to your computer and use it in GitHub Desktop.
Save steam228/f895894b6e02a6bc1820e44f3ef39972 to your computer and use it in GitHub Desktop.
R Bibliometrix WOS/SCOPUS merge
library(bibliometrix)
library(openxlsx)
setwd('/Volumes/PATHTO/')
getwd()
WOS_df <- convert2df(file = './WOS/wos.bib', dbsource = "wos", format = "bibtex")
SCOPUS_df <- convert2df(file = './SCOPUS/scopus.bib', dbsource = "scopus", format = "bibtex")
Merge_SCO_WOS <- mergeDbSources(SCOPUS_df, WOS_df, remove.duplicated=TRUE)
View(Merge_SCO_WOS)
dim(Merge_SCO_WOS)
write.csv2(Merge_SCO_WOS, file = 'unified2.csv')
write.xlsx(Merge_SCO_WOS, file = 'unified2.xlsx')
biblioshiny()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment