19 lines
442 B
R
19 lines
442 B
R
|
library(ggplot2)
|
||
|
|
library(sqldf)
|
||
|
|
library(plyr)
|
||
|
|
library(cowplot)
|
||
|
|
|
||
|
|
link_info <- read.csv("/tmp/h.csv")
|
||
|
|
ggplot(data=link_info, aes(x=timestamp, y=link, color=speed)) +
|
||
|
|
#geom_line() +
|
||
|
|
geom_point() +
|
||
|
|
theme_classic()
|
||
|
|
|
||
|
|
|
||
|
|
xx <- read.csv("/tmp/f.csv")
|
||
|
|
xx2 <- sqldf("select packet_id,MIN(latency) 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()
|