Creando el entorno de trabajo

library(tidyverse)
library(tosr)
library(bibliometrix)
library(tidygraph)

Capturando los datos

wos_scopus_tos <- 
  tosr::tosr_load("WoS_EM_BigData_129.txt", 
                  "Scopus_EM_BigData_597.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!


 87 duplicated documents have been removed
wos <- 
  bibliometrix::convert2df("WoS_EM_BigData_129.txt")  

Converting your wos collection into a bibliographic dataframe

Done!


Generating affiliation field tag AU_UN from C1:  Done!
scopus <- 
  bibliometrix::convert2df("Scopus_EM_BigData_597.bib", 
                           dbsource = "scopus", 
                           format = "bibtex")

Converting your scopus collection into a bibliographic dataframe

Done!


Generating affiliation field tag AU_UN from C1:  Done!

Preprocesando datos

red_citaciones <- 
  wos_scopus_tos$graph

Exportando los datos

red_citaciones %>% 
  igraph::write.graph("red_citaciones.graphml", "graphml")

wos %>% 
  readr::write_csv("wos.csv")

scopus %>% 
  readr::write_csv("scopus.csv")

wos_scopus_tos$df %>% 
  readr::write_csv("wos_scopus_tos.csv")

Visualizando los datos

LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKIyBDcmVhbmRvIGVsIGVudG9ybm8gZGUgdHJhYmFqbwoKYGBge3J9CmxpYnJhcnkodGlkeXZlcnNlKQpsaWJyYXJ5KHRvc3IpCmxpYnJhcnkoYmlibGlvbWV0cml4KQpsaWJyYXJ5KHRpZHlncmFwaCkKYGBgCgojIENhcHR1cmFuZG8gbG9zIGRhdG9zCgpgYGB7cn0Kd29zX3Njb3B1c190b3MgPC0gCiAgdG9zcjo6dG9zcl9sb2FkKCJXb1NfRU1fQmlnRGF0YV8xMjkudHh0IiwgCiAgICAgICAgICAgICAgICAgICJTY29wdXNfRU1fQmlnRGF0YV81OTcuYmliIikKCndvcyA8LSAKICBiaWJsaW9tZXRyaXg6OmNvbnZlcnQyZGYoIldvU19FTV9CaWdEYXRhXzEyOS50eHQiKSAgCgpzY29wdXMgPC0gCiAgYmlibGlvbWV0cml4Ojpjb252ZXJ0MmRmKCJTY29wdXNfRU1fQmlnRGF0YV81OTcuYmliIiwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgIGRic291cmNlID0gInNjb3B1cyIsIAogICAgICAgICAgICAgICAgICAgICAgICAgICBmb3JtYXQgPSAiYmlidGV4IikKYGBgCgojIFByZXByb2Nlc2FuZG8gZGF0b3MKCmBgYHtyfQpyZWRfY2l0YWNpb25lcyA8LSAKICB3b3Nfc2NvcHVzX3RvcyRncmFwaApgYGAKCiMgRXhwb3J0YW5kbyBsb3MgZGF0b3MKCmBgYHtyfQpyZWRfY2l0YWNpb25lcyAlPiUgCiAgaWdyYXBoOjp3cml0ZS5ncmFwaCgicmVkX2NpdGFjaW9uZXMuZ3JhcGhtbCIsICJncmFwaG1sIikKCndvcyAlPiUgCiAgcmVhZHI6OndyaXRlX2Nzdigid29zLmNzdiIpCgpzY29wdXMgJT4lIAogIHJlYWRyOjp3cml0ZV9jc3YoInNjb3B1cy5jc3YiKQoKd29zX3Njb3B1c190b3MkZGYgJT4lIAogIHJlYWRyOjp3cml0ZV9jc3YoIndvc19zY29wdXNfdG9zLmNzdiIpCmBgYAoKIyBWaXN1YWxpemFuZG8gbG9zIGRhdG9zCgohW10oR3JhZm9fU2NvcHVzX1dvUy5zdmcpCg==