-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy path4_historiographic_analysis.R
549 lines (376 loc) · 30.5 KB
/
4_historiographic_analysis.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
# load libraries
library(bibliometrix)
library(openxlsx)
library(stringr)
library(plyr)
# load data (optional) - MCESUS serves an input
MAU <- readRDS(file = "data/MCESUS.RDS")
# write.xlsx(MAU, file = "histplot/MCESUS2019.xlsx", row.names=T)
# manually remove remaining duplicated articles
MAU <- subset(MAU, SR != "GIRAUD G, 2016, REV ECON DEV-a")
MAU <- subset(MAU, SR != "IEVDOKYMOV V, 2018, EKON")
MAU <- subset(MAU, SR != "SENETRA A, 2019, ROCZ OCHR SR")
MAU <- subset(MAU, SR != "ZHU Q, 2014, J IND ECOL")
# Tidy up Cited references (top 100 Papers) --> Bibliometrix uses SR to match
MAU$CR <- gsub("[\\:|\\?|\\'|\\’]","",MAU$CR)
MAU$CR <- gsub("[\\-]"," ",MAU$CR)
MAU$CR <- gsub(" | "," ",MAU$CR)
MAU$CR <- gsub("\\()","",MAU$CR)
MAU$CR <- sub("10.1016/J.JCLEPRO.2015.09.00|THE EXPECTED TRANSITION TO A BALANCED INTERPLAY OF ENVIRONMENTAL AND ECONOMIC SYSTEMS|THE EXPECTED TRANSITION TO A BALANCED INTERPLAY OR ENVIRONMENTAL AND ECONOMIC SYSTEMS",
";GHISELLINI P, 2016, J CLEAN PROD;",MAU$CR)
MAU$CR <- gsub("10.1016/J.JCLEPRO.2016.12.048|A NEW SUSTAINABILITY PARADIGM|J. CLEAN. PROD., 143, PP. 757-768",
";GEISSDOERFER M, 2017, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("KIRCHHERR J, 2017, RESOUR CONSERV RECY|10.1016/J.RESCONREC.2017.09.005|CONCEPTUALIZING THE CIRCULAR ECONOMY",
";KIRCHHERR J, 2017, RESOUR CONSERV RECYCL;",MAU$CR)
MAU$CR <- sub("10.1038/NMAT4777|SUSTAINABILITY AND IN SITU MONITORING IN BATTERY DEVELOPMENT",
";GREY C, 2016, NAT MATER;",MAU$CR)
MAU$CR <- sub("10.1016/J.JCLEPRO.2015.12.042|TOWARDS CIRCULAR ECONOMY IMPLEMENTATION A COMPREHENSIVE REVIEW IN CONTEXT OF MANUFACTURING INDUSTRY",
";LIEDER M, 2016, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("10.1007/S10551 015 2693 2|THE CIRCULAR ECONOMY AN INTERDISCIPLINARY EXPLORATION OF THE CONCEPT AND APPLICATION IN A GLOBAL CONTEXT",
";MURRAY A, 2017, J BUS ETHICS;",MAU$CR)
MAU$CR <- gsub("10.1016/J.JCLEPRO.2012.11.020|A REVIEW OF THE CIRCULAR ECONOMY IN CHINA MOVING FROM RHETORIC TO IMPLEMENTATION|
MOVING FROM RHETORIC TO IMPLEMENTATION",
";SU B, 2013, J CLEAN PROD;",MAU$CR)
MAU$CR <- gsub("BOCKEN NMP, 2016, J IND PROD ENG","BOCKEN N, 2016, J IND PROD ENG",MAU$CR)
MAU$CR <- sub("10.1080/21681015.2016.1172124|PRODUCT DESIGN AND BUSINESS MODEL STRATEGIES FOR A CIRCULAR ECONOMY",
";BOCKEN N, 2016, J IND PROD ENG;",MAU$CR)
MAU$CR <- sub("10.1016/J.JCLEPRO.2013.10.051|CURRENT OPTIONS FOR THE VALORIZATION OF FOOD MANUFACTURING WASTE A REVIEW",
";MIRABELLA N, 2014, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("10.1016/J.JCLEPRO.2011.07.005|TOWARDS A NATIONAL CIRCULAR ECONOMY INDICATOR SYSTEM IN CHINA|TOWARDS A CIRCULAR ECONOMY INDICATOR SYSTEM IN CHINA",
";GENG Y, 2012, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("10.1016/J.SEPPUR.2016.08.031|RECOVERY AND RECYCLING OF LITHIUM A REVIEW",
";SWAIN B, 2017, SEP PURIF TECHNOL;",MAU$CR)
MAU$CR <- sub("10.1039/C6GC02157C|THE E FACTOR 25 YEARS ON THE RISE OF GREEN CHEMISTRY AND SUSTAINABILITY",
";SHELDON R, 2017, GREEN CHEM;",MAU$CR)
MAU$CR <- sub("10.1016/J.ECOLECON.2017.06.041|THE CONCEPT AND ITS LIMITATIONS",
";KORHONEN J, 2018, ECOL ECON;",MAU$CR)
MAU$CR <- sub("GENG Y, 2008, INT J SUST DEV WORLD|10.3843/SUSDEV.15.36|DEVELOPING THE CIRCULAR ECONOMY IN CHINA CHALLENGES AND OPPORTUNITIES|CIRCULAR ECONOMY IN CHINA CHALLENGES AND OPPORTUNITIES FOR ACHIEVING LEAPFROG DEVELOPMENT",
";GENG Y, 2008, INT J SUSTAINABLE DEV WORLD ECOL;",MAU$CR)
MAU$CR <- sub("10.1111/JIEC.12244|HOW CIRCULAR IS THE GLOBAL ECONOMY",
";HAAS W, 2015, J IND ECOL;",MAU$CR)
MAU$CR <- sub("10.1016/J.OMEGA.2015.05.015|SUSTAINABLE SUPPLY CHAIN MANAGEMENT AND THE TRANSITION TOWARDS A CIRCULAR ECONOMY",
";GENOVESE A, 2017, OMEGA;",MAU$CR)
MAU$CR <- sub("10.1016/J.BIORTECH.2016.03.130|WASTE BIOREFINERY MODELS TOWARDS SUSTAINABLE CIRCULAR BIOECONOMY CRITICAL REVIEW AND FUTURE PERSPECTIVES",
";VENKATA M S, 2016, BIORESOUR TECHNOL;",MAU$CR)
MAU$CR <- sub("10.3390/SU8010043|DESIGNING THE BUSINESS MODELS FOR CIRCULAR ECONOMY",
";LEWANDOWSKI M, 2016, SUSTAINABILITY;",MAU$CR)
MAU$CR <- sub("10.1016/J.SAA.2012.05.083|AROMAL SA, 2012, SPECTROC ACTA PT A-MOLEC BIOMOLEC SPECTR|GREEN SYNTHESIS OF GOLD",
";AROMAL S, 2012, SPECTROC ACTA PT A-MOLEC BIOMOLEC SPECTR;",MAU$CR)
MAU$CR <- sub("10.1016/J.JCLEPRO.2014.01.028|PRODUCTS THAT GO ROUND EXPLORING PRODUCT LIFE EXTENSION THROUGH DESIGN",
";BAKKER C, 2014, J CLEAN PROD;",MAU$CR)
MAU$CR <- gsub("MATHEWS JA, 2011, J IND ECOL","MATHEWS J, 2011, J IND ECOL",MAU$CR)
MAU$CR <- sub("10.1111/J.1530 9290.2011.00332.X|PROGRESS TOWARD A CIRCULAR ECONOMY IN CHINA|PROGRESS TOWARDS A CIRCULAR ECONOMY THE DRIVERS AND INHIBITORS OF ECO INDUSTRIAL INITIATIVE|PROGRESS TOWARDS A CIRCULAR ECONOMY IN CHINA THE DRIVERS",
";MATHEWS J, 2011, J IND ECOL;",MAU$CR)
MAU$CR <- sub("SAUVE S, 2016, ENVIRON DEV|10.1016/J.ENVDEV.2015.09.002|ENVIRONMENTAL SCIENCES, SUSTAINABLE DEVELOPMENT AND CIRCULAR ECONOMY|ENVIRONMENTAL SCIENCES SUSTAINABLE DEVELOPMENT AND CIRCULAR ECONOMY ALTERNATIVE CONCEPTS FOR TRANS DISCIPLINARY RESEARCH",
";SAUV S, 2016, ENVIRON DEV;",MAU$CR)
MAU$CR <- gsub("ANDERSEN M.S.|ANDERSEN MS|ANDERSEN M. S.|ANDERSEN, M.S.","ANDERSEN M",MAU$CR)
MAU$CR <- sub("ANDERSEN M, 2007, SUSTAINABILITY SCI|10.1007/S11625 006 0013 6|AN INTRODUCTORY NOTE ON THE ENVIRONMENTAL ECONOMICS OF THE CIRCULAR ECONOMY",
";ANDERSEN M, 2007, SUSTAIN SCI;",MAU$CR)
MAU$CR <- sub("HUANG SL","HUANG S",MAU$CR)
MAU$CR <- sub("WITJES S, 2016, RESOUR CONSERV RECY|10.1016/J.RESCONREC.2016.04.015|PROPOSING A FRAMEWORK LINKING SUSTAINABLE PUBLIC PROCUREMENT AND SUSTAINABLE BUSINESS MODELS",
";WITJES S, 2016, RESOUR CONSERV RECYCL;",MAU$CR)
MAU$CR <- sub("10.1016/J.JCLEPRO.2010.06.001|CREATING INTEGRATED BUSINESS AND ENVIRONMENTAL VALUE WITHIN THE CONTEXT OF CHINA",
";PARK J, 2010, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("10.1080/03085147.2015.1013353|INTERROGATING THE CIRCULAR ECONOMY",
";GREGSON N, 2015, ECON SOC;",MAU$CR)
MAU$CR <- sub("10.1016/J.ENVRES.2017.03.010|SEWAGE SLUDGE DISPOSAL STRATEGIES FOR SUSTAINABLE DEVELOPMENT",
";KACPRZAK M, 2017, ENVIRON RES;",MAU$CR)
MAU$CR <- sub("KALMYKOVA Y, 2018, RESOUR CONSERV RECY|10.1016/J.RESCONREC.2017.10.034|FROM REVIEW OF THEORIES AND PRACTICES TO DEVELOPMENT OF IMPLEMENTATION TOOLS",
";KALMYKOVA Y, 2018, RESOUR CONSERV RECYCL;",MAU$CR)
MAU$CR <- sub("10.1016/J.JCLEPRO.2010.09.018|ECOLOGICAL UTILIZATION OF LEATHER TANNERY WASTE WITH CIRCULAR ECONOMY MODEL",
";HU J, 2011, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("10.1016/J.JCLEPRO.2011.01.003|THE DYNAMICS OF INDUSTRIAL SYMBIOSIS A PROPOSAL FOR A CONCEPTUAL FRAMEWORK BASED UPON A COMPREHENSIVE LITERATURE REVIEW",
";BOONS F, 2011, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("ZHIJUN F., 2007, SUSTAIN SCI|ZHIJUN F, 2007, SUSTAIN SCI|10.1007/S11625 006 0018 1|PUTTING A CIRCULAR ECONOMY INTO PRACTICE IN CHINA",
";ZHIJUN F, 2007, SUSTAINABILITY SCI;",MAU$CR)
MAU$CR <- sub("10.1073/PNAS.1613773114|GLOBAL SOCIOECONOMIC MATERIAL STOCKS RISE 23 FOLD OVER THE 20TH CENTURY AND REQUIRE HALF OF ANNUAL RESOURCE USE",
";KRAUSMANN F, 2017, PROC NATL ACAD SCI U S A;",MAU$CR)
MAU$CR <- sub("10.1016/J.JCLEPRO.2015.02.051|THE POSSIBLE USE OF SEWAGE SLUDGE ASH",
";SMOL M, 2015, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("LINDER M., 2015, BUS STRATEG ENVIRON|10.1002/BSE.1906|CIRCULAR BUSINESS MODEL INNOVATION INHERENT UNCERTAINTIES",
";LINDER M, 2017, BUS STRATEG ENVIRON;",MAU$CR)
MAU$CR <- sub("10.1016/J.JCLEPRO.2016.12.055|CIRCULAR ECONOMY FOR THE BUILT ENVIRONMENT A RESEARCH FRAMEWORK",
";POMPONI F, 2017, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("10.1016/J.JCLEPRO.2015.07.133|SHARING CITIES AND SUSTAINABLE CONSUMPTION AND PRODUCTION TOWARDS AN INTEGRATED FRAMEWORK",
";COHEN B, 2016, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("10.1016/J.JCLEPRO.2017.12.111|CIRCULAR ECONOMY AS AN ESSENTIALLY CONTESTED CONCEPT",
";KORHONEN J, 2018, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("10.1021/ES201904C|MOVING TOWARD THE CIRCULAR ECONOMY THE ROLE OF STOCKS IN THE CHINESE STEEL CYCLE",
";PAULIUK S, 2012, ENVIRON SCI TECHNOL;",MAU$CR)
MAU$CR <- sub("10.1016/J.JCLEPRO.2017.09.053|GREEN, CIRCULAR, BIO ECONOMY A COMPARATIVE ANALYSIS OF SUSTAINABILITY AVENUES",
";D A D, 2017, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("SHELDON RA, 2018, ACS SUSTAINABLE CHEM ENG|10.1021/ACSSUSCHEMENG.7B03505|METRICS OF GREEN CHEMISTRY AND SUSTAINABILITY",
";SHELDON R, 2018, ACS SUSTAINABLE CHEM ENG;",MAU$CR)
MAU$CR <- sub("WU HQ, 2014, RESOUR CONSERV RECY|10.1016/J.RESCONREC.2013.10.003|EFFECTIVENESS OF THE POLICY OF CIRCULAR ECONOMY IN CHINA",
";WU H, 2014, RESOUR CONSERV RECYCL;",MAU$CR)
MAU$CR <- sub("DODSON JR, 2015, GREEN CHEM|10.1039/C4GC02483D|BIODERIVED MATERIALS AS A GREEN ROUTE FOR PRECIOUS",
";DODSON J, 2015, GREEN CHEM;",MAU$CR)
MAU$CR <- sub("10.1016/10.1016/J.JCLEPRO.2016.10.196|MEASURING CIRCULAR ECONOMY STRATEGIES THROUGH INDEX METHODS A CRITICAL ANALYSIS",
";ELIA V, 2017, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("10.1016/J.JCLEPRO.2017.12.112|HOW DO SCHOLARS APPROACH THE CIRCULAR ECONOMY",
";MERLI R, 2018, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("10.1016/J.SCITOTENV.2010.07.081|EMERGY ANALYSIS OF AN INDUSTRIAL PARK",
";GENG Y, 2010, SCI TOTAL ENVIRON;",MAU$CR)
MAU$CR <- sub("PRIETO SANDOVAL V, 2018, J CLEAN PROD|10.1016/J.JCLEPRO.2017.12.224|TOWARDS A CONSENSUS ON THE CIRCULAR ECONOMY",
";PRIETO S V, 2018, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("10.1016/J.JCLEPRO.2015.12.020|RESOURCE RECOVERY FROM POST CONSUMER WASTE IMPORTANT LESSONS FOR THE UPCOMING CIRCULAR ECONOMY",
";SINGH J, 2016, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("10.1016/J.JCLEPRO.2017.09.047|TOWARDS A NEW TAXONOMY OF CIRCULAR ECONOMY BUSINESS MODELS",
";URBINATI A, 2017, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("10.3390/SU8090937|A CONCEPTUAL FRAMEWORK FOR CIRCULAR DESIGN",
";MORENO M, 2016, SUSTAINABILITY;",MAU$CR)
MAU$CR <- sub("EGLE L, 2015, RESOUR CONSERV RECY|10.1016/J.RESCONREC.2015.09.016|OVERVIEW AND DESCRIPTION OF TECHNOLOGIES FOR RECOVERING PHOSPHORUS",
";EGLE L, 2015, RESOUR CONSERV RECYCL;",MAU$CR)
MAU$CR <- sub("SCHEEPENS AE, 2016, J CLEAN PROD|10.1016/J.JCLEPRO.2015.05.075|MAKING WATER TOURISM MORE SUSTAINABLE",
";SCHEEPENS A, 2016, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("WINKLER H, 2011, CIRP J MANUF SCI TEC|10.1016/J.CIRPJ.2011.05.001|CLOSED LOOP PRODUCTION SYSTEMS A SUSTAINABLE SUPPLY CHAIN APPROACH|
CLOSEDLOOP PRODUCTION SYSTEMSA SUSTAINABLE SUPPLY CHAIN APPROACH",
";WINKLER H, 2011, CIRP J MANUF SCI TECHNOL;",MAU$CR)
MAU$CR <- sub("10.1016/10.1098/RSTA.2014.0177|CO2 UTILIZATION AN ENABLING ELEMENT TO",
";AMPELLI C, 2015, PHILOS TRANS R SOC A MATH PHYS ENG SCI;",MAU$CR)
MAU$CR <- sub("FERNANDEZ JE, 2007, J IND ECOL|10.1162/JIE.2007.1199|RESOURCE CONSUMPTION OF NEW URBAN CONSTRUCTION IN CHINA",
";FERNNDEZ J, 2007, J IND ECOL;",MAU$CR)
MAU$CR <- sub("10.1016/J.JCLEPRO.2016.08.024|GREEN ECONOMY AND RELATED CONCEPTS",
";LOISEAU E, 2016, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("10.3389/FMICB.2016.02106|BY BIOLOGICAL TECHNOLOGIES",
";PUYOL D, 2017, FRONT MICROBIOL;",MAU$CR)
MAU$CR <- sub("10.1007/S13280 014 0614 8|WITHERS PJA, 2015, AMBIO|STEWARDSHIP TO TACKLE GLOBAL PHOSPHORUS INEFFICIENCY",
";WITHERS P, 2015, AMBIO;",MAU$CR)
MAU$CR <- sub("10.1039/C7GC01496A|CHEMICALLY RECYCLABLE POLYMERS A CIRCULAR ECONOMY APPROACH TO SUSTAINABILITY",
";HONG M, 2017, GREEN CHEM;",MAU$CR)
MAU$CR <- sub("REIKE D, 2018, RESOUR CONSERV RECY|10.1016/J.RESCONREC.2017.08.027|NEW OR REFURBISHED AS CE",
";REIKE D, 2018, RESOUR CONSERV RECYCL;",MAU$CR)
MAU$CR <- sub("XUE B, 2010, RESOUR CONSERV RECY|10.1016/J.RESCONREC.2010.05.010|SURVEY OF OFFICIALS AWARENESS ON CIRCULAR ECONOMY DEVELOPMENT IN CHINA, BASED ON MUNICIPAL AND COUNTY LEVEL|SURVEY OF OFFICIALS AWARENESS ON CIRCULAR ECONOMY DEVELOPMENT IN CHINA BASED ON MUNICIPAL AND COUNTY LEVEL",
";XUE B, 2010, RESOUR CONSERV RECYCL;",MAU$CR)
MAU$CR <- sub("DE LOS RIOS IC, 2017, J CLEAN PROD|10.1016/J.JCLEPRO.2016.10.130|SKILLS AND CAPABILITIES FOR A SUSTAINABLE AND CIRCULAR ECONOMY",
";DE L R I, 2017, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("10.3390/CATAL6120196|NEW FRONTIERS IN THE CATALYTIC SYNTHESIS OF LEVULINIC ACID",
";ANTONETTI C, 2016, CATALYSTS;",MAU$CR)
MAU$CR <- sub("EVIDENCE FROM THE EUROPEAN UNION|10.1016/J.ECOLECON.2018.04.028",
";KIRCHHERR J, 2018, ECOL ECON;",MAU$CR)
MAU$CR <- sub("JABBOUR ABLD, 2018, ANN OPER RES|10.1007/S10479 018 2772 8|A PROPOSED RESEARCH AGENDA AND ORIGINAL ROADMAP FOR SUSTAINABLE OPERATIONS",
";LOPES D A, 2018, ANN OPER RES;",MAU$CR)
MAU$CR <- sub("PARK JY, 2014, J ENVIRON MANAGE|10.1016/J.JENVMAN.2013.11.053|ESTABLISHING AND TESTING THE REUSE POTENTIAL INDICATOR FOR MANAGING WASTES AS RESOURCES",
";PARK J, 2014, J ENVIRON MANAGE;",MAU$CR)
MAU$CR <- sub("10.1016/J.TECHFORE.2016.09.021|UNLOCKING VALUE FOR A CIRCULAR ECONOMY THROUGH 3D PRINTING",
";DESPEISSE M, 2017, TECHNOL FORECAST SOC CHANGE;",MAU$CR)
MAU$CR <- sub("10.1016/J.JCLEPRO.2006.07.019|AN ECONOMIC INSTRUMENT FOR ZERO WASTE, ECONOMIC GROWTH AND SUSTAINABILITY",
";GREYSON J, 2007, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("HOBSON K, 2016, PROG HUM GEOG|10.1177/0309132514566342|LOCATING GENERATIVE SPACES FOR THE CIRCULAR ECONOMY",
";HOBSON K, 2016, PROG HUM GEOGR;",MAU$CR)
MAU$CR <- sub("SHELDON RA, 2016, J MOL CATAL A CHEM|10.1016/J.MOLCATA.2016.01.013|GREEN CHEMISTRY, CATALYSIS AND VALORIZATION OF WASTE BIOMASS",
";SHELDON R, 2016, J MOL CATAL A CHEM;",MAU$CR)
MAU$CR <- sub("PAULIUK S, 2018, RESOUR CONSERV RECY|10.1016/J.RESCONREC.2017.10.019|CRITICAL APPRAISAL OF THE CIRCULAR ECONOMY STANDARD BS 8001",
";PAULIUK S, 2018, RESOUR CONSERV RECYCL;",MAU$CR)
MAU$CR <- sub("YANG SL, 2008, RESOUR CONSERV RECY|10.1016/J.RESCONREC.2007.11.008|A CASE STUDY OF INDUSTRIAL SYMBIOSIS NANNING SUGAR CO",
";YANG S, 2008, RESOUR CONSERV RECYCL;",MAU$CR)
MAU$CR <- sub("SUSTAINABLE STRATEGY FOR CIRCULAR BIOECONOMY|10.1016/J.BIORTECH.2017.07.176",
"DAHIYA S, 2018, BIORESOUR TECHNOL",MAU$CR)
MAU$CR <- sub("10.1016/J.JCLEPRO.2018.04.159|BUSINESS MODELS AND SUPPLY CHAINS FOR THE CIRCULAR ECONOMY",
"GEISSDOERFER M, 2018, J CLEAN PROD",MAU$CR)
MAU$CR <- sub("10.1080/00207543.2017.1402141|A SYSTEMATIC REVIEW ON DRIVERS BARRIERS AND PRACTICES TOWARDS CIRCULAR ECONOMY",
";GOVINDAN K, 2018, INT J PROD RES;",MAU$CR)
MAU$CR <- sub("LIU Y, 2014, RESOUR CONSERV RECY|10.1016/J.RESCONREC.2014.04.002|AN EXPLORATION OF FIRMS AWARENESS AND BEHAVIOR OF DEVELOPING CIRCULAR ECONOMY AN EMPIRICAL RESEARCH IN CHINA",
";LIU Y, 2014, RESOUR CONSERV RECYCL;",MAU$CR)
MAU$CR <- sub("10.1016/J.ECOLECON.2017.08.001|DE JESUS A, 2018, ECOL ECON|LOST IN TRANSITION",
";DE J A, 2018, ECOL ECON;",MAU$CR)
MAU$CR <- sub("10.1016/J.FUTURES.2016.05.012|RADICAL SOCIAL TRANSFORMATION IN A RESOURCE SCARCE",
";HOBSON K, 2016, FUTURES;",MAU$CR)
MAU$CR <- sub("10.1016/J.JCLEPRO.2017.10.003|DO CIRCULAR ECONOMY BUSINESS MODELS CAPTURE INTENDED ENVIRONMENTAL",
";MANNINEN K, 2018, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("NASIR MHA, 2017, INT J PROD ECON|10.1016/J.IJPE.2016.06.008|COMPARING LINEAR AND CIRCULAR SUPPLY CHAINS A CASE STUDY FROM THE CONSTRUCTION INDUSTRY",
";NASIR M, 2017, INT J PROD ECON;",MAU$CR)
MAU$CR <- sub("10.3390/SU8010069|TRANSITION TOWARDS CIRCULAR ECONOMY IN THE FOOD SYSTEM",
";JURGILEVICH A, 2016, SUSTAINABILITY;",MAU$CR)
MAU$CR <- sub("ZHU JB, 2018, SCIENCE|10.1126/SCIENCE.AAR5498|A SYNTHETIC POLYMER SYSTEM WITH REPEATABLE CHEMICAL RECYCLABILITY",
";ZHU J, 2018, SCIENCE;",MAU$CR)
MAU$CR <- sub("LIGUORI R, 2016, BIORESOURCE TECHNOL|10.1016/J.BIORTECH.2016.04.054|BIOLOGICAL PROCESSES FOR ADVANCING LIGNOCELLULOSIC WASTE BIOREFINERY BY ADVOCATING CIRCULAR ECONOMY",
";LIGUORI R, 2016, BIORESOUR TECHNOL;",MAU$CR)
MAU$CR <- sub("VAN WEELDEN E, 2016, J CLEAN PROD|10.1016/J.JCLEPRO.2015.11.065|PAVING THE WAY TOWARDS CIRCULAR CONSUMPTION EXPLORING CONSUMER ACCEPTANCE",
";VAN W E, 2016, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("JIAO WT, 2014, J CLEAN PROD|10.1016/J.JCLEPRO.2013.12.050|TOWARD A RESEARCH AGENDA FOR POLICY INTERVENTION AND FACILITATION TO ENHANCE INDUSTRIAL SYMBIOSIS BASED ON A COMPREHENSIVE LITERATURE REVIEW",
";JIAO W, 2014, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("VAN BUREN N, 2016, SUSTAINABILITY|10.3390/SU8070647|TOWARDS A CIRCULAR ECONOMY THE ROLE OF DUTCH LOGISTICS INDUSTRIES AND GOVERNMENTS",
";VAN B N, 2016, SUSTAINABILITY;",MAU$CR)
MAU$CR <- sub("10.1111/J.1530 9290.2011.00443.X|METHODOLOGICAL ASPECTS OF APPLYING LIFE CYCLE ASSESSMENT TO INDUSTRIAL SYMBIOSES",
";MATTILA T, 2012, J IND ECOL;",MAU$CR)
MAU$CR <- sub("10.1016/J.JCLEPRO.2017.11.064|HOMRICH AS, 2018, J CLEAN PROD|THE CIRCULAR ECONOMY UMBRELLA TRENDS AND GAPS ON INTEGRATING PATHWAYS",
";HOMRICH A, 2018, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("MA SH, 2014, J CLEAN PROD|10.1016/J.JCLEPRO.2013.10.008|MODE OF CIRCULAR ECONOMY IN CHINAS IRON AND STEEL INDUSTRY",
";MA S, 2014, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("10.1016/J.JCLEPRO.2013.09.002|THE CASE OF TIANJIN",
";YU C, 2014, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("ZENG HX, 2017, J CLEAN PROD|10.1016/J.JCLEPRO.2016.10.093|INSTITUTIONAL PRESSURES, SUSTAINABLE SUPPLY CHAIN MANAGEMENT, AND CIRCULAR ECONOMY CAPABILITY",
";ZENG H, 2017, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("10.1016/J.TIBTECH.2015.12.009|THE CLOSURE OF THE CYCLE ENZYMATIC SYNTHESIS",
";PELLIS A, 2016, TRENDS BIOTECHNOL;",MAU$CR)
MAU$CR <- sub("10.1016/J.JCLEPRO.2017.07.100|METRICS FOR OPTIMIZING THE MULTI ",
";IACOVIDOU E, 2017, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("FRENKEN K, 2017, PHILOS T R SOC A|10.1098/RSTA.2016.0367|POLITICAL ECONOMIES AND ENVIRONMENTAL FUTURES FOR THE SHARING ECONOMY",
";FRENKEN K, 2017, PHILOS TRANS R SOC A MATH PHYS ENG SCI;",MAU$CR)
MAU$CR <- sub("10.1016/0378 11279503574 T|BARROS AC, 1995, FOR ECOL MANAGE|LOGGING ALONG THE AMAZON RIVER AND ESTUARY PATTERNS",
";BARROS A, 1995, FOR ECOL MANAGE;",MAU$CR)
MAU$CR <- sub("GEORGE DAR, 2015, ENVIRON MODELL SOFTW|10.1016/J.ENVSOFT.2015.06.014|A CIRCULAR ECONOMY MODEL OF ECONOMIC GROWTH",
";GEORGE D, 2015, ENVIRON MODEL SOFTW;",MAU$CR)
MAU$CR <- sub("10.1007/S10668 016 9760 4|THE CHALLENGES OF WATER, WASTE AND CLIMATE CHANGE IN CITIES",
";KOOP S, 2017, ENVIRON DEV SUSTAINABILITY;",MAU$CR)
MAU$CR <- sub("NESS D, 2008, INT J SUST DEV WORLD|10.3843/SUSDEV.15.42A|SUSTAINABLE URBAN INFRASTRUCTURE IN CHINA TOWARDS A FACTOR",
";NESS D, 2008, INT J SUSTAINABLE DEV WORLD ECOL;",MAU$CR)
MAU$CR <- sub("HUYSMAN S, 2017, RESOUR CONSERV RECY|10.1016/J.RESCONREC.2017.01.013|PERFORMANCE INDICATORS FOR A CIRCULAR ECONOMY A CASE STUDY ON POST",
";HUYSMAN S, 2017, RESOUR CONSERV RECYCL;",MAU$CR)
MAU$CR <- sub("10.3390/SU9091602|SUPPLY CHAIN CONFIGURATIONS IN THE CIRCULAR ECONOMY A SYSTEMATIC LITERATURE REVIEW",
";MASI D, 2017, SUSTAINABILITY;",MAU$CR)
MAU$CR <- sub("MATUS KJM, 2012, J CLEAN PROD|10.1016/J.JCLEPRO.2012.03.033|GREEN CHEMISTRY AND GREEN ENGINEERING IN CHINA DRIVERS, POLICIES AND BARRIERS TO INNOVATION",
";MATUS K, 2012, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("10.1016/J.JCLEPRO.2017.11.063|MOKTADIR MA, 2018, J CLEAN PROD|A PERSPECTIVE OF LEATHER INDUSTRIES IN BANGLADESH",
";MOKTADIR M, 2018, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("NOBRE GC, 2017, SCIENTOMETRICS|10.1007/S11192 017 2281 6|SCIENTIFIC LITERATURE ANALYSIS ON BIG DATA AND INTERNET OF THINGS APPLICATIONS ON CIRCULAR ECONOMY A BIBLIOMETRIC STUDY",
";NOBRE G, 2017, SCIENTOMETRICS;",MAU$CR)
MAU$CR <- sub("STAHEL WR, 2013, PHILOS T R SOC A|10.1098/RSTA.2011.0567|POLICY FOR MATERIAL EFFICIENCY",
";STAHEL W, 2013, PHILOS TRANS R SOC A MATH PHYS ENG SCI;",MAU$CR)
MAU$CR <- sub("10.1016/J.JCLEPRO.2017.09.002|A PATHWAY TO CIRCULAR ECONOMY DEVELOPING A CONCEPTUAL FRAMEWORK FOR COMPLEX VALUE ASSESSMENT OF RESOURCES RECOVERED FROM WASTE",
";IACOVIDOU E, 2017, J CLEAN PROD-a;",MAU$CR)
MAU$CR <- sub("HAZEN BT, 2017, BUS STRATEG ENVIRON|HAZEN B, 2017, BUS STRATEG ENVIRON|10.1002/BSE.1929|REMANUFACTURING FOR THE CIRCULAR ECONOMY AN EXAMINATION OF CONSUMER SWITCHING BEHAVIOR",
";HAZEN B, 2017, BUS STRATEGY ENVIRON;",MAU$CR)
MAU$CR <- sub("10.1016/J.JCLEPRO.2017.06.093|SUSTAINABLE SUPPLY CHAIN MANAGEMENT PRACTICES, SUPPLY CHAIN DYNAMIC CAPABILITIES, AND ENTERPRISE PERFORMANCE",
";HONG J, 2018, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("10.1016/J.BIORTECH.2016.01.091|NEW PERSPECTIVES FOR THE DESIGN OF SUSTAINABLE BIOPROCESSES FOR PHOSPHORUS RECOVERY FROM WASTE",
";TARAYRE C, 2016, BIORESOUR TECHNOL;",MAU$CR)
MAU$CR <- sub("ANDREWS D., 2015, LOCAL EC|10.1177/0269094215578226|THE CIRCULAR ECONOMY, DESIGN THINKING AND EDUCATION FOR SUSTAINABILITY",
";ANDREWS D, 2015, LOCAL ECON;",MAU$CR)
MAU$CR <- sub("ANTIKAINEN M, 2016, TECHNOL INNOV MANAG|A FRAMEWORK FOR SUSTAINABLE CIRCULAR BUSINESS MODEL INNOVATION",
";ANTIKAINEN M, 2016, TECHNOL INNOV MANAG REV;",MAU$CR)
MAU$CR <- sub("10.1002/IEAM.1614|BEYOND THE THROWAWAY SOCIETY A LIFE CYCLE BASED ASSESSMENT OF THE ENVIRONMENTAL BENEFIT OF REUSE",
";CASTELLANI V, 2015, INTEGR ENVIRON ASSESS MANAGE;",MAU$CR)
MAU$CR <- sub("10.1016/J.PARTIC.2012.11.001|PROCESS ENGINEERING IN CIRCULAR ECONOMY",
";REH L, 2013, PARTICUOLOGY",MAU$CR)
MAU$CR <- sub("10.1016/J.JCLEPRO.2016.11.009|DEVELOPING SUSTAINABLE BUSINESS EXPERIMENTATION CAPABILITY",
";WEISSBROD I, 2017, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("10.1016/J.RESCONREC.2017.07.031|ISILDAR A, 2018, RESOUR CONSERV RECY|ELECTRONIC WASTE AS A SECONDARY SOURCE OF CRITICAL METALS",
";ILDAR A, 2018, RESOUR CONSERV RECYCL;",MAU$CR)
MAU$CR <- sub("10.21894/JOPR.2018.0030|OIL PALM ECONOMIC PERFORMANCE IN MALAYSIA",
";KUSHAIRI A, 2018, J OIL PALM RES",MAU$CR)
MAU$CR <- sub("10.1186/S13068-017-0761-9|MULTIPRODUCT BIOREFINERIES FROM LIGNOCELLULOSES",
";FARZAD S, 2017, BIOTECHNOL BIOFUELS",MAU$CR)
MAU$CR <- sub("FRANKLIN JOHNSON E, 2016, J CLEAN PROD|10.1016/J.JCLEPRO.2016.05.023|RESOURCE DURATION AS A MANAGERIAL INDICATOR FOR CIRCULAR ECONOMY PERFORMANCE|
FRANKLIN-JOHNSON E, 2016, J CLEAN PROD",
";FRANKLIN J E, 2016, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("MA SJ, 2015, J CLEAN PROD|10.1016/J.JCLEPRO.2014.10.059|A CASE STUDY OF A PHOSPHORUS CHEMICAL FIRM",
";MA S, 2015, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("NIERO M, 2016, RESOUR CONSERV RECY|10.1016/J.RESCONREC.2016.06.023|CIRCULAR ECONOMY TO BE OR NOT TO BE IN A CLOSED PRODUCT LOOP",
";NIERO M, 2016, RESOUR CONSERV RECYCL;",MAU$CR)
MAU$CR <- sub("10.1016/J.JCLEPRO.2019.01.036|PIERONI MPP, 2019, J CLEAN PROD|BUSINESS MODEL INNOVATION FOR CIRCULAR ECONOMY AND SUSTAINABILITY",
";PIERONI M, 2019, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("10.1016/J.JCLEPRO.2015.09.022|SUSTAINABILITY IN THE EU CEMENT INDUSTRY THE ITALIAN AND GERMAN",
";SUPINO S, 2016, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("BAI CG, 2015, IND MANAGE DATA SYST|10.1108/IMDS 09 2014 0258|CORPORATE SUSTAINABILITY DEVELOPMENT IN CHINA REVIEW AND ANALYSIS",
";BAI C, 2015, IND MANAGE DATA SYST;",MAU$CR)
MAU$CR <- sub("10.1016/J.JCLEPRO.2016.12.038|INSTITUTIONAL INCENTIVES IN CIRCULAR ECONOMY TRANSITION THE CASE OF MATERIAL USE IN THE DUTCH TEXTILE INDUSTRY",
";FISCHER A, 2017, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("10.1016/J.JCLEPRO.2016.11.041|EVALUATING THE COMPREHENSIVE BENEFIT OF ECO INDUSTRIAL PARKS BY EMPLOYING MULTICRITERIA DECISION MAKING APPROACH FOR CIRCULAR ECONOMY|EVALUATING THE COMPREHENSIVE BENEFIT OF ECO INDUSTRIAL PARKS BY EMPLOYING MULTI CRITERIA DECISION MAKING APPROACH FOR CIRCULAR ECONOMY",
";ZHAO H, 2017, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("10.1016/J.WASMAN.2017.10.033|PLASTIC PACKAGING WASTE IN FINLAND",
";DAHLBO H, 2018, WASTE MANAGE;",MAU$CR)
MAU$CR <- sub("SUN L, 2017, RESOUR CONSERV RECY|10.1016/J.SPC.2015.06.004|ECO BENEFITS ASSESSMENT ON URBAN INDUSTRIAL SYMBIOSIS BASED ON MATERIAL FLOWS ANALYSIS AND EMERGY EVALUATION APPROACH|
ECOBENEFITS ASSESSMENT ON URBAN INDUSTRIAL SYMBIOSIS BASED ON MATERIAL FLOWS ANALYSIS AND EMERGY EVALUATION APPROACH",
";SUN L, 2017, RESOUR CONSERV RECYCL;",MAU$CR)
MAU$CR <- sub("10.1016/J.JCLEPRO.2017.09.056|FRANCO MA, 2017, J CLEAN PROD|A DYNAMIC VIEW OF INCUMBENTS",
";FRANCO M, 2017, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("10.1016/J.APENERGY.2016.02.084|TOWARD A FUNCTIONAL INTEGRATION OF ANAEROBIC DIGESTION AND PYROLYSIS FOR A SUSTAINABLE RESOURCE MANAGEMENT",
";MONLAU F, 2016, APPL ENERGY;",MAU$CR)
MAU$CR <- sub("10.1016/J.CONBUILDMAT.2016.03.144",
";OZER H, 2016, CONSTR BUILD MATER;",MAU$CR)
MAU$CR <- sub("SAAVEDRA YMB, 2018, J CLEAN PROD|10.1016/J.JCLEPRO.2017.09.260|THEORETICAL CONTRIBUTION OF INDUSTRIAL ECOLOGY TO CIRCULAR ECONOMY",
";SAAVEDRA Y, 2018, J CLEAN PROD;",MAU$CR)
MAU$CR <- sub("SHI PJ, 2009, J NAT DISASTERS|THEORY AND PRACTICE ON DISASTER SYSTEM RESEARCH",
";SHI P, 2009, J NAT DISASTERS",MAU$CR)
MAU$CR <- sub("WALLS JL, 2015, ORGAN ENVIRON|10.1177/1086026615575333|ORGANIZATIONAL PERSPECTIVES OF INDUSTRIAL SYMBIOSIS A REVIEW AND SYNTHESIS",
";WALLS J, 2015, ORGAN ENVIRON;",MAU$CR)
MAU$CR <- sub("TUKKER A., 2013, J CLEAN PROD|10.1016/J.JCLEPRO.2013.11.049|PRODUCT SERVICES FOR A RESOURCE EFFICIENT AND CIRCULAR ECONOMY|PRODUCT SERVICES FOR A RESOURCE EF FI CIENT AND CIRCULAR ECONOMY E",
";TUKKER A, 2015, J CLEAN PROD;",MAU$CR)
# wrote excel file
write.xlsx(MAU, file = "histplot/MAU.xlsx",row.names=T)
local_citations<-localCitations(MAU, T)
# write.xlsx(local_citations[["Papers"]], file = "histplot/local_citations_papers.xlsx", row.names=T)
# write.xlsx(local_citations[["M"]], file = "histplot/local_citations_M.xlsx", row.names=T)
local_citations30 <- subset(local_citations[["M"]], subset = LCS > 40)
#Historical Analysis -----------------------------------------------------------------------------------------------
hist_result <- histNetwork(MAU, min.citations = 10, sep = ". ")
# check intra-network citations
INGhisellini <- count(grep("GHISELLINI P, 2016, J CLEAN PROD",local_citations30[["CR"]]))
sum(INGhisellini$freq)
INGeissdoerfer <- rbind(count(grep("GEISSDOERFER M, 2017, J CLEAN PROD",local_citations30[["CR"]])))
sum(INGeissdoerfer$freq)
INLieder <- count(grep("LIEDER M, 2016, J CLEAN PROD",local_citations30[["CR"]]))
sum(INLieder$freq)
INKirchherr <- count(grep("KIRCHHERR J, 2017, RESOUR CONSERV RECYCL",local_citations30[["CR"]]))
sum(INKirchherr$freq)
INMurray <- count(grep("MURRAY A, 2017, J BUS ETHICS",local_citations30[["CR"]]))
sum(INMurray$freq)
INSu <- count(grep("SU B, 2013, J CLEAN PROD",local_citations30[["CR"]]))
sum(INSu$freq)
INBocken <- count(grep("BOCKEN N, 2016, J IND PROD ENG",local_citations30[["CR"]]))
sum(INBocken$freq)
INGeng <- count(grep("GENG Y, 2012, J CLEAN PROD",local_citations30[["CR"]]))
sum(INGeng$freq)
INKorhonen <- count(grep("KORHONEN J, 2018, ECOL ECON",local_citations30[["CR"]]))
sum(INKorhonen$freq)
INGeng2 <- count(grep("GENG Y, 2008, INT J SUSTAINABLE DEV WORLD ECOL",local_citations30[["CR"]]))
sum(INGeng2$freq)
INAndersen <- count(grep("ANDERSEN M, 2007, SUSTAIN SCI",local_citations30[["CR"]]))
sum(INAndersen$freq)
INLewandowski <- count(grep("LEWANDOWSKI M, 2016, SUSTAINABILITY",local_citations30[["CR"]]))
sum(INLewandowski$freq)
INGenovese <- count(grep("GENOVESE A, 2017, OMEGA",local_citations30[["CR"]]))
sum(INGenovese$freq)
INMathews <- count(grep("MATHEWS J, 2011, J IND ECOL",local_citations30[["CR"]]))
sum(INMathews$freq)
INHaas <- count(grep("HAAS W, 2015, J IND ECOL",local_citations30[["CR"]]))
sum(INHaas$freq)
INSauv <- count(grep("SAUV S, 2016, ENVIRON DEV",local_citations30[["CR"]]))
sum(INSauv$freq)
INGregson <- count(grep("GREGSON N, 2015, ECON SOC",local_citations30[["CR"]]))
sum(INGregson$freq)
INBakker <- count(grep("BAKKER C, 2014, J CLEAN PROD",local_citations30[["CR"]]))
sum(INBakker$freq)
INLinder <- count(grep("LINDER M, 2017, BUS STRATEG ENVIRON",local_citations30[["CR"]]))
sum(INLinder$freq)
INKalmykova <- count(grep("KALMYKOVA Y, 2018, RESOUR CONSERV RECYCL",local_citations30[["CR"]]))
sum(INKalmykova$freq)
INZhijun <- count(grep("ZHIJUN F, 2007, SUSTAINABILITY SCI",local_citations30[["CR"]]))
sum(INZhijun$freq)
INWitjes <- count(grep("WITJES S, 2016, RESOUR CONSERV RECYCL",local_citations30[["CR"]]))
sum(INWitjes$freq)
INPomponi <- count(grep("POMPONI F, 2017, J CLEAN PROD",local_citations30[["CR"]]))
sum(INPomponi$freq)
INPark <- count(grep("PARK J, 2010, J CLEAN PROD",local_citations30[["CR"]]))
sum(INPark$freq)
INUrbinati <- count(grep("URBINATI A, 2017, J CLEAN PROD",local_citations30[["CR"]]))
sum(INUrbinati$freq)
INKorhonen2 <- count(grep("KORHONEN J, 2018, J CLEAN PROD",local_citations30[["CR"]]))
sum(INKorhonen2$freq)
INPrieto <- count(grep("PRIETO S V, 2018, J CLEAN PROD",local_citations30[["CR"]]))
sum(INPrieto$freq)
INMoreno <- count(grep("MORENO M, 2016, SUSTAINABILITY",local_citations30[["CR"]]))
sum(INMoreno$freq)
INMerli <- count(grep("MERLI R, 2018, J CLEAN PROD",local_citations30[["CR"]]))
sum(INMerli$freq)
INElia <- count(grep("ELIA V, 2017, J CLEAN PROD",local_citations30[["CR"]]))
sum(INElia$freq)
# plot historic citation network ------------------------------------------------------------
histPlot(hist_result, n = 30, size = 10, labelsize = 5)
# to reproduce the style of the figure used in the paper a downgrade to bibliometrix version 2.1.0 is required
# # downgrade
# library(devtools)
# install_version("bibliometrix", version = "2.1.0", repos = "http://cran.us.r-project.org")
# library("bibliometrix")
#
# # plot figure in the format of the paper
# histPlot(hist_result,
# size.cex = TRUE,
# arrowsize = 1,
# edgesize = 1,
# size = 20,
# color = TRUE,
# labelsize = 40,
# n = 30)