#install.packages("bibliometrix", dependencies=TRUE)
library("bibliometrix")
##
## bibliometrix
## A R tool for comprehensive bibliometric analysis of scientific literature
##
## by Massimo Aria & Corrado Cuccurullo
##
## http:\\www.bibliometrix.org
D <- readFiles("multivariate.bib")
#D in base ISI WoK
M <- convert2df(D, dbsource = "scopus", format = "bibtex")
## Articles extracted 100
## Articles extracted 200
## Articles extracted 300
## Articles extracted 400
## Articles extracted 460
#base SCOPUS
Functions summary and plot
S=summary(object = results, k = 10, pause = FALSE)
##
##
## Main Information about data
##
## Articles 460
## Sources (Journals, Books, etc.) 202
## Keywords Plus (ID) 2199
## Author's Keywords (DE) 951
## Period 1985 - 2017
## Average citations per article 15.39
##
## Authors 855
## Author Appearances 1272
## Authors of single authored articles 22
## Authors of multi authored articles 833
##
## Articles per Author 0.538
## Authors per Article 1.86
## Co-Authors per Articles 2.77
## Collaboration Index 2.03
##
##
## Annual Scientific Production
##
## Year Articles
## 1985 2
## 1988 2
## 1989 3
## 1990 2
## 1991 3
## 1992 1
## 1993 1
## 1994 5
## 1995 5
## 1996 10
## 1997 5
## 1998 10
## 1999 8
## 2000 6
## 2001 7
## 2002 13
## 2003 12
## 2004 16
## 2005 22
## 2006 14
## 2007 31
## 2008 18
## 2009 31
## 2010 28
## 2011 40
## 2012 19
## 2013 36
## 2014 35
## 2015 39
## 2016 29
## 2017 7
##
## Annual Percentage Growth Rate 4.264293
##
##
## Most Productive Authors
##
## Authors Articles Authors Articles Fractionalized
## 1 KIM,SB 17 KIM,SB 5.54
## 2 KHOO,MBC 10 KHOO,MBC 4.83
## 3 NOOROSSANA,R 8 RUNGER,GC 3.83
## 4 CHENG,C-S 7 CHEN,Y-K 3.50
## 5 MARENGO,E 7 CHENG,C-S 3.20
## 6 ROBOTTI,E 7 TSUNG,F 3.17
## 7 SUKCHOTRAT,T 7 JOLAYEMI,JK 3.00
## 8 WOODALL,WH 7 REYNOLDSJR,MR 3.00
## 9 HE,Z 6 NOOROSSANA,R 2.92
## 10 KANG,JH 6 JIANG,W 2.75
##
##
## Top manuscripts per citations
##
## Paper
## 1 KOURTI T ;MACGREGOR JF,(1996),J QUAL TECHNOL
## 2 LOWRY CA ;MONTGOMERY DC,(1995),IIE TRANS
## 3 KANG L ;ALBIN SL,(2000),J QUAL TECHNOL
## 4 WOLD S ;KETTANEH N ;FRIDN H ;HOLMBERG A,(1998),CHEMOMETR. INTELL. LAB. SYST.
## 5 BERSIMIS S ;PSARAKIS S ;PANARETOS J,(2007),QUAL RELIAB ENG INT
## 6 MASON ROBERTL ;TRACY NOLAD ;YOUNG JOHNC,(1995),J QUAL TECHNOL
## 7 WOODALL WH ;NCUBE MM,(1985),TECHNOMETRICS
## 8 MASON RL ;TRACY ND ;YOUNG JC,(1997),J QUAL TECHNOL
## 9 SULLIVAN JH ;WOODALL WH,(1996),J QUAL TECHNOL
## 10 PRABHU SS ;RUNGER GC,(1997),J QUAL TECHNOL
## TC TCperYear
## 1 424 20.19
## 2 373 16.95
## 3 280 16.47
## 4 269 14.16
## 5 259 25.90
## 6 225 10.23
## 7 181 5.66
## 8 173 8.65
## 9 143 6.81
## 10 129 6.45
##
##
## Most Productive Countries
##
## Country Articles Freq
## 1 USA 112 0.2467
## 2 CHINA 46 0.1013
## 3 TAIWAN 38 0.0837
## 4 BRAZIL 24 0.0529
## 5 ITALY 22 0.0485
## 6 IRAN 21 0.0463
## 7 SPAIN 20 0.0441
## 8 MALAYSIA 17 0.0374
## 9 KOREA 16 0.0352
## 10 FRANCE 11 0.0242
##
##
## Total Citations per Country
##
## Country Total Citations Average Article Citations
## 1 USA 3029 27.04
## 2 CANADA 504 63.00
## 3 TAIWAN 489 12.87
## 4 CHINA 353 7.67
## 5 SWEDEN 336 84.00
## 6 GREECE 333 47.57
## 7 ITALY 269 12.23
## 8 IRAN 227 10.81
## 9 SPAIN 170 8.50
## 10 NETHERLANDS 140 20.00
##
##
## Most Relevant Sources
##
## Sources Articles
## 1 JOURNAL OF QUALITY TECHNOLOGY 34
## 2 QUALITY AND RELIABILITY ENGINEERING INTERNATIONAL 33
## 3 COMMUNICATIONS IN STATISTICS: SIMULATION AND COMPUTATION 15
## 4 INTERNATIONAL JOURNAL OF PRODUCTION RESEARCH 14
## 5 QUALITY ENGINEERING 14
## 6 JOURNAL OF STATISTICAL COMPUTATION AND SIMULATION 11
## 7 COMMUNICATIONS IN STATISTICS - THEORY AND METHODS 10
## 8 EXPERT SYSTEMS WITH APPLICATIONS 10
## 9 INTERNATIONAL JOURNAL OF ADVANCED MANUFACTURING TECHNOLOGY 10
## 10 CHEMOMETRICS AND INTELLIGENT LABORATORY SYSTEMS 8
##
##
## Most Relevant Keywords
##
## Author Keywords (DE) Articles
## 1 MULTIVARIATE CONTROL CHARTS 106
## 2 STATISTICAL PROCESS CONTROL 94
## 3 MULTIVARIATE CONTROL CHART 71
## 4 AVERAGE RUN LENGTH 48
## 5 MULTIVARIATE STATISTICAL PROCESS CONTROL 32
## 6 CONTROL CHARTS 25
## 7 QUALITY CONTROL 20
## 8 CONTROL CHART 17
## 9 HOTELLING'S T2 17
## 10 SPC 13
## Keywords-Plus (ID) Articles
## 1 MULTIVARIATE CONTROL CHARTS 199
## 2 FLOWCHARTING 108
## 3 CONTROL CHARTS 93
## 4 QUALITY CONTROL 88
## 5 GRAPHIC METHODS 46
## 6 PRINCIPAL COMPONENT ANALYSIS 44
## 7 STATISTICAL PROCESS CONTROL 42
## 8 MULTIVARIATE ANALYSIS 34
## 9 MULTIVARIANT ANALYSIS 31
## 10 MULTIVARIATE STATISTICAL PROCESS CONTROL 31
Analysis of Cited References: To obtain the most frequent cited manuscripts:
CR <- citations(M,field="article", sep = ";")
CR$Cited[1:10]
## CR
## LOWRY, CA, WOODALL, WH, CHAMP, CW, RIGDON, SE, A MULTIVARIATE EXPONENTIALLY WEIGHTED MOVING AVERAGE CONTROL CHART (1992) TECHNOMETRICS, 34, PP 46-53
## 57
## LOWRY, CA, MONTGOMERY, DC, A REVIEW OF MULTIVARIATE CONTROL CHARTS (1995) IIE TRANSACTIONS, 27, PP 800-810
## 32
## HEALY, JD, A NOTE ON MULTIVARIATE CUSUM PROCEDURES (1987) TECHNOMETRICS, 29, PP 409-412
## 28
## MASON, RL, TRACY, ND, YOUNG, JC, DECOMPOSITION OF T2 FOR MULTIVARIATE CONTROL CHART INTERPRETATION (1995) JOURNAL OF QUALITY TECHNOLOGY, 27, PP 99-108
## 25
## CROSIER, RB, MULTIVARIATE GENERALIZATIONS OF CUMULATIVE SUM QUALITY CONTROL SCHEMES (1988) TECHNOMETRICS, 30, PP 291-303
## 24
## HAWKINS, DM, REGRESSION ADJUSTMENT FOR VARIABLES IN MULTIVARIATE QUALITY CONTROL (1993) JOURNAL OF QUALITY TECHNOLOGY, 25, PP 170-182
## 23
## HAWKINS, DM, MULTIVARIATE QUALITY CONTROL BASED ON REGRESSION-ADJUSTED VARIABLES (1991) TECHNOMETRICS, 33, PP 61-75
## 20
## LOWRY, CA, WOODALL, WH, CHAMP, CW, RIGDON, SE, A MULTIVARIATE EXPONENTIALLY WEIGHTED MOVING AVERAGE CONTROL CHART (1992) TECHNOMETRICS, 34 (1), PP 46-53
## 20
## TRACY, ND, YOUNG, JC, MASON, RL, MULTIVARIATE CONTROL CHARTS FOR INDIVIDUAL OBSERVATIONS (1992) JOURNAL OF QUALITY TECHNOLOGY, 24, PP 88-95
## 18
## BERSIMIS, S, PSARAKIS, S, PANARETOS, J, MULTIVARIATE STATISTICAL PROCESS CONTROL CHARTS: AN OVERVIEW (2007) QUALITY AND RELIABILITY ENGINEERING INTERNATIONAL, 23, PP 517-543
## 17
To obtain the most frequent cited first authors:
CR <- citations(M, field = "author", sep = ";")
CR$Cited[1:10]
## CR
## WOODALL, WH MONTGOMERY, DC MASON, RL YOUNG, JC RUNGER, GC
## 497 473 351 341 272
## TRACY, ND HAWKINS, DM LOWRY, CA CHAMP, CW MACGREGOR, JF
## 238 198 196 195 188
To obtain the most frequent local cited authors:
CR <- localCitations(M, results, sep = ";")
CR[1:10]
## CR
## TSUNG,F KOURTI,T ZOU,C APARISI,F PSARAKIS,S PANARETOS,J
## 163 115 101 95 83 76
## BERSIMIS,S WANG,Z WOLD,S SHI,J
## 75 71 61 58
The function dominance calculates the authors’ dominance ranking
#The Dominance Factor is a ratio indicating the fraction of multi authored articles in which a scholar appears as first author.
DF <- dominance(results, k = 10)
DF
## Dominance Factor Multi Authored First Authored
## CHENG,C-S 0.85714286 7 6
## MARENGO,E 0.85714286 7 6
## KANG,JH 0.83333333 6 5
## KHOO,MBC 0.70000000 10 7
## REYNOLDSJR,MR 0.66666667 6 4
## SUKCHOTRAT,T 0.42857143 7 3
## ROBOTTI,E 0.14285714 7 1
## WOODALL,WH 0.14285714 7 1
## NOOROSSANA,R 0.12500000 8 1
## KIM,SB 0.05882353 17 1
## Rank by Articles Rank by DF
## CHENG,C-S 4 1
## MARENGO,E 5 2
## KANG,JH 9 3
## KHOO,MBC 2 4
## REYNOLDSJR,MR 10 5
## SUKCHOTRAT,T 7 6
## ROBOTTI,E 6 7
## WOODALL,WH 8 8
## NOOROSSANA,R 3 9
## KIM,SB 1 10
Authors’ hindex
#The index is based on the set of the scientist's most cited papers and the number of citations that they have received in other publications.
indices <- Hindex(M, authors=c("CHENG"), sep = ";")
indices$H
## Author h_index g_index m_index TC NP
## 1 CHENG 3 9 0.3 83 13
indices$CitationList
## [[1]]
## Authors Journal Year
## 5 CHENG C-S ;CHENG H-P PROCEEDINGS - INTERNATIONAL CO 2009
## 6 LEE H-T ;LIN C-H ;HUANG Y-C ;C JOURNAL OF QUALITY 2016
## 7 KAEWSUWAN P ;YUANGYAI C ;CHENG INTERNATIONAL JOURNAL OF FOOD 2016
## 8 CHENG Y ;MUKHERJEE A IEEE INTERNATIONAL CONFERENCE 2014
## 9 CHENG C-S ;LEE H-T JOURNAL OF THE CHINESE INSTITU 2015
## 12 KAN C ;CHENG C ;YANG H JOURNAL OF MANUFACTURING SYSTE 2016
## 2 CHENG C-S ;LEE H-T JOURNAL OF THE CHINESE INSTITU 2012
## 3 CHENG C-S ;LEE H-T JOURNAL OF QUALITY 2014
## 4 CHENG CS ;CHENG HP ;HUANG KK IEEM 2009 - IEEE INTERNATIONAL 2009
## 11 LI W ;HAN H ;CHENG Z ;ZHANG Y SENSORS AND ACTUATORS, B: CHEM 2016
## 1 CHENG C-R ;SHIAU J-JH QUALITY AND RELIABILITY ENGINE 2015
## 10 CHENG C-S ;CHENG H-P COMPUTERS AND INDUSTRIAL ENGIN 2011
## 13 CHENG C-S ;CHENG H-P EXPERT SYSTEMS WITH APPLICATIO 2008
## TotalCitation
## 5 0
## 6 0
## 7 0
## 8 0
## 9 0
## 12 0
## 2 1
## 3 1
## 4 1
## 11 3
## 1 6
## 10 15
## 13 56
To calculate the hindex of the first 15 most productive authors (in this collection):
authors=gsub(","," ",names(results$Authors)[1:15])
indices <- Hindex(M, authors, sep = ";")
indices$H
## Author h_index g_index m_index TC NP
## 1 KIM SB 7 10 0.63636364 104 17
## 2 KHOO MBC 3 4 0.33333333 40 4
## 3 NOOROSSANA R 3 5 0.27272727 29 7
## 4 CHENG C-S 2 7 0.20000000 73 7
## 5 MARENGO E 1 1 0.09090909 20 1
## 6 ROBOTTI E 1 1 0.09090909 20 1
## 7 SUKCHOTRAT T 4 7 0.36363636 54 7
## 8 WOODALL WH 2 2 0.18181818 68 2
## 9 HE Z 3 5 0.37500000 30 6
## 10 KANG JH 2 3 0.28571429 15 6
## 11 POPPI RJ 4 5 0.44444444 68 5
## 12 REYNOLDSJR MR 3 3 0.27272727 34 3
## 13 RUNGER GC 0 0 0.00000000 0 0
## 14 TSUNG F 3 4 0.30000000 92 4
## 15 ALFARO JL 3 5 0.33333333 29 5
Bibliometric network matrices
A <- cocMatrix(M, Field = "SO", sep = ";")
sort(Matrix::colSums(A), decreasing = TRUE)[1:15]
## JOURNAL OF QUALITY TECHNOLOGY
## 34
## QUALITY AND RELIABILITY ENGINEERING INTERNATIONAL
## 33
## COMMUNICATIONS IN STATISTICS: SIMULATION AND COMPUTATION
## 15
## QUALITY ENGINEERING
## 14
## INTERNATIONAL JOURNAL OF PRODUCTION RESEARCH
## 14
## JOURNAL OF STATISTICAL COMPUTATION AND SIMULATION
## 11
## EXPERT SYSTEMS WITH APPLICATIONS
## 10
## COMMUNICATIONS IN STATISTICS - THEORY AND METHODS
## 10
## INTERNATIONAL JOURNAL OF ADVANCED MANUFACTURING TECHNOLOGY
## 10
## IIE TRANSACTIONS (INSTITUTE OF INDUSTRIAL ENGINEERS)
## 8
## CHEMOMETRICS AND INTELLIGENT LABORATORY SYSTEMS
## 8
## JOURNAL OF APPLIED STATISTICS
## 7
## ANALYTICA CHIMICA ACTA
## 6
## COMPUTATIONAL STATISTICS AND DATA ANALYSIS
## 6
## ANNUAL QUALITY CONGRESS TRANSACTIONS
## 6
#Following this approach, you can compute several bipartite networks: Citation network
A <- cocMatrix(M, Field = "CR", sep = ". ")
sort(Matrix::colSums(A), decreasing = TRUE)[1:15]
## MULTIVARIAT TECHNOMETRICS INTRODUCTIO INTERNATIONA ENGINEERING
## 405 279 215 194 168
## EXPONENTIALL OBSERVATION COMMUNICATION TRANSACTIONS MANUFACTURIN
## 156 151 149 146 140
## APPLICATIONS INTERNATIONAL APPLICATION ASSOCIATION MCGRAW-HILL
## 133 131 127 112 111
#Author network
A <- cocMatrix(M, Field = "AU", sep = ";")
sort(Matrix::colSums(A), decreasing = TRUE)[1:15]
## KIM SB KHOO MBC KIM SB CHENG C-S ROBOTTI E
## 10 7 7 6 6
## SUKCHOTRAT T MARENGO E KANG JH TSUNG F HE Z
## 6 6 6 6 5
## POPPI RJ ALFARO JL LIPAROTA MC NOOROSSANA R GONTIJO LC
## 5 5 5 5 4
#Country network Authors' Countries
M <- metaTagExtraction(M, Field = "AU_CO", sep = ";")
A <- cocMatrix(M, Field = "AU_CO", sep = ";")
sort(Matrix::colSums(A), decreasing = TRUE)[1:15]
## UNITED STATES CHINA TAIWAN BRAZIL KOREA
## 116 47 37 27 23
## ITALY SPAIN IRAN MALAYSIA FRANCE
## 22 21 21 17 12
## GERMANY INDIA UNITED KINGDOM CANADA EGYPT
## 10 10 9 8 8
#Author keyword network
A <- cocMatrix(M, Field = "DE", sep = ";")
sort(Matrix::colSums(A), decreasing = TRUE)[1:15]
## MULTIVARIATE CONTROL CHARTS
## 106
## STATISTICAL PROCESS CONTROL
## 94
## MULTIVARIATE CONTROL CHART
## 71
## AVERAGE RUN LENGTH
## 48
## MULTIVARIATE STATISTICAL PROCESS CONTROL
## 32
## CONTROL CHARTS
## 25
## QUALITY CONTROL
## 20
## CONTROL CHART
## 17
## HOTELLING'S T2
## 17
## SPC
## 13
## EWMA
## 12
## NEURAL NETWORKS
## 11
## AVERAGE RUN LENGTH (ARL)
## 10
## PRINCIPAL COMPONENT ANALYSIS
## 9
## CUSUM
## 9
#Keyword Plus network
A <- cocMatrix(M, Field = "ID", sep = ";")
sort(Matrix::colSums(A), decreasing = TRUE)[1:15]
## MULTIVARIATE CONTROL CHARTS
## 199
## FLOWCHARTING
## 108
## CONTROL CHARTS
## 93
## QUALITY CONTROL
## 86
## GRAPHIC METHODS
## 46
## STATISTICAL PROCESS CONTROL
## 42
## PRINCIPAL COMPONENT ANALYSIS
## 35
## MULTIVARIATE STATISTICAL PROCESS CONTROL
## 31
## MULTIVARIANT ANALYSIS
## 31
## MULTIVARIATE ANALYSIS
## 27
## MULTIVARIABLE CONTROL SYSTEMS
## 27
## AVERAGE RUN LENGTHS
## 26
## OUT-OF-CONTROL SIGNALS
## 26
## MATHEMATICAL MODELS
## 25
## PROCESS CONTROL
## 24
Lotka’s Law coefficient estimation
# Author Productivity. Empirical Distribution
L <- lotka(results)
L$AuthorProd
## N.Articles N.Authors Freq
## 1 1 631 0.738011696
## 2 2 134 0.156725146
## 3 3 47 0.054970760
## 4 4 19 0.022222222
## 5 5 10 0.011695906
## 6 6 6 0.007017544
## 7 7 5 0.005847953
## 8 8 1 0.001169591
## 9 10 1 0.001169591
## 10 17 1 0.001169591
# Beta coefficient estimate
L$Beta
## [1] 2.597497
# Constant
L$C
## [1] 0.7571562
# Goodness of fit
L$R2
## [1] 0.9463474
# P-value of K-S two sample test
L$p.value
## [1] 0.4004737
# Observed distribution in graphic
Observed=L$AuthorProd[,3]
# Theoretical distribution with Beta = 2
Theoretical=10^(log10(L$C)-2*log10(L$AuthorProd[,1]))
plot(L$AuthorProd[,1],Theoretical,type="l",col="red",ylim=c(0, 1), xlab="Articles",ylab="Freq. of
Authors",main="Scientific Productivity")
lines(L$AuthorProd[,1],Observed,col="blue")
#legend
legend(x="topright",c("Theoretical (B=2)","Observed"),col=c("red","blue"),lty =
c(1,1,1),cex=0.6,bty="n")
Bibliographic coupling
NetMatrix <- biblioNetwork(M, analysis = "coupling", network = "references", sep = ". ")
#author's coupling
NetMatrix <- biblioNetwork(M, analysis = "coupling", network = "authors", sep = ";")
# plot authors' similarity (first 20 authors)
net=networkPlot(NetMatrix, n = 20, Title = "Authors' Coupling", type = "fruchterman", size=FALSE, remove.multiple=TRUE, vos.path="c:/Users/DE/Desktop/bibliometRics/VOSviewer")
# calculate jaccard similarity coefficient
S <- couplingSimilarity(NetMatrix, type="jaccard")
# plot authors' similarity (first 20 authors)
net=networkPlot(S, n = 20, Title = "Authors' Coupling", remove.multiple=TRUE, size = FALSE)
NetMatrix <- biblioNetwork(M, analysis = "co-citation", network = "references", sep = ". ")
net=networkPlot(NetMatrix, n = 20, Title = "Bibliographic cocitation", type = "fruchterman", size=FALSE, remove.multiple=TRUE, vos.path="c:/Users/DE/Desktop/bibliometRics/VOSviewer")
NetMatrix <- biblioNetwork(M, analysis = "collaboration", network = "authors", sep = ";")
net=networkPlot(NetMatrix, n = 20, Title = "Bibliographic collaboration", type = "fruchterman", size=FALSE, remove.multiple=TRUE, vos.path="c:/Users/DE/Desktop/bibliometRics/VOSviewer")
Visualizing bibliographic networks
Country Scientific Collaboration
# Create a country collaboration network
M <- metaTagExtraction(M, Field = "AU_CO", sep = ";")
NetMatrix <- biblioNetwork(M, analysis = "collaboration", network = "countries", sep = ";")
# Plot the network
net=networkPlot(NetMatrix, n = 20, Title = "Country Collaboration", type = "circle", size=TRUE,remove.multiple=FALSE)
net=networkPlot(NetMatrix, n = 20, Title = "Country Collaboration", type = "fruchterman", size=FALSE, remove.multiple=TRUE, vos.path="c:/Users/DE/Desktop/bibliometRics/VOSviewer")
#CoCitation Network
# Create a co-citation network
NetMatrix <- biblioNetwork(M, analysis = "co-citation", network = "references", sep = ". ")
# Plot the network
net=networkPlot(NetMatrix, n = 5, Title = "Co-Citation Network", type = "fruchterman", size=T, remove.multiple=FALSE)
#Keyword co-occurrencies
# Create keyword co-occurrencies network
NetMatrix <- biblioNetwork(M, analysis = "co-occurrences", network = "keywords", sep = ";")
# Plot the network
net=networkPlot(NetMatrix, n = 20, Title = "Keyword Co-occurrences", type = "kamada", size=T)
#Analysis of Cluster
# Conceptual Structure using keywords
CS <- conceptualStructure(M,field="ID", minDegree=4, k.max=5, stemming=FALSE)
Historical Co-Citation Network
