mininet-util/plot_retx-cubic.R at inigo · systemslab/mininet-util

Repository navigation

#!/usr/bin/env Rscript

< 4A27 div class="react-code-text react-code-line-contents" style="min-height:auto">

argv <- commandArgs(TRUE)

usage <- function() {

print("Usage: plot* <data>")

quit()

}

if (length(argv) < 1) {

usage()

}

filename <- argv[1]

library(ggplot2)

data <- read.table(filename, header=T)

data.m <- reshape2::melt(data, id.vars = NULL)

png(file=paste("percent_reTX", ".png", sep=""), height=1080, width=1920, pointsize=40)

ggplot(data.m, aes(x = variable, y = value, fill = variable)) +

geom_violin() +

geom_boxplot(width=0.075, fill="white") +

theme_minimal() +

theme(legend.position="none") +

scale_x_discrete(limits=c("CUBIC", "CUBIC.RFD", "DCTCP.Reno.fallback", "DCTCP.Reno.fallback.RFD")) +

scale_y_log10(breaks=c(0.001, 0.1, 1, 4)) +

labs(title="",x="", y = "Percent of Segments Retransmitted")

dev.off()