Improve results

r/lightning_begin.R

@@ -10,9 +10,28 @@ ggplot(data=link_info, aes(x=timestamp, y=link, color=speed)) +
   theme_classic()
 
 
-xx <- read.csv("../res/tmp_graph/i.csv")
+xx <- read.csv("../res/tmp_graph/m.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()
+
+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")