Permalink
Cannot retrieve contributors at this time
| # | |
| # submission-ct.R, 15 Mar 18 | |
| # Data from: | |
| # Exploring Network Modelling and Strategy in the {Dutch} Product Software Ecosystem | |
| # Wesley Crooymans and Priyanka Pradhan and Slinger Jansen | |
| # | |
| # Example from: | |
| # Empirical Software Engineering using R | |
| # Derek M. Jones | |
| source("ESEUR_config.r") | |
| library(igraph) | |
| plot_layout(1, 1, default_width=ESEUR_default_width+2, | |
| default_height=ESEUR_default_height+2) | |
| cust_sup=read.csv(paste0(ESEUR_dir, "ecosystems/submission-ct.csv.xz"), as.is=TRUE) | |
| t=as.data.frame(table(cust_sup$Target)) | |
| cust_sup$in_weight=t$Freq[t$Var1[cust_sup$Target]] | |
| cust_sup$Source[which(table(cust_sup$Source) > 10)] | |
| cust_graph=graph.data.frame(cust_sup, directed=TRUE) | |
| V(cust_graph)$frame.color=NA | |
| V(cust_graph)$color="red" | |
| V(cust_graph)$size=2 | |
| t=as.data.frame(table(cust_sup$Target)) | |
| V(cust_graph)[t$Var1]$size=(3+t$Freq)^0.8 # suck it and see | |
| V(cust_graph)$label.cex=0.1 | |
| E(cust_graph)$width=E(cust_graph)$in_weight/max(E(cust_graph)$in_weight) | |
| E(cust_graph)$weight=1/(4+E(cust_graph)$in_weight) # more s-i-a-s | |
| E(cust_graph)$color="grey" | |
| E(cust_graph)$arrow.size=0.1 | |
| par(cex=0.9) | |
| plot(cust_graph) | |