R Notebook

results %>% group_by(class) %>% summarise(n=n()) %>% n
ggplot(results) + geom_bar(aes(class)) + theme(axis.text.x = element_text(angle = 90, hjust = 1))
results %>% group_by(class) %>% summarise(n=n()) %>% arrange(desc(n))

a<-(results %>% filter(class=="Normal-TCP-HTTP"))[,1:10]
reshape2::melt(a)
ggplot(reshape2::melt(a))+
  geom_boxplot(aes(y=value,x=1))+
  facet_wrap(~variable)+
  theme_bw()