Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
47 lines (30 sloc) 1.12 KB
#
# 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)