Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
55 lines (43 sloc) 1.52 KB
#
# violinplot-10-cscw.R, 22 Aug 18
#
# Data from:
# Information Needs in Bug Reports: Improving Cooperation Between Developers and Users
# Silvia Breu and Rahul Premraj and Jonathan Sillito and Thomas Zimmermann
#
# Example from:
# Evidence-based Software Engineering: based on the publicly available data
# Derek M. Jones
#
# TAG fault-report
source("ESEUR_config.r")
library("beanplot")
bug_rep=read.csv(paste0(ESEUR_dir, "communicating/10-cscw-data.csv.xz"), as.is=TRUE)
eclipse_rep=subset(bug_rep, project == "Eclipse")
# vioplot cannot handle NA
eclipse_rep=subset(eclipse_rep, !is.na(min.response.time))
eclipse_rep=subset(eclipse_rep, min.response.time > 0)
# Not been updated since 2005
# library("vioplot")
# vioplot raises error if an attempt is made to specify axis labels.
# Best approach is to use plot to control layout and add=TRUE in vioplot.
# log="y" produces weird results.
# plot(x=0.1, bty="n",
# xlab="", ylab="log(seconds)",
# xaxt="n",
# xlim=c(0.3, 2.8), ylim=range(log(eclipse_rep$min.response.time)))
#
# vioplot(log(eclipse_rep$min.response.time),
# col="yellow", colMed="red",
# wex=1.5,
# add=TRUE)
beanplot(eclipse_rep$min.response.time, col="yellow", log="y",
what=c(1, 1, 0, 0),
ylab="Seconds")
# Not a lot to see, rather limited functionality, move along.
# More for including a simple violin plot in something complicated.
# bwplot(log(eclipse_rep$min.response.time),
# panel=panel.violin, col="yellow",
# xlab="log(seconds)")
#
# All the fancy violin plot functionality is supplied by ggplot