Scimago

Sept 8, 2023

Bibliographic networks

In the page https://www.scimagojr.com/journalrank.php we can click on Download data (upper right side of the picture)

and we get a CSV file scimagojr 2022.csv with data about 27955 journals

Rank;Sourceid;Title;Type;Issn;SJR;SJR Best Quartile;H index;Total Docs. (2022);Total Docs. (3years);Total Refs.;
  Total Cites (3years);Citable Docs. (3years);Cites / Doc. (2years);Ref. / Doc.;Country;Region;Publisher;Coverage;Categories;Areas
1;28773;"Ca-A Cancer Journal for Clinicians";journal;"15424863, 00079235";86,091;Q1;198;44;118;4268;30318;85;299,99;97,00;
  United States;Northern America;"Wiley-Blackwell";"1950-2022";"Hematology (Q1); Oncology (Q1)";"Medicine"
2;29431;"Quarterly Journal of Economics";journal;"00335533, 15314650";36,730;Q1;292;36;122;2398;2141;122;14,83;66,61;United Kingdom;
  Western Europe;"Oxford University Press";"1886-2022";"Economics and Econometrics (Q1)";"Economics, Econometrics and Finance"
...
27954;21100212328;"Zbornik za Umetnostno Zgodovino";journal;"0351224X, 15803767";;-;3;1;0;0;0;0;0,00;0,00;Slovenia;
  Eastern Europe;"Slovene Art History Society";"2011-2018";"History; Visual Arts and Performing Arts";"Arts and Humanities"
27955;19856;"Zhongguo Dianli/Electric Power";journal;"10049649";;-;11;293;0;7405;0;0;0,00;25,27;China;
  Asiatic Region;"Zhongguo Dianli Bianjibu";"1998, 2001-2003, 2022";"Electrical and Electronic Engineering; Energy Engineering 
  and Power Technology; Renewable Energy, Sustainability and the Environment";"Energy; Engineering"

From the page's Javascript code we can get also the Scimago categories (additional cleaning needed).

Selecting different download options we can get also information about Open access journals scimagojr 2022 OA.csv and WoS journals scimagojr 2022 WoS.csv.

We add the OA and WoS info to the basic info

> setwd("C:/Users/vlado/DL/data/scimago")
> colClasses <- c(Sourceid="character")
> S <- read.csv2("scimagojr 2022.csv",colClasses=colClasses,row.names=2)
> str(S)
> O <- read.csv2("scimagojr 2022 OA.csv",colClasses=colClasses)
> str(O)
> W <- read.csv2("scimagojr 2022 WoS.csv",colClasses=colClasses)
> str(W)
> S$OA <- FALSE; S$WoS <- FALSE
> Wid <- W$Sourceid; Oid <- O$Sourceid
> S[Wid,"WoS"] <- TRUE; S[Oid,"OA"] <- TRUE
> str(S)
'data.frame':   27955 obs. of  22 variables:
 $ Rank                  : int  1 2 3 4 5 6 7 8 9 10 ...
 $ Title                 : chr  "Ca-A Cancer Journal for Clinicians" "Quarterly Journal of Economics" ...
 $ Type                  : chr  "journal" "journal" "journal" "journal" ...
 $ Issn                  : chr  "15424863, 00079235" "00335533, 15314650" "14710072, 14710080" "00928674, 10974172" ...
 $ SJR                   : num  86.1 36.7 34.2 26.5 26 ...
 $ SJR.Best.Quartile     : chr  "Q1" "Q1" "Q1" "Q1" ...
 $ H.index               : int  198 292 485 856 1130 605 151 491 156 337 ...
 $ Total.Docs...2022.    : int  44 36 121 420 1410 522 103 423 122 71 ...
 $ Total.Docs...3years.  : int  118 122 328 1637 4561 1245 138 1038 294 355 ...
 $ Total.Refs.           : int  4268 2398 10804 27609 14396 15256 940 10852 11032 4237 ...
 $ Total.Cites..3years.  : int  30318 2141 13331 67791 133956 41058 3469 20441 11854 4108 ...
 $ Citable.Docs...3years.: int  85 122 156 1440 1854 664 133 426 168 354 ...
 $ Cites...Doc...2years. : num  300 14.8 35.5 43.8 33.9 ...
 $ Ref....Doc.           : num  97 66.6 89.3 65.7 10.2 ...
 $ Country               : chr  "United States" "United Kingdom" "United Kingdom" "United States" ...
 $ Region                : chr  "Northern America" "Western Europe" "Western Europe" "Northern America" ...
 $ Publisher             : chr  "Wiley-Blackwell" "Oxford University Press" "Nature Publishing Group" "Cell Press" ...
 $ Coverage              : chr  "1950-2022" "1886-2022" "2000-2022" "1974-2022" ...
 $ Categories            : chr  "Hematology (Q1); Oncology (Q1)" "Economics and Econometrics (Q1)" "Cell Biology (Q1); Molecular Biology (Q1)" ...
 $ Areas                 : chr  "Medicine" "Economics, Econometrics and Finance" "Biochemistry, Genetics and Molecular Biology" ...
 $ OA                    : logi  FALSE FALSE FALSE FALSE FALSE FALSE ...
 $ WoS                   : logi  TRUE TRUE TRUE TRUE TRUE TRUE ...
> write.csv2(S,"scimagojr_2022.csv")

and save the data to the file scimagojr_2022.csv.

> setwd("C:/Users/vlado/DL/data/scimago")
> S <- read.csv2("scimagojr_2022.csv",row.names=1)
> str(S)
> p <- table(S$Publisher)
> length(p)
[1] 7736
> P <- sort(p,decreasing=TRUE)
> P[1:50]
> s <- which(grepl("Springer",names(P),fixed=TRUE))
> length(s)
[1] 32
> names(P)[s]
> w <- which(grepl("Wiley",names(P),fixed=TRUE))
> u <- which(grepl("University",names(P),fixed=TRUE))
> length(u)
[1] 1327

> c <- "15607917, 1025496X"
> grepl(",",c,fixed=TRUE)
[1] TRUE
> strsplit(c,", ")[[1]]
[1] "15607917" "1025496X"
> t <- strsplit(c,", ")[[1]]
> t[1]<t[2]
[1] FALSE
> max(t)
[1] "15607917"
> min(t)
[1] "1025496X"

• notion of a publisher! Are Elsevier BV, Elsevier Ltd., Elsevier, Elsevier Inc. the same or different publishers?