Bibliometrics Analysis
Query
- Sample: 69 document (2019 - 1994)
- Source: https://www.scopus.com/
- Scopus - Advanced search
- Query: TITLE-ABS-KEY (“CORPORATE CITIZENSHIP”)ANDTITLE-ABS-KEY(“Stakeholder$”)ANDREFAUTHLASTNAME(“Freeman”) ### Install and load package if require:
if(!require("install.load")) {
install.packages("install.load")
library(install.load)
}
## Loading required package: install.load
install_load("dplyr","factoextra", "FactoMineR", "ggplot2", "igraph", "Matrix", "rscopus",
"SnowballC", "stringr", "bibliometrix")
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
## Loading required package: ggplot2
## Welcome! Want to learn more? See two factoextra-related books at https://goo.gl/ve3WBa
##
## Attaching package: 'igraph'
## The following objects are masked from 'package:dplyr':
##
## as_data_frame, groups, union
## The following objects are masked from 'package:stats':
##
## decompose, spectrum
## The following object is masked from 'package:base':
##
## union
## 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.
##
##
## http:\\www.bibliometrix.org
##
##
## To start with the shiny web-interface, please digit:
## biblioshiny()
# Base de dados
D <- readFiles("https://julialang.com.br/wp-content/uploads/2020/03/CORPORATE_CITIZENSHIP.bib") # carregar base
M <- convert2df(D, dbsource = "scopus", format = "bibtex") # converter base
##
## Converting your scopus collection into a bibliographic dataframe
##
## Articles extracted 69
## Done!
##
##
## Generating affiliation field tag AU_UN from C1: Done!
Análise bibliométrica
##
##
## Main Information about data
##
## Documents 69
## Sources (Journals, Books, etc.) 50
## Keywords Plus (ID) 44
## Author's Keywords (DE) 207
## Period 1994 - 2019
## Average citations per documents 72.43
##
## Authors 117
## Author Appearances 132
## Authors of single-authored documents 21
## Authors of multi-authored documents 96
## Single-authored documents 27
##
## Documents per Author 0.59
## Authors per Document 1.7
## Co-Authors per Documents 1.91
## Collaboration Index 2.29
##
## Document types
## ARTICLE 47
## BOOK 5
## BOOK CHAPTER 11
## CONFERENCE PAPER 4
## REVIEW 2
##
##
## Annual Scientific Production
##
## Year Articles
## 1994 1
## 2000 1
## 2003 2
## 2004 5
## 2006 1
## 2007 3
## 2008 2
## 2009 6
## 2010 4
## 2011 4
## 2012 5
## 2013 3
## 2014 5
## 2015 7
## 2016 5
## 2017 8
## 2018 2
## 2019 5
##
## Annual Percentage Growth Rate 6.649494
##
##
## Most Productive Authors
##
## Authors Articles Authors Articles Fractionalized
## 1 CAMILLERI MA 4 CAMILLERI MA 4.00
## 2 RENDTORFF JD 3 RENDTORFF JD 3.00
## 3 WADDOCK S 3 ZBAG GK 2.00
## 4 ANDRIOF J 2 WADDOCK S 1.75
## 5 CHAPPLE W 2 ORTS EW 1.50
## 6 LEE JS 2 SISON AJG 1.50
## 7 MOON J 2 BOTHA MM 1.00
## 8 MUTUC EB 2 BRITCYNA E 1.00
## 9 ORTS EW 2 BROOKS LJ 1.00
## 10 SISON AJG 2 CORRIGAN CC 1.00
##
##
## Top manuscripts per citations
##
## Paper TC TCperYear
## 1 GARRIGA E, 2004, J BUS ETHICS 1400 82.35
## 2 AGUINIS H, 2012, J MANAGE 1131 125.67
## 3 BHATTACHARYA CB, 2009, J BUS ETHICS 384 32.00
## 4 SCHERER AG, 2006, BUS ETHICS Q 263 17.53
## 5 MATTEN D, 2003, J BUS ETHICS 230 12.78
## 6 JOSE A, 2007, J BUS ETHICS 208 14.86
## 7 ROLOFF J, 2008, J BUS ETHICS 175 13.46
## 8 PARSONS R, 2014, RESOUR POLICY 90 12.86
## 9 RUPP DE, 2015, ANNUAL REVIEW ORGANIZATIONAL PSYCHOLOGY ORGANIZATIONAL BEHAV 85 14.17
## 10 MORENO A, 2009, J COMM MANAGE 83 6.92
##
##
## Corresponding Author's Countries
##
## Country Articles Freq SCP MCP MCP_Ratio
## 1 USA 13 0.3421 11 2 0.154
## 2 SPAIN 4 0.1053 4 0 0.000
## 3 UNITED KINGDOM 4 0.1053 4 0 0.000
## 4 SOUTH AFRICA 3 0.0789 3 0 0.000
## 5 AUSTRALIA 1 0.0263 1 0 0.000
## 6 CANADA 1 0.0263 1 0 0.000
## 7 FINLAND 1 0.0263 0 1 1.000
## 8 FRANCE 1 0.0263 1 0 0.000
## 9 GERMANY 1 0.0263 1 0 0.000
## 10 INDIA 1 0.0263 1 0 0.000
##
##
## SCP: Single Country Publications
##
## MCP: Multiple Country Publications
##
##
## Total Citations per Country
##
## Country Total Citations Average Article Citations
## 1 USA 1942 149.38
## 2 SPAIN 1532 383.00
## 3 UNITED KINGDOM 323 80.75
## 4 FRANCE 175 175.00
## 5 AUSTRALIA 90 90.00
## 6 KOREA 63 63.00
## 7 NETHERLANDS 24 24.00
## 8 QATAR 22 22.00
## 9 SOUTH AFRICA 17 5.67
## 10 TURKEY 13 13.00
##
##
## Most Relevant Sources
##
## Sources Articles
## 1 JOURNAL OF BUSINESS ETHICS 16
## 2 BUSINESS HORIZONS 2
## 3 ENCYCLOPEDIA OF APPLIED ETHICS 2
## 4 JOURNAL OF COMMUNICATION MANAGEMENT 2
## 5 SOCIAL RESPONSIBILITY JOURNAL 2
## 6 ANNUAL REVIEW OF ORGANIZATIONAL PSYCHOLOGY AND ORGANIZATIONAL BEHAVIOR 1
## 7 ASIA-PACIFIC SOCIAL SCIENCE REVIEW 1
## 8 ASIAN ACADEMY OF MANAGEMENT JOURNAL 1
## 9 BALTIC JOURNAL OF MANAGEMENT 1
## 10 BUSINESS & SOCIETY 1
##
##
## Most Relevant Keywords
##
## Author Keywords (DE) Articles Keywords-Plus (ID) Articles
## 1 CORPORATE CITIZENSHIP 34 CONCEPTUAL FRAMEWORK 3
## 2 CORPORATE SOCIAL RESPONSIBILITY 29 STAKEHOLDER 3
## 3 STAKEHOLDER THEORY 10 SUSTAINABLE DEVELOPMENT 3
## 4 BUSINESS ETHICS 7 CONSTRUCTION INDUSTRY 2
## 5 SOCIAL RESPONSIBILITY 6 CORPORATE CITIZENSHIP 2
## 6 STAKEHOLDER MANAGEMENT 6 ECONOMIC AND SOCIAL EFFECTS 2
## 7 STAKEHOLDERS 6 ENVIRONMENTAL IMPACT 2
## 8 SUSTAINABILITY 6 AGROINDUSTRY 1
## 9 CORPORATE SOCIAL PERFORMANCE 5 CITIZENSHIP 1
## 10 CSR 4 COMMUNITY RELATIONS 1
Análise das referências citadas
M$CR[1]
## [1] "CIALDINI, R.B., (1984) INFLUENCE, , NEW YORK: QUILL; DONLAN, W., 'POLITICAL RECIPROCITY IN DARK AGE GREECE: ODYSSEUS AND HIS HETAIROI' (1998) RECIPROCITY IN ANCIENT GREECE, PP. 51-72. , C. GILL, N. POSTLETHWAITE AND R. SEAFORD (EDS), OXFORD AND NEW YORK: OXFORD UNIVERSITY PRESS; DUNFEE, T.W., 'DO FIRMS WITH UNIQUE COMPETENCIES FOR RESCUING VICTIMS OF HUMAN CATASTROPHES HAVE SPECIAL OBLIGATIONS? CORPORATE RESPONSIBILITY AND THE AIDS CATASTROPHE IN SUB-SAHARAN AFRICA' (2006) BUSINESS ETHICS QUARTERLY, 16 (2), PP. 185-210; DUNHAM, L., FREEMAN, R.E., LIEDTKA, J., (2001) 'THE SOFT UNDERBELLY OF STAKEHOLDER THEORY: TOWARDS UNDERSTANDING COMMUNITY', , PRESENTATION TO SOCIETY OF BUSINESS ETHICS ANNUAL MEETING, AUGUST, WASHINGTON, DC; DUNHAM, L., FREEMAN, R.E., LIEDTKA, J., 'ENHANCING STAKEHOLDER PRACTICE: A PARTICULARIZED EXPLORATION OF COMMUNITY' (2006) BUSINESS ETHICS QUARTERLY, 16 (1), PP. 23-42; FREEMAN, R.E., (1984) STRATEGIC MANAGEMENT: A STAKEHOLDER APPROACH, , BOSTON, MA: PITMAN; FREEMAN, R.E., GILBERT, JR.D.R., (1987) CORPORATE STRATEGY AND THE SEARCH FOR ETHICS, , ENGLEWOOD CLIFFS, NJ: PRENTICE-HALL; HSIEH, N., 'THE OBLIGATIONS OF TRANSNATIONAL CORPORATIONS: RAWLSIAN JUSTICE AND THE DUTY OF ASSISTANCE' (2004) BUSINESS ETHICS QUARTERLY, 14 (4), PP. 643-661; JOHNSON, J., 'TAYLOR' (2003) ON AND ON, , BRUSHFIRE RECORDS, LOS ANGELES, CA; LOGSDON, J.M., WOOD, D.J., 'BUSINESS CITIZENSHIP: FROM DOMESTIC TO GLOBAL LEVEL OF ANALYSIS' (2002) BUSINESS ETHICS QUARTERLY, 12 (2), PP. 155-187; MATTEN, D., CRANE, A., 'CORPORATE CITIZENSHIP: TOWARD AN EXTENDED THEORETICAL CONCEPTUALIZATION' (2005) ACADEMY OF MANAGEMENT REVIEW, 30 (1), PP. 166-179; MOON, J., CRANE, A., MATTEN, D., 'CAN CORPORATIONS BE CITIZENS? CORPORATE CITIZENSHIP AS A METAPHOR FOR BUSINESS PARTICIPATION IN SOCIETY' (2005) BUSINESS ETHICS QUARTERLY, 15 (3), PP. 429-453; PHILLIPS, R.A., 'STAKEHOLDER THEORY AND A PRINCIPLE OF FAIRNESS' (1997) BUSINESS ETHICS QUARTERLY, 7 (1), PP. 51-66; PHILLIPS, R.A., (2003) STAKEHOLDER THEORY AND ORGANIZATIONAL ETHICS, , SAN FRANCISCO, CA: BERRETT-KOEHLER; PHILLIPS, R., CALDWELL, C., 'VALUE CHAIN RESPONSIBILITY: A FAREWELL TO ARM'S LENGTH' (2005) BUSINESS AND SOCIETY REVIEW, 110 (4), PP. 345-370; PHILLIPS, R., FREEMAN, R.E., WICKS, A.C., 'WHAT STAKEHOLDER THEORY IS NOT' (2003) BUSINESS ETHICS QUARTERLY, 13 (4), PP. 479-502; PORTER, M.E., (1980) COMPETITIVE STRATEGY, , NEW YORK: FREE PRESS; POWELL, W.W., 'NEITHER MARKET NOR HIERARCHY: NETWORK FORMS OF ORGANIZATION' (1990) RESEARCH IN ORGANIZATIONAL BEHAVIOR, PP. 295-336. , B. STAW AND L.L. CUMMINGS (EDS), GREENWICH, CT: JAI PRESS; ROSS, A., (2000) THE CELEBRATION CHRONICLES: LIFE, LIBERTY AND THE PURSUIT OF PROPERTY VALUE IN DISNEY'S NEW TOWN, , NEW YORK: BALLANTINE BOOKS; WADDOCK, S.A., 'INTEGRITY AND MINDFULNESS: FOUNDATIONS OF CORPORATE CITIZENSHIP' (2001) JOURNAL OF CORPORATE CITIZENSHIP, 1, PP. 25-38; WINDSOR, D., 'CORPORATE CITIZENSHIP: EVOLUTION AND INTERPRETATION' (2001) PERSPECTIVES ON CORPORATE CITIZENSHIP, PP. 39-52. , J. ANDRIOF AND M. MCINTOSH (EDS), SHEFFIELD: GREENLEAF; WOOD, D., LOGSDON, J., 'THEORISING BUSINESS CITIZENSHIP' (2001) PERSPECTIVES ON CORPORATE CITIZENSHIP, PP. 83-103. , J. ANDRIOF AND M. MCINTOSH (EDS), SHEFFIELD: GREENLEAF; WOOD, D., LOGSDON, J., 'BUSINESS CITIZENSHIP: FROM INDIVIDUALS TO ORGANIZATIONS' (2002) ETHICS AND ENTREPRENEURSHIP, PP. 59-94. , R.E. FREEMAN AND S. VENKATRAMAN (EDS), RUFFIN SERIES 3, CHARLOTTESVILLE, VA: SOCIETY FOR BUSINESS ETHICS"
CR1 <- citations(M, field = "article", sep = ";") # To obtain the most frequent cited manuscripts
cbind(CR1$Cited[1:10])
## [,1]
## DONALDSON, T., PRESTON, L.E., THE STAKEHOLDER THEORY OF THE CORPORATION: CONCEPTS, EVIDENCE, AND IMPLICATIONS (1995) ACADEMY OF MANAGEMENT REVIEW, 20 (1), PP. 65-91 8
## MITCHELL, R.K., AGLE, B.R., WOOD, D.J., TOWARD A THEORY OF STAKEHOLDER IDENTIFICATION AND SALIENCE: DEFINING THE PRINCIPLE OF WHO AND WHAT REALLY COUNTS (1997) ACADEMY OF MANAGEMENT REVIEW, 22 (4), PP. 853-886 8
## WOOD, D.J., CORPORATE SOCIAL PERFORMANCE REVISITED (1991) ACADEMY OF MANAGEMENT REVIEW, 16 (4), PP. 691-718 8
## FREEMAN, R.E., (1984) STRATEGIC MANAGEMENT: A STAKEHOLDER APPROACH, , BOSTON: PITMAN 7
## WARTICK, S.L., COCHRAN, P.L., THE EVOLUTION OF THE CORPORATE SOCIAL PERFORMANCE MODEL (1985) ACADEMY OF MANAGEMENT REVIEW, 10 (4), PP. 758-769 7
## CARROLL, A.B., A THREE-DIMENSIONAL CONCEPTUAL MODEL OF CORPORATE PERFORMANCE (1979) ACADEMY OF MANAGEMENT REVIEW, 4 (4), PP. 497-505 6
## CARROLL, A.B., SHABANA, K.M., THE BUSINESS CASE FOR CORPORATE SOCIAL RESPONSIBILITY: A REVIEW OF CONCEPTS, RESEARCH AND PRACTICE (2010) INTERNATIONAL JOURNAL OF MANAGEMENT REVIEWS, 12 (1), PP. 85-105 6
## CARROLL, A.B., THE PYRAMID OF CORPORATE SOCIAL RESPONSIBILITY: TOWARD THE MORAL MANAGEMENT OF ORGANIZATIONAL STAKEHOLDERS (1991) BUSINESS HORIZONS, 34 (4), PP. 39-48 6
## CLARKSON, M.B.E., A STAKEHOLDER FRAMEWORK FOR ANALYZING AND EVALUATING CORPORATE SOCIAL PERFORMANCE (1995) ACADEMY OF MANAGEMENT REVIEW, 20 (1), PP. 92-117 6
## CARROLL, A.B., CORPORATE SOCIAL RESPONSIBILITY: EVOLUTION OF A DEFINITIONAL CONSTRUCT (1999) BUSINESS & SOCIETY, 38 (3), PP. 268-295 5
CR2 <- citations(M, field = "author", sep = ";") # To obtain the most frequent cited first authors
cbind(CR2$Cited[1:10])
## [,1]
## FREEMAN R E 145
## CARROLL A B 130
## MATTEN D 86
## CRANE A 75
## WOOD D J 72
## MOON J 64
## RENDTORFF J D 60
## PORTER M E 56
## DONALDSON T 55
## FRIEDMAN M 49
Authors’ Dominance ranking
DF <- dominance(results, k = 10)
DF
## Author Dominance Factor Tot Articles Single-Authored Multi-Authored First-Authored Rank by Articles
## 1 ANDRIOF J 1.0 2 0 2 2 6
## 2 MUTUC EB 1.0 2 0 2 2 6
## 3 ORTS EW 1.0 2 1 1 1 6
## 4 SISON AJG 1.0 2 1 1 1 6
## 5 AGUINIS H 1.0 1 0 1 1 1
## 6 ANBARASAN P 1.0 1 0 1 1 1
## 7 BEAL BD 1.0 1 0 1 1 1
## 8 BHATTACHARYA CB 1.0 1 0 1 1 1
## 9 BUSCH T 1.0 1 0 1 1 1
## 10 WADDOCK S 0.5 3 1 2 1 10
## Rank by DF
## 1 1
## 2 1
## 3 1
## 4 1
## 5 1
## 6 1
## 7 1
## 8 1
## 9 1
## 10 10
h-index 10 authors
authors=gsub(","," ",names(results$Authors)[1:10])
indices <- Hindex(M, field = "author", elements=authors, sep = ";", years = 50)
indices$H
## Author h_index g_index m_index TC NP PY_start
## 1 CAMILLERI MA 3 4 0.60000000 20 4 2016
## 2 RENDTORFF JD 1 1 0.11111111 2 3 2012
## 3 WADDOCK S 3 3 0.16666667 81 3 2003
## 4 ANDRIOF J 1 2 0.25000000 7 2 2017
## 5 CHAPPLE W 2 2 0.11111111 268 2 2003
## 6 LEE JS 1 1 0.50000000 3 2 2019
## 7 MOON J 2 2 0.16666667 92 2 2009
## 8 MUTUC EB 1 1 0.50000000 3 2 2019
## 9 ORTS EW 1 2 0.05882353 44 2 2004
## 10 SISON AJG 2 2 0.16666667 49 2 2009
Author’ h-index
indices <- Hindex(M, field = "author", elements="CAMILLERI MA", sep = ";", years = 50) # need to change authors name
VCAMILLERI MA F’s impact indices:
indices$H
## Author h_index g_index m_index TC NP PY_start
## 1 CAMILLERI MA 3 4 0.6 20 4 2016
VENETSANOU F’s citations
indices$CitationList
## [[1]]
## Authors Journal Year TotalCitation
## 2 CAMILLERI MA OPERATIONS AND SERVICE MANAGEM 2017 0
## 4 CAMILLERI MA CSR 2.0 AND THE NEW ERA OF COR 2016 4
## 1 CAMILLERI MA SUSTAINABILITY ACCOUNTING, MAN 2017 6
## 3 CAMILLERI MA CORPORATE SUSTAINABILITY, SOCI 2017 10
Lptkas law
# Lotkas Law coefficient estimation
L <- lotka(results)
# Author Productivity. Empirical Distribution
L$AuthorProd
## N.Articles N.Authors Freq
## 1 1 106 0.905982906
## 2 2 8 0.068376068
## 3 3 2 0.017094017
## 4 4 1 0.008547009
lokta_table <- matrix(c(L$Beta, L$C, L$R2, L$p.value), ncol = 1, byrow = TRUE)
colnames(lokta_table) <- "Estimation"
rownames(lokta_table) <- c("Beta: ", "Constant: ", "Goodness of fit: ", "P-value: ")
lokta_table <- as.table(lokta_table)
print(lokta_table)
## Estimation
## Beta: 3.4173949
## Constant: 0.8286141
## Goodness of fit: 0.9947712
## P-value: 0.6993742
Compare the two distributions using plot function:
# Observed distribution
Observed=L$AuthorProd[,3]
# Theoretical distribution with Beta = 2
Theoretical=10^(log10(L$C)-2*log10(L$AuthorProd[,1]))
Scientific Production
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(x="topright",c("Theoretical (B=2)","Observed"),col=c("red","blue"),lty = c(1,1,1),cex=0.6,bty="n")
Coupling
# Bibliographic coupling
NetMatrix <- biblioNetwork(M, analysis = "coupling", network = "authors", sep = ";")
# plot authors' similarity (first 20 authors), using salton similarity index
net <- networkPlot(NetMatrix, normalize = "salton", weighted=NULL, n = 100, Title = "Authors' Coupling", type = "fruchterman", size=5,size.cex=T,remove.multiple=TRUE,labelsize=0.8,label.n=10,label.cex=F)
Co-citation
# Bibliographic co-citation
#NetMatrix <- biblioNetwork(M, analysis = "co-citation", network = "references", sep = ". ")
#net <- networkPlot(NetMatrix, n = 20, type = "kamada", Title = "co-citation", labelsize = 1.0)
Collaboration
# Bibliographic collaboration
# authors' collaboration network:
NetMatrix <- biblioNetwork(M, analysis = "collaboration", network = "authors", sep = ";")
net <- networkPlot(NetMatrix, n = 20, type = "kamada", Title = "Author collaboration", labelsize = 1.0)
Country 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 = dim(NetMatrix)[1], Title = "Country Collaboration", type = 'circle', size = TRUE, remove.multiple = FALSE, labelsize = 0.8)
Keyword co-occurrences
# Create keyword co-occurrencies network
NetMatrix <- biblioNetwork(M, analysis = "co-occurrences", network = "keywords", sep = ";")
# Plot the network
net <- networkPlot(NetMatrix, normalize="association", weighted=T, n = 30, Title = "Keyword Co-occurrences", type = "fruchterman", size=T,edgesize = 5,labelsize=0.7)
Co-word analysis:
# Conceptual Structure using keywords
CS <- conceptualStructure(M,field="DE_TM", minDegree = 5, k.max = 5, stemming = FALSE, labelsize = 9)
# CS <- conceptualStructure(M,field="ID", method="CA", minDegree=4, clust=5, stemming=FALSE, labelsize=10, documents=10)
Table: Author’s productivity per year
# AuthorProdOverTime, fig.height=6, fig.width=8
topAU <- authorProdOverTime(M, k = 10, graph = TRUE)
Table: Auhtor’s documents list
# AuthorProdOverTime, fig.height=6, fig.width=8
head(topAU$dfAU)
## Author year freq TC TCpY
## 1 ANDRIOF J 2017 2 7 1.750000
## 2 CAMILLERI MA 2016 1 4 0.800000
## 3 CAMILLERI MA 2017 3 16 4.000000
## 4 CHAPPLE W 2003 1 230 12.777778
## 5 CHAPPLE W 2009 1 38 3.166667
## 6 LEE JS 2019 2 3 1.500000
#head(topAU$dfPapersAU)
Bipartite network
A <- cocMatrix(M, Field = "SO", sep = ";")
sort(Matrix::colSums(A), decreasing = TRUE)[1:5]
## JOURNAL OF BUSINESS ETHICS ENCYCLOPEDIA OF APPLIED ETHICS BUSINESS HORIZONS
## 16 2 2
## JOURNAL OF COMMUNICATION MANAGEMENT SOCIAL RESPONSIBILITY JOURNAL
## 2 2
M <- metaTagExtraction(M, Field = "AU_CO", sep = ";")
NetMatrix
# similarity, fig.height=9, fig.width=9, warning=FALSE
NetMatrix <- biblioNetwork(M, analysis = "coupling", network = "authors", sep = ";")
net=networkPlot(NetMatrix, normalize = "salton", weighted=NULL, n = 100, Title = "Authors' Coupling", type = "fruchterman", size=5,size.cex=T,remove.multiple=TRUE,labelsize=0.8,label.n=10,label.cex=F)
Netmatrix
# An example of a classical keyword co-occurrences network
NetMatrix <- biblioNetwork(M, analysis = "co-occurrences", network = "keywords", sep = ";")
netstat <- networkStat(NetMatrix)
names(netstat$network)
## [1] "networkSize" "networkDensity" "networkTransitivity" "networkDiameter"
## [5] "networkDegreeDist" "networkCentrDegree" "networkCentrCloseness" "networkCentrEigen"
## [9] "networkCentrbetweenness" "NetworkAverPathLeng"
names(netstat$vertex)
## NULL
summary(netstat, k=10)
##
##
## Main statistics about the network
##
## Size 44
## Density 0.493
## Transitivity 0.819
## Diameter 2
## Degree Centralization 0.507
## Average path length 1.507
##
Country 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 = dim(NetMatrix)[1], Title = "Country Collaboration", type = "circle", size=TRUE, remove.multiple=FALSE,labelsize=0.7,cluster="none")
Co-citation network, fig.height=7, fig.width=7, warning=FALSE
# Create a co-citation network
NetMatrix <- biblioNetwork(M, analysis = "co-citation", network = "references", sep = ";")
# Plot the network
net=networkPlot(NetMatrix, n = 30, Title = "Co-Citation Network", type = "fruchterman", size=T, remove.multiple=FALSE, labelsize=0.7,edgesize = 5)
—-Keyword c-occurrences
# Create keyword co-occurrences network
NetMatrix <- biblioNetwork(M, analysis = "co-occurrences", network = "keywords", sep = ";")
# Plot the network
net=networkPlot(NetMatrix, normalize="association", weighted=T, n = 30, Title = "Keyword Co-occurrences", type = "fruchterman", size=T,edgesize = 5,labelsize=0.7)
