youtube_3_2022

Author

Sebastian Robledo

Creating Academic Social Networks (ASN) with bibliometrix

Loading packages

library(tidyverse)

── Attaching packages ─────────────────────────────────────── tidyverse 1.3.1 ──

✓ ggplot2 3.3.5     ✓ purrr   0.3.4
✓ tibble  3.1.4     ✓ dplyr   1.0.7
✓ tidyr   1.1.3     ✓ stringr 1.4.0
✓ readr   2.0.1     ✓ forcats 0.5.1

── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
x dplyr::filter() masks stats::filter()
x dplyr::lag()    masks stats::lag()

library(tidygraph)


Attaching package: 'tidygraph'

The following object is masked from 'package:stats':

    filter

library(igraph)


Attaching package: 'igraph'

The following object is masked from 'package:tidygraph':

    groups

The following objects are masked from 'package:dplyr':

    as_data_frame, groups, union

The following objects are masked from 'package:purrr':

    compose, simplify

The following object is masked from 'package:tidyr':

    crossing

The following object is masked from 'package:tibble':

    as_data_frame

The following objects are masked from 'package:stats':

    decompose, spectrum

The following object is masked from 'package:base':

    union

library(bibliometrix)

To cite bibliometrix in publications, please use:

Aria, M. & Cuccurullo, C. (2017) bibliometrix: An R-tool for comprehensive science mapping analysis, 
                                 Journal of Informetrics, 11(4), pp 959-975, Elsevier.
                        

https://www.bibliometrix.org

                        
For information and bug reports:
                        - Send an email to info@bibliometrix.org   
                        - Write a post on https://github.com/massimoaria/bibliometrix/issues
                        
Help us to keep Bibliometrix free to download and use by contributing with a small donation to support our research team (https://bibliometrix.org/donate.html)

                        
To start with the shiny web-interface, please digit:
biblioshiny()

Loading data

scopus <- 
  convert2df(file = "scientometrics_600.bib",  # cargamos documentos
             dbsource = "scopus", 
             format = "bibtex")


Converting your scopus collection into a bibliographic dataframe

Done!


Generating affiliation field tag AU_UN from C1:  Done!

Creating the ASN

scopus_asn <- 
  biblioNetwork(scopus, analysis = "collaboration", 
                network = "authors") %>% 
  graph_from_adjacency_matrix(mode = "undirected", 
                              weighted = TRUE) %>% 
  simplify() %>% 
  as_tbl_graph() %>% 
  activate(nodes) %>% 
  mutate(components = group_components(type = "weak")) %>% 
  filter(components == 1) %>% 
  as.igraph()

Exporting ASN

write_graph(scopus_asn, 
            "scopus_asn.graphml", 
            "graphml")