Buscador de Revistas

Buscador de Revistas Científicas

Este código se puede utilizar como referencia a la búsqueda y exportación de tablas con información de revistas científicas (journals) de acuerdo a varios criterios.

Carga de librerías

library(readr)
library(tidyverse)

Lectura de tabla

journalrank <- read_delim("https://www.scimagojr.com/journalrank.php?out=xls", 
                          delim = ";", escape_double = FALSE, trim_ws = TRUE)

knitr::kable(colnames(journalrank), caption = "**Campos/Criterios de búsqueda**") # Muestra los nombres de los campos de criterios de búsqueda.

Campos/Criterios de búsqueda

x
Rank
Sourceid
Title
Type
Issn
SJR
SJR Best Quartile
H index
Total Docs. (2021)
Total Docs. (3years)
Total Refs.
Total Cites (3years)
Citable Docs. (3years)
Cites / Doc. (2years)
Ref. / Doc.
Country
Region
Publisher
Coverage
Categories

Aplicación de filtros

Rev_filtradas = journalrank %>% 
  filter(`SJR Best Quartile` == "Q1" | `SJR Best Quartile` == "Q2") %>%  # Filtado para los dos primeros cuartiles
  filter(Type == "journal") %>% # Filtro para selección única de revistas
  filter(grepl("Process Chemistry", Categories)) # Filtrado específico para un tema/categoría de revista.

Visualización de la tabla

View(Rev_filtradas)

Descarga de la tabla con filtros.

Es necesario sustituir la ruta “ruta” para la exportación correcta.

write.csv(Rev_filtradas, "D:/DescargasGdim/Process_Chem.csv", col.names = TRUE) 

Ejemplo para una segunda descarga

Rev_filtradas2 = journalrank %>% 
  filter(`SJR Best Quartile` == "Q1" | `SJR Best Quartile` == "Q2") %>% 
  filter(Type == "journal") %>% 
  filter(grepl("Water Science", Categories))

Es necesario sustituir la ruta “ruta2” para la exportación correcta.

View(Rev_filtradas2)

write.csv(Rev_filtradas2, "D:/DescargasGdim/Water_Science.csv", col.names = TRUE)