R Notebook

Creando el ambiente de trabajo

library(tidyverse)
library(bibliometrix)
library(tidygraph)
library(igraph)
library(CINNA)
source("verbs.R") # https://github.com/coreofscience/tidyscience/blob/main/verbs.R

Cargar los datos

scopus_df <- bibliometrix::convert2df(file = "EM.bib",
                                      dbsource = "scopus",
                                      format = "bibtex")

## 
## Converting your scopus collection into a bibliographic dataframe
## 
## Done!
## 
## 
## Generating affiliation field tag AU_UN from C1:  Done!

Creando ToS

ToS <-
  scopus_df %>%
  get_references() %>%
  get_citation_network(scopus_df = scopus_df) %>%
  get_citation_network_tos() %>%
  get_sap()