mark - bavla/biblio GitHub Wiki
- Input Degree Partition of N3 (87783) ============================================================================== Dimension: 87783 The lowest value: 0 The highest value: 252
Frequency distribution of cluster values:
Cluster Freq Freq% CumFreq CumFreq% Representative
----------------------------------------------------------------
0 14310 16.3016 14310 16.3016 CORNISH_C(1949)20:215
1 51164 58.2846 65474 74.5862 GEORGESC_M(1961)2:91
2 13003 14.8127 78477 89.3989 HOLT_L(1969)40:700
3 3596 4.0965 82073 93.4953 BANISTER_E(1964)35:236
4 1904 2.1690 83977 95.6643 KEYS_A(1953)33:245
5 1059 1.2064 85036 96.8707 STRAUB_W(1968)39:370
6 630 0.7177 85666 97.5884 BEM_S(1974)42:155
7 437 0.4978 86103 98.0862 HEINTZ_W(1968)77:632
8 276 0.3144 86379 98.4006 BROSE_D(1967)38:528
9 222 0.2529 86601 98.6535 ANON(1965):
10 159 0.1811 86760 98.8346 ANON(1989):
11 148 0.1686 86908 99.0032 ATWATER_A(1979)7:43
12 113 0.1287 87021 99.1320 LEIDINGE_A(1990)4:65
13 77 0.0877 87098 99.2197 ZELISKO_J(1982)10:297
14 79 0.0900 87177 99.3097 JÃc¸RGE_U(1984)18:59
15 61 0.0695 87238 99.3792 FAGERLI_U(1990)110:475
16 43 0.0490 87281 99.4281 ALEXANDE_M(1989)17:76
17 45 0.0513 87326 99.4794 HOEBERIG_J(1986)7:333
18 34 0.0387 87360 99.5181 FERRETTI_A(1992)20:203
19 31 0.0353 87391 99.5534 BANDURA_A(1977)84:191
20 24 0.0273 87415 99.5808 MUIJEN_A(1991)2:103
21 18 0.0205 87433 99.6013 ANON(1999):
22 21 0.0239 87454 99.6252 MORE_R(1993)21:231
23 18 0.0205 87472 99.6457 BALAGUER_I(2002)3:293
24 18 0.0205 87490 99.6662 ERICSSON_K(1993)100:363
25 22 0.0251 87512 99.6913 JORGENSE_U(1984)18:59
26 8 0.0091 87520 99.7004 JÃc¶RIS_H(1985)18:409
27 15 0.0171 87535 99.7175 STRAND_T(1990)110:2222
28 14 0.0159 87549 99.7334 BACKX_F(1991)19:124
29 16 0.0182 87565 99.7517 AMES_C(1992):
30 10 0.0114 87575 99.7631 NEWTON_M(2000)18:275
31 10 0.0114 87585 99.7744 ANON(2000):
32 10 0.0114 87595 99.7858 JORIS_H(1985)18:409
33 10 0.0114 87605 99.7972 HOLM_I(2004)14:88
34 12 0.0137 87617 99.8109 ROGULJ_N(2005)29:705
35 6 0.0068 87623 99.8177 HEIDT_R(2000)28:659
36 7 0.0080 87630 99.8257 DURNIN_J(1974)32:77
37 7 0.0080 87637 99.8337 YDE_J(1990)24:51
38 7 0.0080 87644 99.8417 TILLAAR_R(2003)97:731
39 6 0.0068 87650 99.8485 RYAN_R(2000)55:68
40 7 0.0080 87657 99.8565 ZEBIS_M(2009)37:1967
41 5 0.0057 87662 99.8622 TILLAAR_R(2003)96:423
42 8 0.0091 87670 99.8713 DECI_E(2000)11:227
43 5 0.0057 87675 99.8770 DELAMARC_P(1987)8:55
44 4 0.0046 87679 99.8815 MIRWALD_R(2002)34:689
45 6 0.0068 87685 99.8884 HOFF_J(1995)9:255
46 5 0.0057 87690 99.8941 GRIFFIN_L(2000)8:141
47 3 0.0034 87693 99.8975 TILLAAR_R(2004)91:413
48 4 0.0046 87697 99.9020 MECHELEN_W(1992)14:82
49 4 0.0046 87701 99.9066 NICHOLLS_J(1989):
50 3 0.0034 87704 99.9100 RENSTROM_P(2008)42:394
51 3 0.0034 87707 99.9134 ANON(2013):
52 4 0.0046 87711 99.9180 KRUSTRUP_P(2003)35:697
53 1 0.0011 87712 99.9191 MICHALSI_L(2015)29:416
54 3 0.0034 87715 99.9225 FLECK_S(1992)6:120
56 3 0.0034 87718 99.9260 RONGLAN_L(2006)16:267
57 2 0.0023 87720 99.9282 HOPKINS_W(2000)30:1
58 1 0.0011 87721 99.9294 HEWETT_T(2009)43:417
59 2 0.0023 87723 99.9316 VILA_H(2012)26:2146
60 2 0.0023 87725 99.9339 BOSCO_C(1983)50:273
63 3 0.0034 87728 99.9373 RANNOU_F(2001)41:349
64 2 0.0023 87730 99.9396 WEDDERKO_N(1997)7:342
65 5 0.0057 87735 99.9453 GOROSTIA_E(1999)80:485
67 3 0.0034 87738 99.9487 MARKOLF_K(1995)13:930
68 4 0.0046 87742 99.9533 MYKLEBUS_G(1997)7:289
70 1 0.0011 87743 99.9544 WAGNER_H(2010)9:15
72 2 0.0023 87745 99.9567 NIELSEN_A(1988)9:341
73 1 0.0011 87746 99.9579 MOHAMED_H(2009)27:257
75 2 0.0023 87748 99.9601 PETERSEN_W(2005)125:614
76 1 0.0011 87749 99.9613 MICHALSI_L(2015)55:878
77 1 0.0011 87750 99.9624 ANON(2016):
78 3 0.0034 87753 99.9658 HEWETT_T(1996)24:765
80 1 0.0011 87754 99.9670 OLSEN_O(2006)16:426
83 2 0.0023 87756 99.9692 WEDDERKO_N(1999)9:41
84 1 0.0011 87757 99.9704 WAGNER_H(2011)10:73
85 2 0.0023 87759 99.9727 MOLLER_M(2012)46:531
88 1 0.0011 87760 99.9738 ARENDT_E(1995)23:694
90 1 0.0011 87761 99.9749 LANGEVOO_G(2007)17:400
91 2 0.0023 87763 99.9772 MARQUES_M(2007)2:414
92 1 0.0011 87764 99.9784 OLSEN_O(2005)330:449
97 1 0.0011 87765 99.9795 MANDELBA_B(2005)33:1003
103 1 0.0011 87766 99.9806 CHAOUACH_A(2009)27:151
108 1 0.0011 87767 99.9818 MYKLEBUS_G(1998)8:149
109 1 0.0011 87768 99.9829 GRANADOS_C(2007)28:860
112 2 0.0023 87770 99.9852 HEWETT_T(1999)27:699
115 1 0.0011 87771 99.9863 SEIL_R(1998)26:681
119 1 0.0011 87772 99.9875 BODEN_B(2000)23:573
144 1 0.0011 87773 99.9886 GOROSTIA_E(2006)38:357
147 1 0.0011 87774 99.9897 KROSSHAU_T(2007)35:359
149 1 0.0011 87775 99.9909 WAGNER_H(2014)13:808
150 1 0.0011 87776 99.9920 HOPKINS_W(2009)41:3
168 1 0.0011 87777 99.9932 COHEN_J(1988):
172 1 0.0011 87778 99.9943 KOGA_H(2010)38:2218
191 2 0.0023 87780 99.9966 MYKLEBUS_G(2003)13:71
201 1 0.0011 87781 99.9977 HEWETT_T(2005)33:492
231 1 0.0011 87782 99.9989 GOROSTIA_E(2005)26:225
252 1 0.0011 87783 100.0000 OLSEN_O(2004)32:1002
Highest values:
Rank Vertex Value Id
--------------------------------------------------------
1 5338 252.0000 OLSEN_O(2004)32:1002
2 5989 231.0000 GOROSTIA_E(2005)26:225
3 7874 201.0000 HEWETT_T(2005)33:492
4 21228 191.0000 KARCHER_C(2014)44:797
5 4602 191.0000 MYKLEBUS_G(2003)13:71
6 12025 172.0000 KOGA_H(2010)38:2218
7 5816 168.0000 COHEN_J(1988):
8 11081 150.0000 HOPKINS_W(2009)41:3
9 23721 149.0000 WAGNER_H(2014)13:808
10 8935 147.0000 KROSSHAU_T(2007)35:359
11 6617 144.0000 GOROSTIA_E(2006)38:357
12 4686 119.0000 BODEN_B(2000)23:573
13 2085 115.0000 SEIL_R(1998)26:681
14 3245 112.0000 HEWETT_T(1999)27:699
15 17799 112.0000 MICHALSI_L(2013)34:590
16 8229 109.0000 GRANADOS_C(2007)28:860
17 1939 108.0000 MYKLEBUS_G(1998)8:149
18 9673 103.0000 CHAOUACH_A(2009)27:151
19 6690 97.0000 MANDELBA_B(2005)33:1003
20 5981 92.0000 OLSEN_O(2005)330:449
21 7365 91.0000 MARQUES_M(2007)2:414
22 17135 91.0000 POVOAS_S(2012)26:3365
23 8132 90.0000 LANGEVOO_G(2007)17:400
24 1664 88.0000 ARENDT_E(1995)23:694
25 16144 85.0000 MOLLER_M(2012)46:531
26 21328 85.0000 MICHALSI_L(2014)35:595
27 13182 84.0000 WAGNER_H(2011)10:73
28 2603 83.0000 WEDDERKO_N(1999)9:41
29 8828 83.0000 MARQUES_M(2006)20:563
30 7303 80.0000 OLSEN_O(2006)16:426
31 13846 78.0000 CHELLY_M(2011)25:2410
32 1678 78.0000 HEWETT_T(1996)24:765
33 17444 78.0000 MANCHADO_C(2013)27:1708
34 29873 77.0000 ANON(2016):
35 25932 76.0000 MICHALSI_L(2015)55:878
36 5805 75.0000 PETERSEN_W(2005)125:614
37 11579 75.0000 CHELLY_M(2010)24:1480
38 10123 73.0000 MOHAMED_H(2009)27:257
39 354 72.0000 NIELSEN_A(1988)9:341
40 20866 72.0000 CLARSEN_B(2014)48:1327
41 11465 70.0000 WAGNER_H(2010)9:15
42 13836 68.0000 HERMASSI_S(2011)25:2424
43 3395 68.0000 BAYIOS_I(2001)41:229
44 1531 68.0000 MYKLEBUS_G(1997)7:289
45 9026 68.0000 FORD_K(2003)35:1745
46 13780 67.0000 ANON(2010):
47 13106 67.0000 AGEL_J(2005)33:524
48 8239 67.0000 MARKOLF_K(1995)13:930
49 30373 65.0000 GIROTO_N(2017)27:195
50 6050 65.0000 LIDOR_R(2005)19:318
51 2736 65.0000 GOROSTIA_E(1999)80:485
52 10564 65.0000 ZIV_G(2009)9:375
53 9733 65.0000 BUCHHEIT_M(2009)30:251
54 3244 64.0000 CARAFFA_A(1996)4:19
55 1517 64.0000 WEDDERKO_N(1997)7:342
56 3411 63.0000 RANNOU_F(2001)41:349
57 27095 63.0000 ANON(2015):
58 16879 63.0000 BILGE_M(2012)35:109
59 4041 60.0000 SRHOJ_V(2002)26:219
60 3350 60.0000 BOSCO_C(1983)50:273
61 16302 59.0000 VILA_H(2012)26:2146
62 19059 59.0000 MYKLEBUS_G(2013)23:288
63 11330 58.0000 HEWETT_T(2009)43:417
64 7181 57.0000 HOPKINS_W(2000)30:1
65 25993 57.0000 BERE_T(2015)49:1151
66 62191 56.0000 COHEN_J(1988)2ND ED.:
67 7002 56.0000 RONGLAN_L(2006)16:267
68 10529 56.0000 SCHORER_J(2009)19:720
69 576 54.0000 FLECK_S(1992)6:120
70 17406 54.0000 PÃc³VOA_S(2012)26:3365
71 8674 54.0000 GRANADOS_C(2008)40:351
72 24568 53.0000 MICHALSI_L(2015)29:416
73 7006 52.0000 KRUSTRUP_P(2003)35:697
74 13350 52.0000 DEBANNE_T(2011)29:705
75 18264 52.0000 SHEPPARD_J(2006)24:919
76 17518 52.0000 INGEBRIG_J(2013)27:302
77 21223 51.0000 ANON(2014):
78 18120 51.0000 EDOUARD_P(2013)34:654
79 16791 51.0000 ANON(2013):
80 14466 50.0000 MILANESE_C(2011)29:1301
81 10269 50.0000 BUCHHEIT_M(2009)12:399
82 9021 50.0000 RENSTROM_P(2008)42:394
83 1910 49.0000 NICHOLLS_J(1989):
84 30544 49.0000 ANON(2017):
85 14701 49.0000 BODEN_B(2009)37:252
86 5310 49.0000 FRADET_L(2004)22:439
87 25062 48.0000 MICHALSI_L(2015)55:415
88 2907 48.0000 MECHELEN_W(1992)14:82
89 10392 48.0000 TILLAAR_R(2007)23:12
90 8956 48.0000 LOHMANDE_L(2007)35:1756
91 6400 47.0000 TILLAAR_R(2004)91:413
92 12334 47.0000 ANON(2011):
93 8916 47.0000 GRIFFIN_L(2006)34:1512
94 31033 46.0000 LUTEBERG_L(2017)12:56
95 13082 46.0000 ZAPARTID_I(2009)2:22
96 23369 46.0000 MASSUCA_L(2014)28:178
97 5326 46.0000 GRIFFIN_L(2000)8:141
98 33235 46.0000 SCHWESIG_R(2017)57:1471
99 15192 45.0000 WAGNER_H(2012)30:21
100 878 45.0000 HOFF_J(1995)9:255
101 6399 45.0000 TILLAAR_R(2004)3:211
102 11360 45.0000 SOUHAIL_H(2010)24:465
103 9018 45.0000 MYER_G(2005)19:51
104 17883 45.0000 ENGEBRET_L(2013)47:407
105 28024 44.0000 KROSSHAU_T(2016)44:874
106 21489 44.0000 CHELLY_M(2014)28:1401
107 10107 44.0000 MIRWALD_R(2002)34:689
108 35121 44.0000 ANON(2018):
109 3528 43.0000 SRHOJ_V(2001)25:611
110 5628 43.0000 ROGULJ_N(2004)28:739
111 4836 43.0000 OLSEN_O(2003)13:299
112 299 43.0000 DELAMARC_P(1987)8:55
113 17407 43.0000 GHOBADI_H(2013)39:213
114 14889 42.0000 LANDIS_J(1977)33:159
115 3453 42.0000 DECI_E(2000)11:227
116 11183 42.0000 HEWETT_T(2006)34:299
117 10883 42.0000 ANON(2008):
118 10338 42.0000 FAUL_F(2007)39:175
119 40348 42.0000 ANON(2019):
120 8943 42.0000 MALINZAK_R(2001)16:438
121 17522 42.0000 NIKOLAID_P(2013)38:115
122 6844 41.0000 MALINA_R(2004):
123 6754 41.0000 BAYIOS_I(2006)46:271
124 6702 41.0000 JUNGE_A(2006)34:565
125 8910 41.0000 HOOTMAN_J(2007)42:311
126 4314 41.0000 TILLAAR_R(2003)96:423
127 32410 40.0000 ANDERSSO_S(2017)51:1073
128 31514 40.0000 SASSI_R(2009)23:1644
129 62203 40.0000 [No title captured]
130 26333 40.0000 MOSS_S(2015)33:1780
131 12033 40.0000 FOSTER_C(2001)15:109
132 11836 40.0000 HERMASSI_S(2010)24:2408
133 10858 40.0000 ZEBIS_M(2009)37:1967
134 16253 39.0000 SPORIS_G(2010)34:1009
135 3466 39.0000 RYAN_R(2000)55:68
136 12010 39.0000 COCHRANE_J(2007)10:96
137 11329 39.0000 GILCHRIS_J(2008)36:1476
138 18678 39.0000 CLARSEN_B(2013)47:495
139 9329 39.0000 WAGNER_H(2008)7:54
140 8129 38.0000 VISNAPUU_M(2007)21:923
141 7562 38.0000 HEWETT_T(2006)34:490
142 13965 38.0000 BURKHART_S(2003)19:404
143 5769 38.0000 DEMORAT_G(2004)32:477
144 22554 38.0000 ANGUERA_M(2013)9:135
145 5606 38.0000 TILLAAR_R(2003)97:731
146 18219 38.0000 GRANADOS_C(2013)27:723
147 462 37.0000 YDE_J(1990)24:51
148 24927 37.0000 MICHALSI_L(2015)29:1126
149 11350 37.0000 BANGSBO_J(2008)38:37
150 10391 37.0000 TILLAAR_R(2006)103:503
151 10334 37.0000 COBLEY_S(2009)39:235
152 4598 37.0000 SODERMAN_K(2000)8:356
153 8906 37.0000 OHNJEC_K(2008)40:69
154 11243 36.0000 MANN_D(2007)29:457
155 5060 36.0000 WEDDERKO_N(2003)13:371
156 9891 36.0000 MUSCH_J(2001)21:147
157 18719 36.0000 ALMEIDA_G(2013)22:602
158 34972 36.0000 WAGNER_H(2018)58:73
159 542 36.0000 DURNIN_J(1974)32:77
160 8230 36.0000 BAHR_R(2005)39:324
161 16018 35.0000 OLIVEIRA_T(2012)114:783
162 3236 35.0000 HEIDT_R(2000)28:659
163 12794 35.0000 ZAPARTID_I(2009)3:53
164 10887 35.0000 ANON(2009):
165 10187 35.0000 BUCHHEIT_M(2008)22:365
166 5055 35.0000 AAGAARD_P(2002)93:1318
167 32401 34.0000 FIESELER_G(2017)57:985
168 8058 34.0000 ZAPARTID_I(2007)47:169
169 15837 34.0000 ALENTORN_E(2009)17:705
170 7408 34.0000 ANON(2007):
171 13851 34.0000 FINCH_C(2006)9:3
172 13843 34.0000 SIBILA_M(2004)36:58
173 6307 34.0000 ROGULJ_N(2005)29:705
174 19282 34.0000 MATTHYS_S(2013)31:1344
175 18715 34.0000 WILK_K(2011)39:329
176 9156 34.0000 ZEBIS_M(2008)18:329
177 33669 34.0000 POVOAS_S(2014)28:430
178 8235 34.0000 GROOD_E(1983)105:136
179 7645 33.0000 BAHR_R(2003)37:384
180 7437 33.0000 SPENCER_M(2005)35:1025
181 14432 33.0000 ANON(2012):
182 12459 33.0000 MELETAKO_P(2011)11:284
183 5768 33.0000 CHAPPELL_J(2002)30:261
184 11332 33.0000 ZAZULAK_B(2007)35:1123
185 11082 33.0000 BATTERHA_A(2006)1:50
186 5232 33.0000 HOLM_I(2004)14:88
187 10312 33.0000 VISNAPUU_M(2009)108:670
188 33586 33.0000 PUEO_B(2017)16:450
189 6715 32.0000 CARTER_J(1990):
190 25587 32.0000 PATERNO_M(2010)38:1968
191 6060 32.0000 HU_L(1999)6:1
192 10882 32.0000 JUNGE_A(2009)37:2165
193 9191 32.0000 THORLUND_J(2008)18:462
194 18308 32.0000 KRISTIAN_E(2013)41:684
195 4489 32.0000 MYKLEBUS_G(2003)31:981
196 8912 32.0000 PRODROMO_C(2007)23:1320
197 549 32.0000 JORIS_H(1985)18:409
198 68006 32.0000 PFEIFFER_R(2006)88A:1769
199 15385 31.0000 WAGNER_H(2012)31:78
200 28243 31.0000 ARDERN_C(2014)48:1543
--------------------------------------------------------
Sum (all values): 138545.0000
- str 75 - teorija SPC uteži
- Network/Acyclic Networks/Create Weighted Network/Traversal Weights/Normalization of Weights/Normalize-Flow[ON]
- Network/Acyclic Networks/Create Weighted Network/Traversal Weights/Search Path Count (SPC)
- Network/Acyclic Networks/Create(Sub)Network/Main Paths/Global Search/standard
- Macro/Play -> izberem macro LAYERS
- Network/Acyclic Networks/Create(Sub)Network/CPM
- Macro/Play -> izberem macro LAYERS
-
Network/Create Partition/Islands/Generate
-
Network/Create Partition/Islands/Line weight
-
za izpise podatkov o vozliščih podomrežij - https://github.com/bavla/biblio/blob/master/code/description.R
-
povežem članke z imeni in poiščem članke iz main patha, to dela description.R
Izdaje člankov po letih (1950-2022) - https://github.com/bavla/SocNet/wiki/Pyear
setwd("C:/Users/markb/OneDrive/Vlado/Pajek/Prvi rezultati")
Y <- read.csv("./Year.clu",header=FALSE,skip=2)$V1
t <- table(Y)
length(Y)
y <- as.numeric(Y)
y[is.na(y)] <- 0
t <- table(y)
x <- as.numeric(names(t))
t[142]
t[214] #poiščem iskane letnice za graf
plot(t[142:214]) #prvi graf
freq <- t[142:214] #določim y koordinate
year <- x[142:214] #določim x koordinate
plot(year,freq, type="b",
cex=1,main="Publications per year", pch=19,
xlab="Leto izdaje", ylab = "Št. izdanih člankov")
- za vsa dela izračunat izhodne stopnje in izračunat največje
- vector output degree
- pogledam v vektorju katere želim izločiti
- operations/network + partition
- partition/copy to vector - prekopira števila za velikosti vozlišč
- draw/netwrok + first vector
- Izračunamo output degreeje (izhodne stopnje) v 2-mode networku
Rank Vertex Value Id
--------------------------------------------------------
1 40310 104.0000 ZAREMSKI_J(2019)54:1030
2 9021 47.0000 RENSTROM_P(2008)42:394
3 18372 45.0000 DUMITRIU_D(2013):211
4 8916 33.0000 GRIFFIN_L(2006)34:1512
5 58319 32.0000 DIAS_E(2021)59:1294
6 41686 31.0000 HORNSTRU_T(2019)119:561
7 6702 29.0000 JUNGE_A(2006)34:565
8 2812 29.0000 ALVAREZ_R(2000)82:117
9 38131 29.0000 HERMASSI_S(2018)58:778
10 20933 28.0000 CHATZINI_A(2014)28:1981
11 17883 28.0000 ENGEBRET_L(2013)47:407
12 47787 27.0000 KOLBERG_K(2020)59:369
13 46333 27.0000 HORNSTRU_T(2020)30:281
14 21690 27.0000 GABRIELL_L(2014)114:1143
15 37777 27.0000 HORNSTRU_T(2018)7:139
16 57070 26.0000 YABE_Y(2021)46:1154
17 46311 26.0000 STEFFEN_K(2020)54:168
18 45733 26.0000 UPHAM_K(2020)17:230
19 33563 26.0000 DURMIC_T(2017)243:311
20 32401 25.0000 FIESELER_G(2017)57:985
- računamo input degreeje (vhodne stopnje) v 2-mode networku
Rank Vertex Value Id
--------------------------------------------------------
1 87841 360.0000 ANON_
2 87843 357.0000 ANON
3 96220 250.0000 HERMASSI_S
4 88916 237.0000 BAHR_R
5 88935 232.0000 MYKLEBUS_G
6 94924 199.0000 BUCHHEIT_M
7 94384 190.0000 GÃc³MEZ_M
8 93767 188.0000 MYER_G
9 90215 185.0000 GABBETT_T
10 88274 178.0000 ENGEBRET_L
11 89349 175.0000 HEWETT_T
12 95973 164.0000 ANGUERA_M
13 93910 164.0000 BAKER_J
14 93327 163.0000 DAVIDS_K
15 89187 152.0000 WILLIAMS_A
16 90772 149.0000 VULETA_D
17 94633 148.0000 WAGNER_H
18 90127 148.0000 MALINA_R
19 151982 148.0000 UNKNOWN
20 89171 147.0000 SHEPHARD_R
- tukaj gre za soavtorstva z vrednostmi največjih uteži na povezavah
- transponiram 2-mode
- da se izognemo avtorstvu s samim s sabo, izločimo loope - iščemo strogo soavtorstvo (poimenoval sem strogo soavtorstvo)
- povezavni prerez, ločiš na določenem pragu
- npr. pri nas pri 35 - create new network/transform/remove/lines with value/lower than (poljubno število)
- odstranimo izolirne točke, torej tiste s stopnjami 0 - network/create partition/degree/all -> operations/network+partition/extract -> določimo od koliko do koliko želimo točk v komponentah (1-*)
- narišemo barvne komponente - network/partition components/weak
Sooavtorstvo S-sredice (strogo soavtorstvo)
- tukaj gre za seštevek uteži soavtorstev na vseh povezavah med avtorji
- ustvarimo s-sredico - network/create vector/generalized core/sum/all
- naredimo vozliščni prerez pri pragu 140 (iščemo vrednosti od 143 dalje, ker je to število, vozlišč, ki ga iščemo) - vektor predelam v partition vector/make partition/by intervals/selected treshold/vstavim 140 oz. vrednosti, katero želim
- prava skupina je skupina 2 - operations/network+partition/extract/skupina 2
- Prebereš omrežje WA
- Na tem omrežju uporabiš macro norm2, ki normalizira omrežje s številom avtorjev macro/play/norm2.mcr
- Iračun omrežja soavtorstev: 1. najprej transforniramo normalizirano omrežje netwrok/2-mode transpose, 2. izbrerem noprmalizirano omrežje kot drugo omrežje 3. množim normalizirano in transfonirano omrežje networks/multiply networks
- network/create new networks/transform/arcs to edges/bidirected only/sum all values
- odstranimo vrednosti na diagonalah network/create new network/remove/loops
- tu izločimo vse diagonale in vrednosti matrike so tu normalizirane, da so seštevki še vedno 1
- Prebereš omrežje WA
- Na tem omrežju uporabiš macro norm2, ki normalizira omrežje s številom avtorjev macro/play/norm2p.mcr
- Iračun omrežja soavtorstev: 1. najprej transforniramo normalizirano omrežje netwrok/2-mode transpose, 2. izbrerem noprmalizirano omrežje kot drugo omrežje 3. množim normalizirano in transfonirano omrežje networks/multiply networks
- network/create new networks/transform/arcs to edges/bidirected only/sum all values
- odstranimo vrednosti na diagonalah network/create new network/remove/loops
- tabela vrednosti največjih 20 povezav - strogo soavtorstvo/+20
The highest values of lines:
Rank Line Value Line-Id
-------------------------------------------------------------------
1 2989-6599 12.78854 VULETA_D-MILANOVI_D
2 5984-6635 11.77098 MYER_G-FORD_K
3 1566-5984 11.60755 HEWETT_T-MYER_G
4 2937-6260 10.73333 SMITH_R-SMOLL_F
5 24286-24287 9.72143 POBAR_M-IVASIC-K_M
6 5544-8279 8.87143 DAVIDS_K-ARAÃcšJ_D
7 6571-11025 8.45887 HAGEMANN_N-LOFFING_F
8 14648-15076 7.63571 WALDÃc©_M-HÃc¤GGL_M
9 5689-7558 7.63333 SCHORER_J-WATTIE_N
10 1436-1583 7.61429 NOYES_F-BARBER-W_S
11 7714-8437 7.57082 SCHWESIG_R-HERMASSI_S
12 8436-8437 7.46062 CHELLY_M-HERMASSI_S
13 3446-11932 7.30238 BALAGUER_I-CASTILLO_I
14 3528-3529 7.21429 VANDENTI_R-ETTEMA_G
15 4051-6752 6.96147 AAGAARD_P-MICHALSI_L
16 120-5393 6.89048 MOHR_M-KRUSTRUP_P
17 2683-4174 6.55225 JUNGE_A-DVORAK_J
18 9392-14175 6.41319 OLMEDILL_A-ORTEGA_E
19 2960-6752 6.35649 MADSEN_K-MICHALSI_L
20 17793-17796 6.30952 KARIMI_A-NAVIDBAK_M
- network/partition/islands/line weights
- partition/canonical partition/with decreasing line weights
- pogledam največje in jih extractam pod operations
- izmed največjih povezav izberem par, ki sodeluje - nekega avtorja (VULETA_D) - št. 2989
- pod lupo pri razbitjih pogledam kateremu otoku pripada avtor (v našem primeru VULETA_D - vidimo, da je otok 11
- network/partition/islands/line weights
- partition/canonical partition/with decreasing line weights
- pogledam največje in jih extractam pod operations
- izmed največjih povezav izberem par, ki sodeluje - nekega avtorja (VULETA_D) - št. 2989
- pod lupo pri razbitjih pogledam kateremu otoku pripada avtor (v našem primeru VULETA_D - vidimo, da je otok 11
- potrebujemo omrežje AK, zato omrežje WA transponiramo in ga množimo z omrežjem WK
- potavimo enice na naš željeni otok, torej 8 - Vuleta, vse ostalo je 0
- WK x KW
- info -> največjih 100 besed
tf-idf - https://en.wikipedia.org/wiki/Tf%E2%80%93idf
- https://github.com/bavla/SocNet/wiki/TfIdfY - koda r
- shrinking - http://vladowiki.fmf.uni-lj.si/doku.php?id=ru:dm:sn:jeq
Moramo izračunat Cite*WJ, da bi določili vektor wIndegJ.vec.
- Za to moramo spremenit Cite v dvovrstno omrežje network/create new network/transform/1-mode to 2-mode
- In Pajek we computed the 2-mode network Cite*WJnc and determined the vector wIndegJ.vec with weighted indegrees for journals.
wdir <- "C:/Users/markb/OneDrive/Vlado/Pajek/Prvi rezultati/Journal"
setwd(wdir)
jt <- 102989; jf <- 87783
nj <- jt-jf
A <- read.table("WJ.net",skip=jf+2,nrows=nj,stringsAsFactors=FALSE)
head(A) #probamo zajeti vse revije
tail(A)
dim(A)
min(A$V1)
max(A$V1)
V <- A$V1; T <- A$V2
firstCh <- function(x) ifelse(nchar(x)>0,substr(x,1,1),"€")
twoCh <- function(x) substr(x,1,2)
firstChs <- function(x) paste(firstCh(strsplit(x," ")[[1]]),collapse="")
twoChs <- function(x) paste(twoCh(strsplit(x," ")[[1]]),collapse="")
K1 <- sapply(T,firstChs); K2 <- sapply(T,twoChs)
J <- data.frame(i=1:length(T),V,one=K1,two=K2)
head(J)
dim(J) #pogledam koliko razlicnih revij je
K <- paste(K1,K2,sep=":"); k <- order(K)
K1o <- c(as.vector(K1[k]),"sentinel"); K2o <- as.character(K2[k])
Ino <- V[k]; To <- as.character(T[k]); Ko <- c(K[k],"sentinel")
nr <- nj+1
Ko[1:50]
F <- read.table("windeg.vec",skip=1,stringsAsFactors=FALSE)$V1
tail(F)
length(F)
w <- F[87784:102989]
t <- table(w)
t
m <- which(w>=200)
length(m)
m
code <- new.env(hash=TRUE,parent=emptyenv())
for(r in 1:nj){
if(!exists(K[r],env=code,inherits=FALSE)) assign(K[r],list(i=0,n=0),env=code)
L <- get(K[r],env=code,inherits=FALSE)
if(L$n < F[r]){L$i <- r; L$n <- F[r]; assign(K[r],L,env=code)}
}
L$i <- nr; L$n <- 0; assign("sentinel",L,env=code)
jour <- file("journalKord.txt","w")
key <- "****"; list <- FALSE
for(r in 1:nr){
L <- get(Ko[r],env=code,inherits=FALSE)
if(Ko[r]==key){
if(L$n >= 75){
cat(r-1,Ino[r-1],K1o[r-1],K2o[r-1],To[r-1],"\n",file=jour); list <- TRUE}
} else {
if(list) cat(r-1,Ino[r-1],K1o[r-1],K2o[r-1],To[r-1],"\n",file=jour)
list <- FALSE; key <- Ko[r]}
}
close(jour)
Tso Fso
1 ***** 158889 21 J NUTR 27 41 SPINE. 9 61 MEMORY 5
2 QUEST 196 22 PM R 26 42 PMR 9 62 WJSS 5
3 KNEE 187 23 NEURON 24 43 KRONOS 9 63 HAND 5
4 RETOS 133 24 STAPS 22 44 AJR 9 64 YOUNG 5
5 BMJ 130 25 J ANAT 20 45 JAPMA 8 65 HERZ 5
6 AJSM 129 26 AVANTE 19 46 WSPAJ 8 66 OMEGA 5
7 BONE 120 27 CMAJ 17 47 LNCS 8 67 BMSFA 5
8 SPINE 111 28 SPORT 16 48 CELL 8 68 CLINIC 5
9 LANCET 107 29 RES Q 15 49 WORK 7 69 CHANCE 5
10 NATURE 106 30 HEART 13 50 HOMO 7 70 WMJ 5
11 JAMA 106 31 CORTEX 12 51 J PAIN 7 71 MOTRI. 4
12 MOTRIZ 105 32 CVIU 12 52 RT MED 7 72 MO MED 4
13 SPORTS 87 33 NSCA J 12 53 STROKE 6 73 JAMA. 4
14 CPD 57 34 CHEST 12 54 IJERPH 5 74 CCD 4
15 PAIN 36 35 JOSPT 12 55 RAMA 5 75 CITIES 4
16 SLEEP 30 36 RES. Q 12 56 SIVIP 5 76 HEART. 4
17 BRAIN 29 37 PEERJ 10 57 JCSP 5 77 THORAX 4
18 PM&R 28 38 CRANIO 10 58 RIPED 5 78 BLOOD 4
19 APUNTS 28 39 J UROL 10 59 MLTJ 5 79 KINES 4
20 INJURY 28 40 RBNE 9 60 KYKLOS 5 80 REVIEW 4
81 JEZIK 4
Prej sem ročno identificiral časopise v Excelu - Izvozna datoteka shranjena kot CSV
wdir <- "C:/Users/markb/OneDrive/Vlado/Pajek/Prvi rezultati/Journal"
setwd(wdir)
jt <- 102989; jf <- 87783
nj <- jt-jf
D <- read.table("kopija12.csv",sep=";",stringsAsFactors=FALSE, header = TRUE)
head(D)
D <- D[,1:5]
names(D) <- c("i","node","f","code","name")
jouC <- file("journals.clu","w")
clu <- 1:nj; key <- "****"
for(r in 1:nrow(D)) if(D$code[r]==key) clu[D$node[r]-jf] <- jClass else
+ {key <- D$code[r]; jClass <- D$node[r] - jf}
clu[1:20]
a <- 88170-jf
b <- 88340-jf
c <- 87988-jf
clu[c(a,b,c)]
cat(paste("*vertices ",nj,sep=""),clu,sep="\n",file=jouC)
close(jouC)
- Preberemo WJ
- Preberemo journals.clu - ustvarjeno razbitje (to je samo razbitje časopisov!) -> dopolnimo do razibtja dvovrstnega omrežja WJ
- Partition/create identity/vnesemo število jf (88730)
- Združimo obe razbitji - kot prvo izberem identity, kot drugo pa razbitje journals.clu
- Operations/Fuse
- Opravim še skrčitev - operations/network+partition/shrink
- Izračunam vhodne stopnje
Rank Vertex Value Id
--------------------------------------------------------
2 87878 1691.0000 #AM J SPORTS MED
3 88584 1584.0000 #J STRENGTH CONDIT RES
4 87898 1360.0000 #BR J SPORTS MED
5 87958 1303.0000 #JOURNAL OF SPORTS SCIENCES
6 87882 1133.0000 #MED SCI SPORTS EXERC
7 88072 906.0000 #SPORTS MED
8 87917 721.0000 #INT J SPORTS MED
9 88157 665.0000 #SCAND J MED SCI SPORTS
10 87908 563.0000 #EUR J APPL PHYSIOL
11 87995 424.0000 #CLIN SPORTS MED
12 88103 406.0000 #J BONE JOINT SURG AM
13 87787 379.0000 #J. APPL. PHYSIOL.
14 89081 375.0000 #J ATHLETIC TRAINING
15 87881 356.0000 #J SPORTS MED PHYS FITNESS
16 89198 350.0000 #PSYCHOLOGY OF SPORT AND EXERCISE
17 88921 341.0000 #J SCI MED SPORT
18 89773 314.0000 #JOURNAL OF HUMAN KINETICS
19 87973 309.0000 #J. BIOMECH
20 89972 290.0000 #REVISTA DE PSICOLOGÃcÂA DEL DEPORTE
Ustvarjanje povezave med časopisi in ključnimi besedami
- WJshrink in WK preberem
- transfoniram WK - 2-mode netwrok/transpose
- zmnožim transponirani WK in WJshrink - tako dobim dvovrstno omrežje KJ
- transponirani WK (KW) shranimo na datoteko brez koordinat - Options/read-write/ne shranimo koordinat
- V datoteki zbrišem odvečne vrstice in zbrišem prvo številko pod vertices in dodam *arcs
- Izberem omrežje JK
- Moramo ugotoviti številko posamezne revije network/info/vertex label -> vertex number/vnesem ime revije, katere številko hočem
- Ustvarim cluster/empty cluster/vanj vnesem izbrano številko
- Cluster/make partition/vnesem število vseh revij (to najdem na infu omrežja JK)
- Razbitje še predelam v vektor partition/copy to vector
- Transponiram omrežje JK v KJ
- Operations/network and vector/zmnožim
- Izberem Knam -> izberem info vektorja in število največih revij za katere želim videti najbolj pogoste besede
Naloga - ugotoviti kateri časopisi se kako povezujejo s članki oz. tematiko , ki na katero naj bi se navezovali
Za naredit:
- Greš na WoS. Potrebno je pogledati članke, ki imajo ključne besede "handball", "netwrok analysis", "bibliographic*" or "scientometric*" or "bibliometric*". Mora biti oboje.
- Če je premalo tega v rokometu grem "handball", "netwrok analysis", "bibliographic*" or "scientometric*" or "bibliometric*"
- Grafični pregled števila člankov po letih
- Zbiranje podatkov - opis, čiščenje podatkov
- pomembni članki, revije in ključne besede (oni so dali 30 najbolj pomembnih člankov, 30 najbolj pomembnih revij)
- ključne besede (na kratko najbolj pomembne)
- analiza citiranj in glavna pot
- key-routes in opis key-rouites, prebrati poveztke za vsebinsko analizo
- Load WJ file in razbitje DCorg
- Pogledamo kako velik je J v WJ (14848)
- Na tej velikosti smo naredili razbitje Partition/create constant/izberemo 1ice
- Izberi DC kot prvo razbitje in konstanto kot drugo razbitje -> združimo obe razbitji Partitions/Fuse partitions
- Izvlečemo ven cimfre ostale kot 0 in 4. Operations/Extract/izberem
- Omrežje sem poimenoval WJhits
- to smo naredili, da odgovorimo na vprašanje, kje so članki o rokometu objavljeni -> zanima nas 20 največjih input degreejev
Rank Vertex Value Id
--------------------------------------------------------
1 4581 3426.0000 *****
2 5381 118.0000 #J STRENGTH CONDIT RES
3 4675 84.0000 #AM J SPORTS MED
4 4954 76.0000 #SCAND J MED SCI SPORTS
5 6570 75.0000 #JOURNAL OF HUMAN KINETICS
6 4695 66.0000 #BR J SPORTS MED
7 4755 62.0000 #JOURNAL OF SPORTS SCIENCES
8 10330 58.0000 #INT J ENVIRON RES PUBLIC HEALTH
9 4678 56.0000 #J SPORTS MED PHYS FITNESS
10 4679 48.0000 #MED SCI SPORTS EXERC
11 13913 43.0000 E-BALONMANO COM
12 16471 40.0000 PROCD SOC BEHV
13 4714 38.0000 #INT J SPORTS MED
14 8609 36.0000 #PLOS ONE
15 5618 34.0000 #PERCEPT. MOTOR SKILLS
16 4915 33.0000 #SPORTVERLETZ SPORTSCHADEN
17 8277 31.0000 #INT J PERFORM ANAL SPORT
18 16508 31.0000 KNEE SURG SPORT TR A
19 5424 30.0000 #RES Q EXERC SPORT
20 15825 28.0000 INT J SPORT PHYSIOL
21 5878 28.0000 #J ATHLETIC TRAINING
22 6193 27.0000 #SPORTS BIOMECHANICS
23 9745 27.0000 #INT J SPORTS SCI COACHING
24 8091 26.0000 J HUM SPORT EXERC
25 6201 26.0000 #JOURNAL OF SPORTS SCIENCE AND MEDICINE
26 10063 26.0000 FRONT PSYCHOL
27 5572 25.0000 #KINEZIOLOGIJA
28 16480 25.0000 RETOS-NUEV TEND EDUC
29 6769 24.0000 #REVISTA DE PSICOLOGÃcÂÂA DEL DEPORTE
30 6338 24.0000 #PHYS. THER. SPORT
-
- slide - motivacija za nalogo, uvod
-
- slide - vprašanja za nalogo.
-
- slide - podatki: WoS in Scopus, iskanje na "handball", prekrivanje, velikost podatkovja
-
- slide - problemi pri podatkih in čiščenje podatkov - prekrivanje
-
- slide - osnovne statistike, letna porazdelitev objav na temo handball v Wos in Scopus
-
- slide - najpomembnejša dela s področja
-
- slide - največkrat objavljene revije
-
- slide - najpomembnejši avtorji
-
- slide - najpomembnejše ključne besede
-
- slide - oblaki ključnih besed za 4 najpomembnejše revije
-
- slide - omrežje sklicevanj in metoda SPC
-
- slide - glavna pot
-
- slide - main routes
-
- slide - otoki
-
- slide - komentar in opažanja
-
- slide - zaključki