quentin/tor_multipath_voip
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Packet graphs v1

Browse source
This commit is contained in:
Quentin 2019-09-17 15:36:07 +02:00
parent ebbf942469
commit 2d8d81ecb2
1 changed files with 13 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
r/thunder_configure.R
View file

@ -175,10 +175,11 @@ tdb_ag_2 <- sqldf("select run,count,oc,row_number() OVER (partition by count ord
tdb_ag_2$sorting <- as.factor(tdb_ag_2$sorting)
tdb_ag_2$count <- as.factor(tdb_ag_2$count)
v10 <- ggplot(data = tdb_ag_2, aes(x=count, y=oc, fill=sorting)) +
geom_bar(stat="summary",position = "dodge") +
#grom_bar() +
v10 <- ggplot(data = tdb_ag_2, aes(x=count, y=oc)) +
#geom_bar(stat="summary",position = "dodge") +
#scale_y_log10() +
geom_violin(scale='width') +
geom_boxplot(width=0.1, outlier.shape=NA) +
scale_y_continuous() +
ylab("Occurence") +
xlab("Packets dropped in a row") +
@ -186,6 +187,13 @@ v10 <- ggplot(data = tdb_ag_2, aes(x=count, y=oc, fill=sorting)) +
theme_classic()
thunder_red <- read.csv("thunder_configure_16_red.csv")
tred <- sqldf("select * from thunder_red WHERE run LIKE '%-24'")
tred <- sqldf("select run,delivered_at_once,occur,row_number() OVER (partition by delivered_at_once order by run) as sorting from thunder_red WHERE run LIKE '%-24'")
tred$sorting <- as.factor(tred$sorting)
tred$delivered_at_once <- as.factor(tred$delivered_at_once)
v11 <- ggplot(data = tred, aes(x=delivered_at_once, y=occur)) +
#geom_bar(stat="summary",position = "dodge") +
geom_violin(scale='width') +
geom_boxplot(width=0.1, outlier.shape=NA) +
theme_classic()
t3 <- plot_grid(v8, v9, v10, labels = c('A', 'B', 'C'), ncol=2)
t3 <- plot_grid(v8, v9, v10, v11, labels = c('A', 'B', 'C', 'D'), ncol=2)