Creating the environment

library(tidyverse)
library(tosr)
library(bibliometrix)
library(igraph)

Creating ToS from Scopus and WoS

tos_wos_scopus <- 
  tosR("wos.txt", "scopus.bib")
## [1] 2
## 
## Converting your wos collection into a bibliographic dataframe
## 
## Done!
## 
## 
## Generating affiliation field tag AU_UN from C1:  Done!
## 
## 
## Converting your scopus collection into a bibliographic dataframe
## 
## Done!
## 
## 
## Generating affiliation field tag AU_UN from C1:  Done!
## 
## 
##  245 duplicated documents have been removed
## Computing TOS SAP
## Computing TOS subfields

Export tos

write_csv(tos_wos_scopus, "tos_wos_scopus.csv")