library(ggplot2) library(sqldf) library(plyr) library(cowplot) link_info <- read.csv("../res/tmp_graph/u.txt") ggplot(data=link_info, aes(x=timestamp, y=link, color=speed)) + #geom_line() + geom_point() + theme_classic() xx <- read.csv("../res/tmp_graph/r.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() + coord_cartesian(ylim=c(0,2000)) + #geom_point() + theme_classic() xx4 <- sqldf("select packet_id,1.0 * latency / 1000.0 as lat,way from xx where flag = 0") ggplot(data=xx4, aes(x=packet_id, y=lat, color=way)) + geom_line() + coord_cartesian(ylim=c(0,2000)) + #geom_point() + theme_classic() xx5 <- sqldf("select packet_id,1.0 * latency / 1000.0 as lat,way from xx where flag = 1") ggplot(data=xx5, aes(x=packet_id, y=lat, color=way)) + geom_line() + coord_cartesian(ylim=c(0,2000)) + #geom_point() + theme_classic() prepros <- sqldf( "select r.packet_id, r.way, r.lat, s.flag from (select packet_id, way, min(latency) as lat from xx group by packet_id,way) as r, xx as s where s.packet_id = r.packet_id and s.way = r.way and r.lat = s.latency") xx3 <- sqldf("select packet_id,1.0 * latency / 1000.0 as lat,flag,way from xx") xx3$flag <- factor(xx3$flag) ggplot(data=xx3, aes(x=lat, group=flag, color=flag)) + stat_ecdf(pad = FALSE) + #coord_cartesian(xlim=c(0,2000)) + theme_classic()