> wdir <- "C:/Users/vlado/docs/papers/2023/ostro"
> setwd(wdir)
> datum <- function(d,m,y) {
+ dd <- ifelse(d!="",d,ifelse(is.na(m),paste("01/01/",y,sep=""),
+ paste("01/",m,"/",y,sep="")))
+ di <- as.integer(as.Date(dd,format="%d/%m/%Y",origin="1970-01-01"))
+ if(is.na(di)) {OK <<- FALSE
+ di <- as.integer(as.Date(dd,format="%m/%d/%Y",origin="1970-01-01"))}
+ return(di)
+ }
> P <- read.csv("./slo/SloP.csv",sep=",",head=TRUE)
> head(P)
id X name position institution_si
1 1 NA Tanja Fajon minister ministrstvo za zunanje in evropske zadeve
2 2 NA Luka Mesec minister ministrstvo za delo, družino, socialne zadeve in enake možnosti
3 3 NA Dominika Švarc Pipan minister ministrstvo za pravosodje
4 4 NA Simon Maljevac minister ministrstvo za solidarno prihodnost
5 5 NA Bojan Kumer minister ministrstvo za infrastrukturo
6 6 NA Igor Papič minister ministrstvo za visoko šolstvo, znanost in inovacije
party_si time_in_office is_first_time_in_office gender
1 SD 14/7/2009 TRUE F
2 Levica 1/8/2014 TRUE M
3 SD 24/9/2018 TRUE F
4 Levica 1/9/2018 TRUE M
5 30/5/2013 1 M
6 Gibanje Svoboda 1/6/2022 1 M
> D <- read.csv("./slo/SloE.csv",sep=",",head=TRUE)
> head(D)
id person_name part_of_cv show_in_network start_day start_month start_year
1 1 Boštjan Poklukar delovne izkušnje TRUE 13/9/2018 NA 2018
2 2 Boštjan Poklukar izobraževanje TRUE 10 2007
3 3 Boštjan Poklukar izobraževanje TRUE 10 2012
4 4 Boštjan Poklukar strankarska pozicija TRUE NA 2018
5 5 Boštjan Poklukar strankarska pozicija FALSE 11/7/2022 NA 2022
6 6 Boštjan Poklukar delovne izkušnje TRUE 19/7/1991 NA 1991
institution_si institution_department_si
1 Ministrstvo za notranje zadeve
2 Višja strokovna šola za gostinstvo, velnes in turizem Bled
3 Visoka šola za management Bled
4 LMŠ
5 Gibanje Svoboda
6 Območni štab Teritorialne obrambe
affiliation_type_si position_si end_day end_month end_year x y z w t u
1 politik minister 13/3/2020 NA 2020 NA NA NA NA NA NA
2 študent NA 2009 NA NA NA NA NA NA
3 dodiplomski študent NA 2014 NA NA NA NA NA NA
4 politik član 11/7/2022 NA 2022 NA NA NA NA NA NA
5 politik član NA 2100 NA NA NA NA NA NA
6 javni uslužbenec inštruktor 1/9/1991 NA 1991 NA NA NA NA NA NA
> sort(union(NULL,D$part_of_cv))
[1] "delovne izkušnje" "izobraževanje"
[3] "lastništvo podjetja" "prostočasne aktivnosti"
[5] "strankarska pozicija" "svetovalne in nadzorne funkcije etc."
> sort(union(NULL,trimws(D$position_si)))
[1] "administrativna pomočnica"
[2] "administrativno delo"
[3] "administratorka, vodja lokala"
[4] "agentka za reševanje pritožb"
[5] "aktivist"
[6] "aktivist/član"
[7] "aktivistka"
...
[745] "zunanja sodelavka"
[746] "zunanji sodelavec"
[747] "zunanji strokovni sodelavec"
[748] "župan"
[749] "župan občine Tržič"
[750] "župan občine Žiri"
[751] "župan v mestni občini Murska Sobota"
[752] "župan v občini Nova Gorica"
[753] "župan v občini Radeče"
> CSV <- "Slo.csv"; csv <- file(CSV,"w",encoding="UTF-8")
> cat("ID s f S T\n",file=csv)
> n <- nrow(D); OK <- TRUE
> for(i in 1:n){
+ ID <- D$person_name[i]; rel <- tolower(D$part_of_cv[i])
+ test <- trimws(tolower(D$institution_si[i]))
+ ds <- D$start_day[i]; ms <- D$start_month[i]; ys <- D$start_year[i]
+ sd <- datum(ds,ms,ys)
+ if(!OK) {cat(i,":",ID,ds,ms,ys,rel,'*** wrong date\n')
+ flush.console(); OK <- TRUE}
+ de <- D$end_day[i]; me <- D$end_month[i]; ye <- D$end_year[i]
+ ed <- if(ye==2100) datum("01/01/2024",NA,2024) else datum(de,me,ye)
+ if(!OK) {cat(i,":",ID,de,me,ye,rel,'*** wrong date\n')
+ flush.console(); OK <- TRUE}
+ cat('"',ID,'" ',sd,' ',ed,' "',rel,'" "',test,'"\n',sep='',file=csv)
+ }
40 : Simon Maljevac 4/17/2018 NA 2018 svetovalne in nadzorne funkcije etc. *** wrong date
56 : Bojan Kumer 3/31/2010 NA 2010 delovne izkušnje *** wrong date
806 : Matjaž Krajnc 9/30/2021 NA 2021 delovne izkušnje *** wrong date
1247 : Jožef Lenart 3/16/2012 NA 2012 delovne izkušnje *** wrong date
1247 : Jožef Lenart 6/30/2012 NA 2012 delovne izkušnje *** wrong date
1279 : Jožef Lenart 7/23/2018 NA 2018 prostočasne aktivnosti *** wrong date
1310 : Jožef Lenart 4/18/2017 NA 2017 delovne izkušnje *** wrong date
1310 : Jožef Lenart 4/17/2018 NA 2018 delovne izkušnje *** wrong date
1311 : Jožef Lenart 6/22/2018 NA 2018 delovne izkušnje *** wrong date
1424 : Jožef Lenart 6/22/2018 NA 2018 strankarska pozicija *** wrong date
1547 : Anja Bah Žibert 9/24/2009 NA 2009 svetovalne in nadzorne funkcije etc. *** wrong date
1562 : Franc Breznik 5/13/2015 NA 2015 prostočasne aktivnosti *** wrong date
1565 : Franc Breznik 4/17/2020 NA 2020 delovne izkušnje *** wrong date
1693 : Alenka Jeraj 5/22/1995 NA 1995 delovne izkušnje *** wrong date
1694 : Alenka Jeraj 6/30/1996 NA 1996 delovne izkušnje *** wrong date
1699 : Alenka Jeraj 6/13/2004 NA 2004 strankarska pozicija *** wrong date
1705 : Alenka Jeraj 6/22/2018 NA 2018 delovne izkušnje *** wrong date
1707 : Alenka Jeraj 4/17/2021 NA 2021 strankarska pozicija *** wrong date
1736 : Danijel Krivec 9/29/1995 NA 1995 svetovalne in nadzorne funkcije etc. *** wrong date
1740 : Danijel Krivec 12/19/2002 NA 2002 delovne izkušnje *** wrong date
1741 : Danijel Krivec 10/23/2003 NA 2003 svetovalne in nadzorne funkcije etc. *** wrong date
1741 : Danijel Krivec 11/29/2004 NA 2004 svetovalne in nadzorne funkcije etc. *** wrong date
1742 : Danijel Krivec 10/22/2004 NA 2004 delovne izkušnje *** wrong date
1743 : Danijel Krivec 10/22/2004 NA 2004 strankarska pozicija *** wrong date
1745 : Danijel Krivec 11/26/2009 NA 2009 prostočasne aktivnosti *** wrong date
1745 : Danijel Krivec 3/24/2021 NA 2021 prostočasne aktivnosti *** wrong date
1747 : Danijel Krivec 7/18/2023 NA 2023 prostočasne aktivnosti *** wrong date
1754 : Eva Irgl 10/22/2004 NA 2004 delovne izkušnje *** wrong date
1756 : Eva Irgl 5/31/2023 NA 2023 prostočasne aktivnosti *** wrong date
1996 : Maša Kociper 5/18/2018 NA 2018 strankarska pozicija *** wrong date
1996 : Maša Kociper 6/21/2018 NA 2018 strankarska pozicija *** wrong date
2061 : Branko Grims 2/15/1989 NA 1989 strankarska pozicija *** wrong date
2062 : Branko Grims 2/16/1989 NA 1989 strankarska pozicija *** wrong date
2063 : Branko Grims 2/16/1989 NA 1989 strankarska pozicija *** wrong date
2072 : Branko Grims 12/17/1997 NA 1997 delovne izkušnje *** wrong date
2251 : Monika Pekošak 3/18/2016 NA 2016 delovne izkušnje *** wrong date
2252 : Monika Pekošak 2/19/2010 NA 2010 delovne izkušnje *** wrong date
2273 : Maša Kociper 6/30/1998 NA 1998 delovne izkušnje *** wrong date
2275 : Maša Kociper 1/15/2002 NA 2002 delovne izkušnje *** wrong date
2276 : Maša Kociper 1/15/2002 NA 2002 delovne izkušnje *** wrong date
2277 : Maša Kociper 1/15/2002 NA 2002 delovne izkušnje *** wrong date
2284 : Maša Kociper 5/25/2009 NA 2009 svetovalne in nadzorne funkcije etc. *** wrong date
2284 : Maša Kociper 1/16/2012 NA 2012 svetovalne in nadzorne funkcije etc. *** wrong date
2285 : Maša Kociper 5/31/2014 NA 2014 strankarska pozicija *** wrong date
2286 : Maša Kociper 5/31/2014 NA 2014 strankarska pozicija *** wrong date
2287 : Maša Kociper 12/21/2011 NA 2011 delovne izkušnje *** wrong date
2288 : Maša Kociper 12/21/2011 NA 2011 strankarska pozicija *** wrong date
2289 : Maša Kociper 5/31/2014 NA 2014 strankarska pozicija *** wrong date
2290 : Maša Kociper 5/31/2014 NA 2014 strankarska pozicija *** wrong date
2291 : Maša Kociper 3/31/2015 NA 2015 delovne izkušnje *** wrong date
2293 : Maša Kociper 9/25/2018 NA 2018 delovne izkušnje *** wrong date
2294 : Maša Kociper 8/31/2015 NA 2015 delovne izkušnje *** wrong date
2296 : Maša Kociper 9/26/2018 NA 2018 delovne izkušnje *** wrong date
2296 : Maša Kociper 3/13/2020 NA 2020 delovne izkušnje *** wrong date
2303 : Maša Kociper 5/16/2016 NA 2016 prostočasne aktivnosti *** wrong date
2306 : Maša Kociper 1/20/2015 NA 2015 prostočasne aktivnosti *** wrong date
2306 : Maša Kociper 5/23/2015 NA 2015 prostočasne aktivnosti *** wrong date
2307 : Maša Kociper 1/20/2015 NA 2015 lastništvo podjetja *** wrong date
2308 : Maša Kociper 10/23/2008 NA 2008 svetovalne in nadzorne funkcije etc. *** wrong date
2308 : Maša Kociper 10/22/2012 NA 2012 svetovalne in nadzorne funkcije etc. *** wrong date
2340 : Maša Kociper 9/26/2018 NA 2018 strankarska pozicija *** wrong date
2340 : Maša Kociper 3/13/2020 NA 2020 strankarska pozicija *** wrong date
2435 : Janez Cigler Kralj 10/14/2022 NA 2022 strankarska pozicija *** wrong date
2496 : Anže Logar 6/22/2018 NA 2018 delovne izkušnje *** wrong date
2496 : Anže Logar 3/13/2020 NA 2020 delovne izkušnje *** wrong date
2497 : Anže Logar 3/13/2020 NA 2020 delovne izkušnje *** wrong date
2498 : Anže Logar 5/13/2022 NA 2022 delovne izkušnje *** wrong date
2499 : Anže Logar 10/14/2022 NA 2022 strankarska pozicija *** wrong date
2500 : Anže Logar 7/14/2023 NA 2023 prostočasne aktivnosti *** wrong date
2529 : Darjo Felda 9/30/2012 NA 2012 delovne izkušnje *** wrong date
2530 : Darjo Felda 6/30/2021 NA 2021 delovne izkušnje *** wrong date
2615 : Miha Lamut 8/14/2012 NA 2012 delovne izkušnje *** wrong date
2615 : Miha Lamut 8/30/2018 NA 2018 delovne izkušnje *** wrong date
2729 : Ferenc Horváth 12/16/1998 NA 1998 svetovalne in nadzorne funkcije etc. *** wrong date
2729 : Ferenc Horváth 11/28/2002 NA 2002 svetovalne in nadzorne funkcije etc. *** wrong date
2730 : Ferenc Horváth 11/28/2002 NA 2002 svetovalne in nadzorne funkcije etc. *** wrong date
2731 : Ferenc Horváth 4/17/2008 NA 2008 delovne izkušnje *** wrong date
2732 : Ferenc Horváth 9/22/2006 NA 2006 strankarska pozicija *** wrong date
2732 : Ferenc Horváth 10/22/2006 NA 2006 strankarska pozicija *** wrong date
2734 : Ferenc Horváth 12/28/2011 NA 2011 delovne izkušnje *** wrong date
2735 : Ferenc Horváth 9/15/2011 NA 2011 svetovalne in nadzorne funkcije etc. *** wrong date
2735 : Ferenc Horváth 6/28/2012 NA 2012 svetovalne in nadzorne funkcije etc. *** wrong date
2737 : Ferenc Horváth 6/22/2018 NA 2018 delovne izkušnje *** wrong date
2749 : Jurij Lep 6/22/2018 NA 2018 strankarska pozicija *** wrong date
2750 : Jurij Lep 6/22/2018 NA 2018 delovne izkušnje *** wrong date
2751 : Jurij Lep 3/30/2021 NA 2021 strankarska pozicija *** wrong date
2753 : Jurij Lep 9/20/2023 NA 2023 delovne izkušnje *** wrong date
2754 : Jurij Lep 8/17/2023 NA 2023 strankarska pozicija *** wrong date
2781 : Sanja Štiglic 6/20/2016 NA 2016 svetovalne in nadzorne funkcije etc. *** wrong date
2782 : Sanja Štiglic 7/23/2017 NA 2017 delovne izkušnje *** wrong date
2782 : Sanja Štiglic 7/31/2022 NA 2022 delovne izkušnje *** wrong date
2783 : Sanja Štiglic 7/31/2022 NA 2022 delovne izkušnje *** wrong date
2797 : Denis Kordež 4/19/2023 NA 2023 prostočasne aktivnosti *** wrong date
2811 : Klemen Ploštajner 9/30/2013 NA 2013 izobraževanje *** wrong date
2812 : Klemen Ploštajner 9/30/2016 NA 2016 izobraževanje *** wrong date
2814 : Klemen Ploštajner 7/31/2023 NA 2023 delovne izkušnje *** wrong date
2816 : Klemen Ploštajner 1/13/2017 NA 2017 svetovalne in nadzorne funkcije etc. *** wrong date
2819 : Klemen Ploštajner 7/31/2023 NA 2023 delovne izkušnje *** wrong date
2820 : Klemen Ploštajner 1/23/2023 NA 2023 delovne izkušnje *** wrong date
2844 : Dejan Kaloh 8/22/2008 NA 2008 strankarska pozicija *** wrong date
2844 : Dejan Kaloh 9/21/2008 NA 2008 strankarska pozicija *** wrong date
2846 : Dejan Kaloh 1/18/2010 NA 2010 lastništvo podjetja *** wrong date
2846 : Dejan Kaloh 7/31/2018 NA 2018 lastništvo podjetja *** wrong date
2847 : Dejan Kaloh 3/16/2011 NA 2011 lastništvo podjetja *** wrong date
2847 : Dejan Kaloh 9/13/2022 NA 2022 lastništvo podjetja *** wrong date
2848 : Dejan Kaloh 3/14/2012 NA 2012 delovne izkušnje *** wrong date
2849 : Dejan Kaloh 3/14/2012 NA 2012 lastništvo podjetja *** wrong date
2850 : Dejan Kaloh 5/15/2013 NA 2013 delovne izkušnje *** wrong date
2850 : Dejan Kaloh 6/28/2018 NA 2018 delovne izkušnje *** wrong date
2851 : Dejan Kaloh 5/14/2013 NA 2013 lastništvo podjetja *** wrong date
2851 : Dejan Kaloh 6/15/2018 NA 2018 lastništvo podjetja *** wrong date
2852 : Dejan Kaloh 6/13/2014 NA 2014 strankarska pozicija *** wrong date
2852 : Dejan Kaloh 7/13/2014 NA 2014 strankarska pozicija *** wrong date
2855 : Dejan Kaloh 6/22/2018 NA 2018 delovne izkušnje *** wrong date
2856 : Dejan Kaloh 6/22/2018 NA 2018 strankarska pozicija *** wrong date
2984 : Jože Novak 6/18/2003 NA 2003 svetovalne in nadzorne funkcije etc. *** wrong date
> close(csv)
> source("https://raw.githubusercontent.com/bavla/Rnet/master/R/Pajek.R")
> source("https://raw.githubusercontent.com/bavla/TQ/master/trajectories/trajectoR.R")
> E <- read.csv("Slo.csv",sep="")
> traj2Pajek(E,500000,"./slo/Slo.net")
% traj2Pajek Sun Dec 17 18:28:35 2023
events 2997
..................................................50 1494 Sun Dec 17 18:29:08 2023
..................................................100 4679 Sun Dec 17 18:30:17 2023
..................................................150 8129 Sun Dec 17 18:31:31 2023
..................................................200 14389 Sun Dec 17 18:33:53 2023
..................................................250 19392 Sun Dec 17 18:35:41 2023
..................................................300 25337 Sun Dec 17 18:37:49 2023
..................................................350 30810 Sun Dec 17 18:39:46 2023
..................................................400 35953 Sun Dec 17 18:41:44 2023
...
..................................................2700 356485 Sun Dec 17 20:45:29 2023
..................................................2750 363090 Sun Dec 17 20:48:06 2023
..................................................2800 368010 Sun Dec 17 20:49:52 2023
..................................................2850 370993 Sun Dec 17 20:50:57 2023
..................................................2900 372335 Sun Dec 17 20:51:26 2023
..................................................2950 373936 Sun Dec 17 20:52:01 2023
..............................................
Sun Dec 17 20:52:11 2023
density R = 0.2481923 tests = 1114261
density E = 0.08338913 edges = 374376
% finished Sun Dec 17 20:54:24 2023
>
> source("trajector2.R")
> traj2Pajek(E,500000,"./slo/Slo2.net")
% traj2Pajek Sun Dec 17 20:55:17 2023
events 2997
..................................................50 8 Sun Dec 17 20:55:18 2023
..................................................100 24 Sun Dec 17 20:55:18 2023
..................................................150 83 Sun Dec 17 20:55:19 2023
..................................................200 141 Sun Dec 17 20:55:19 2023
..................................................250 370 Sun Dec 17 20:55:22 2023
..................................................300 425 Sun Dec 17 20:55:23 2023
..................................................350 569 Sun Dec 17 20:55:25 2023
...
..................................................2600 10302 Sun Dec 17 20:57:03 2023
..................................................2650 11908 Sun Dec 17 20:57:17 2023
..................................................2700 13535 Sun Dec 17 20:57:31 2023
..................................................2750 15649 Sun Dec 17 20:57:50 2023
..................................................2800 16201 Sun Dec 17 20:57:55 2023
..................................................2850 16673 Sun Dec 17 20:58:00 2023
..................................................2900 17013 Sun Dec 17 20:58:03 2023
..................................................2950 17114 Sun Dec 17 20:58:04 2023
..............................................
Sun Dec 17 20:58:04 2023
density R = 0.2481923 tests = 1114261
density E = 0.003819797 edges = 17149
% finished Sun Dec 17 20:58:06 2023
In Pajek I produced the 1-neighbors skeleton of the obtained network. See SVG picture.
> PS <- P[order(P$name),]
> PS[99,"party_si"] <- "Gibanje Svoboda"
> table(PS$party_si)
Gibanje Svoboda Levica NSi SD SDS
54 48 9 8 15 24
> table(PS$gender)
F M
64 94
> table(PS$position)
minister mp pm secretary
19 89 1 49
> vector2clu(as.integer(factor(PS$gender)),Clu="gender.clu")
> vector2clu(as.integer(factor(PS$party_si)),Clu="party.clu")
> vector2clu(as.integer(factor(PS$position)),Clu="position.clu")
> nam <- read.table("./slo/Slo.nam",header=FALSE,skip=2)
> for(i in 1:nrow(nam)){S <- strsplit(nam$V2[i]," ")[[1]]
+ Ns <- paste(substring(S[1],1,1),substr(nam$V2[i],nchar(S[1])+2,nchar(nam$V2[i])))
+ cat('"',Ns,'"\n',sep='') }
"A Kamisalic Latific"
"A Jevsek"
"A Prosen Kralj"
...
"Z Mojskerc"
"Z Cernac"
I manually created using Textpad the names file Slo2.nam.
The permutation of nodes was determined using clustering.
read network slo2.net Network/Create new network/Transform/Add/vertex labels/default [Yes] Network/Create new network/Transform/Add/vertex labels/from file(s) [Slo2.nam] Network/Multiple relations network/Change relation number - label [1-6,1,all][No] Network/Create new network/Transform/Remove/Multiple lines/Sum values [No] Network/Create new network/Transform/Remove/Loops [No] Network/Create new network/Transform/Edges -> arcs [No] = directed Network/Create new network/Transform/Line values/Ln Cluster/Create complete cluster [158][OK] Operations/Network+Cluster/Dissimilarity*/Network based/d5-Corrected Euclidean [1][OK] select directed network (edges to arcs) Network/Create new network/Transform/Line values/Abs+Sqrt File/Network/Export as Matrix to/EPS/using permutation