Improve results
This commit is contained in:
parent
78e68a0f88
commit
d0b2499ca3
1 changed files with 20 additions and 1 deletions
|
@ -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")
|
||||
|
|
Loading…
Reference in a new issue