library(ggplot2)
library(sqldf)
library(plyr)
library(cowplot)

link_info <- read.csv("../res/tmp_graph/l.txt")
ggplot(data=link_info, aes(x=timestamp, y=link, color=speed)) +
  #geom_line() +
  geom_point() +
  theme_classic()


xx <- read.csv("../res/tmp_graph/i.csv")
xx2 <- sqldf("select packet_id,1.0 * MIN(latency) / 1000.0 as lat,way from xx group by packet_id,way")
ggplot(data=xx2, aes(x=packet_id, y=lat, color=way)) +
  geom_line() +
  #geom_point() +
  theme_classic()