Permalink
Cannot retrieve contributors at this time
# | |
# atc12-gra.R, 6 Aug 16 | |
# | |
# Data from: | |
# Generating Realistic Datasets for Deduplication Analysis | |
# Vasily Tarasov and Amar Mudrankit and Will Buik and Philip Shilane and Geoff Kuenning and Erez Zadok | |
# | |
# Example from: | |
# Empirical Software Engineering using R | |
# Derek M. Jones | |
source("ESEUR_config.r") | |
library("igraph") | |
plot_wide() | |
atc=read.csv(paste0(ESEUR_dir, "probability/atc12-gra.csv.xz"), as.is=TRUE) | |
atc_gra=graph.data.frame(atc, directed=TRUE) | |
V(atc_gra)$size=12 | |
V(atc_gra)$frame.color=NA | |
V(atc_gra)$color="yellow" | |
E(atc_gra)$arrow.size=0.5 | |
E(atc_gra)$color="red" | |
# E(atc_gra)$weight=E(atc_gra)$source | |
E(atc_gra)$weight=E(atc_gra)$linux | |
E(atc_gra)$label=E(atc_gra)$weight/100 | |
par(cex=0.9) | |
# layout.lgl seems to perform better, on average, than the default layout | |
plot(atc_gra, edge.width=0.3*sqrt(E(atc_gra)$weight), edge.curved=TRUE, | |
layout=layout.lgl) | |