diff --git a/r/thunder_configure.R b/r/thunder_configure.R
index 30c55ea..146c327 100644
--- a/r/thunder_configure.R
+++ b/r/thunder_configure.R
@@ -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)