Permalink
Cannot retrieve contributors at this time
# | |
# STVR-2013.csv, 22 Aug 18 | |
# Exploring the missing link: an empirical study of software fixes | |
# Maggie Hamill and Katerina Goseva-Popstojanova | |
# | |
# Data from: | |
# | |
# Example from: | |
# Evidence-based Software Engineering: based on the publicly available data | |
# Derek M. Jones | |
# | |
# TAG fault_fixed integration_fault-fix design_fault-fix code_fault-fix requirements_fault-fix | |
source("ESEUR_config.r") | |
library("lattice") | |
library("latticeExtra") | |
library("reshape2") | |
STVR=read.csv(paste0(ESEUR_dir, "communicating/STVR-2013.csv.xz"), as.is=TRUE) | |
STVR_col=melt(STVR, id.vars="fault", variable.name="fix", value.name="occurrences") | |
STVR_col$fault=as.factor(STVR_col$fault) | |
# fix is melt'ed as a factor (I know not why) | |
# STVR_col$fix=as.character(STVR_col$fix) | |
# log transform to pull out small differences in majority of counts | |
transform_breaks= exp(do.breaks(range(log(1e-4+STVR_col$occurrences)), 20)) | |
t=cloud(occurrences ~ fix+fault, STVR_col, panel.3d.cloud=panel.3dbars, | |
xlab="Fixes involved", ylab="Fault location ", zlab="\nCount", | |
xbase=0.5, ybase=0.5, aspect=c(1, 1), | |
cex=1.3, | |
# Makes the outer box transparent (for some reason) | |
par.settings=list(axis.line=list(col="transparent")), | |
col.facet = level.colors(STVR_col$occurrences, | |
at = transform_breaks, | |
col.regions = rainbow), | |
# An exercise in suck it and see | |
# screen=list(x=-50, y=60, z=40), | |
scales=list(arrows=FALSE, | |
distance=c(2, 1.1, 1), | |
# Rotate tick labels | |
x=list(rot=-40, cex=0.9), | |
y=list(cex=1.0), | |
z=list(cex=1.0) | |
)) | |
plot(t) | |