]> p2p-next.cs.pub.ro Git - p2p-testing-infrastructure.git/commitdiff
TestSpecs/gen: add time based graphs to R scripts
authorP2P-Next User <p2p@p2p-next-04-201.grid.pub.ro>
Fri, 20 Aug 2010 11:20:13 +0000 (14:20 +0300)
committerP2P-Next User <p2p@p2p-next-04-201.grid.pub.ro>
Fri, 20 Aug 2010 11:20:13 +0000 (14:20 +0300)
112 files changed:
TestSpecs/gen/performance-swarm-metrics-1.01.R
TestSpecs/gen/performance-swarm-metrics-1.02.R
TestSpecs/gen/performance-swarm-metrics-1.03.R
TestSpecs/gen/performance-swarm-metrics-1.04.R
TestSpecs/gen/performance-swarm-metrics-1.05.R
TestSpecs/gen/performance-swarm-metrics-1.06.R
TestSpecs/gen/performance-swarm-metrics-1.07.R
TestSpecs/gen/performance-swarm-metrics-1.08.R
TestSpecs/gen/performance-swarm-metrics-1.09.R
TestSpecs/gen/performance-swarm-metrics-1.10.R
TestSpecs/gen/performance-swarm-metrics-1.11.R
TestSpecs/gen/performance-swarm-metrics-10.01.R
TestSpecs/gen/performance-swarm-metrics-10.02.R
TestSpecs/gen/performance-swarm-metrics-10.03.R
TestSpecs/gen/performance-swarm-metrics-10.04.R
TestSpecs/gen/performance-swarm-metrics-10.05.R
TestSpecs/gen/performance-swarm-metrics-10.06.R
TestSpecs/gen/performance-swarm-metrics-10.07.R
TestSpecs/gen/performance-swarm-metrics-10.08.R
TestSpecs/gen/performance-swarm-metrics-10.09.R
TestSpecs/gen/performance-swarm-metrics-10.10.R
TestSpecs/gen/performance-swarm-metrics-11.01.R
TestSpecs/gen/performance-swarm-metrics-11.02.R
TestSpecs/gen/performance-swarm-metrics-11.03.R
TestSpecs/gen/performance-swarm-metrics-11.04.R
TestSpecs/gen/performance-swarm-metrics-11.05.R
TestSpecs/gen/performance-swarm-metrics-11.06.R
TestSpecs/gen/performance-swarm-metrics-11.07.R
TestSpecs/gen/performance-swarm-metrics-11.08.R
TestSpecs/gen/performance-swarm-metrics-11.09.R
TestSpecs/gen/performance-swarm-metrics-11.10.R
TestSpecs/gen/performance-swarm-metrics-12.01.R
TestSpecs/gen/performance-swarm-metrics-12.02.R
TestSpecs/gen/performance-swarm-metrics-12.03.R
TestSpecs/gen/performance-swarm-metrics-12.04.R
TestSpecs/gen/performance-swarm-metrics-12.05.R
TestSpecs/gen/performance-swarm-metrics-12.06.R
TestSpecs/gen/performance-swarm-metrics-12.07.R
TestSpecs/gen/performance-swarm-metrics-12.08.R
TestSpecs/gen/performance-swarm-metrics-12.09.R
TestSpecs/gen/performance-swarm-metrics-12.10.R
TestSpecs/gen/performance-swarm-metrics-12.11.R
TestSpecs/gen/performance-swarm-metrics-2.01.R
TestSpecs/gen/performance-swarm-metrics-2.02.R
TestSpecs/gen/performance-swarm-metrics-2.03.R
TestSpecs/gen/performance-swarm-metrics-2.04.R
TestSpecs/gen/performance-swarm-metrics-2.05.R
TestSpecs/gen/performance-swarm-metrics-2.06.R
TestSpecs/gen/performance-swarm-metrics-2.07.R
TestSpecs/gen/performance-swarm-metrics-2.08.R
TestSpecs/gen/performance-swarm-metrics-2.09.R
TestSpecs/gen/performance-swarm-metrics-2.10.R
TestSpecs/gen/performance-swarm-metrics-2.11.R
TestSpecs/gen/performance-swarm-metrics-3.01.R
TestSpecs/gen/performance-swarm-metrics-3.02.R
TestSpecs/gen/performance-swarm-metrics-3.03.R
TestSpecs/gen/performance-swarm-metrics-3.04.R
TestSpecs/gen/performance-swarm-metrics-3.05.R
TestSpecs/gen/performance-swarm-metrics-3.06.R
TestSpecs/gen/performance-swarm-metrics-3.07.R
TestSpecs/gen/performance-swarm-metrics-3.08.R
TestSpecs/gen/performance-swarm-metrics-3.09.R
TestSpecs/gen/performance-swarm-metrics-3.10.R
TestSpecs/gen/performance-swarm-metrics-3.11.R
TestSpecs/gen/performance-swarm-metrics-4.01.R
TestSpecs/gen/performance-swarm-metrics-4.02.R
TestSpecs/gen/performance-swarm-metrics-4.03.R
TestSpecs/gen/performance-swarm-metrics-4.04.R
TestSpecs/gen/performance-swarm-metrics-4.05.R
TestSpecs/gen/performance-swarm-metrics-4.06.R
TestSpecs/gen/performance-swarm-metrics-4.07.R
TestSpecs/gen/performance-swarm-metrics-4.08.R
TestSpecs/gen/performance-swarm-metrics-4.09.R
TestSpecs/gen/performance-swarm-metrics-5.01.R
TestSpecs/gen/performance-swarm-metrics-5.02.R
TestSpecs/gen/performance-swarm-metrics-5.03.R
TestSpecs/gen/performance-swarm-metrics-5.04.R
TestSpecs/gen/performance-swarm-metrics-5.05.R
TestSpecs/gen/performance-swarm-metrics-5.06.R
TestSpecs/gen/performance-swarm-metrics-5.07.R
TestSpecs/gen/performance-swarm-metrics-6.01.R
TestSpecs/gen/performance-swarm-metrics-6.02.R
TestSpecs/gen/performance-swarm-metrics-6.03.R
TestSpecs/gen/performance-swarm-metrics-7.01.R
TestSpecs/gen/performance-swarm-metrics-7.02.R
TestSpecs/gen/performance-swarm-metrics-7.03.R
TestSpecs/gen/performance-swarm-metrics-7.04.R
TestSpecs/gen/performance-swarm-metrics-7.05.R
TestSpecs/gen/performance-swarm-metrics-7.06.R
TestSpecs/gen/performance-swarm-metrics-7.07.R
TestSpecs/gen/performance-swarm-metrics-7.08.R
TestSpecs/gen/performance-swarm-metrics-7.09.R
TestSpecs/gen/performance-swarm-metrics-8.01.R
TestSpecs/gen/performance-swarm-metrics-8.02.R
TestSpecs/gen/performance-swarm-metrics-8.03.R
TestSpecs/gen/performance-swarm-metrics-8.04.R
TestSpecs/gen/performance-swarm-metrics-8.05.R
TestSpecs/gen/performance-swarm-metrics-8.06.R
TestSpecs/gen/performance-swarm-metrics-8.07.R
TestSpecs/gen/performance-swarm-metrics-8.08.R
TestSpecs/gen/performance-swarm-metrics-8.09.R
TestSpecs/gen/performance-swarm-metrics-8.10.R
TestSpecs/gen/performance-swarm-metrics-9.01.R
TestSpecs/gen/performance-swarm-metrics-9.02.R
TestSpecs/gen/performance-swarm-metrics-9.03.R
TestSpecs/gen/performance-swarm-metrics-9.04.R
TestSpecs/gen/performance-swarm-metrics-9.05.R
TestSpecs/gen/performance-swarm-metrics-9.06.R
TestSpecs/gen/performance-swarm-metrics-9.07.R
TestSpecs/gen/performance-swarm-metrics-9.08.R
TestSpecs/gen/performance-swarm-metrics-9.09.R
TestSpecs/gen/performance-swarm-metrics-9.10.R

index 01f576e8d7e77e6e31d9e612f96ce221bd0575cf..91b215eb8402e4bc7a29dcdb958f90d90d7fcc1d 100644 (file)
@@ -303,95 +303,95 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher2$percent, y=leecher2$dlspeed, label="Leecher 2"), size=1) +
-geom_point(aes(x=leecher3$percent, y=leecher3$dlspeed, label="Leecher 3"), size=1) +
-geom_point(aes(x=leecher4$percent, y=leecher4$dlspeed, label="Leecher 4"), size=1) +
-geom_point(aes(x=leecher5$percent, y=leecher5$dlspeed, label="Leecher 5"), size=1) +
-geom_point(aes(x=leecher6$percent, y=leecher6$dlspeed, label="Leecher 6"), size=1) +
-geom_point(aes(x=leecher7$percent, y=leecher7$dlspeed, label="Leecher 7"), size=1) +
-geom_point(aes(x=leecher8$percent, y=leecher8$dlspeed, label="Leecher 8"), size=1) +
-geom_point(aes(x=leecher9$percent, y=leecher9$dlspeed, label="Leecher 9"), size=1) +
-geom_point(aes(x=leecher10$percent, y=leecher10$dlspeed, label="Leecher 10"), size=1) +
-geom_point(aes(x=leecher11$percent, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
-geom_point(aes(x=leecher12$percent, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
-geom_point(aes(x=leecher13$percent, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
-geom_point(aes(x=leecher14$percent, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
-geom_point(aes(x=leecher15$percent, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
-geom_point(aes(x=leecher16$percent, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
-geom_point(aes(x=leecher17$percent, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
-geom_point(aes(x=leecher18$percent, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
-geom_point(aes(x=leecher19$percent, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
-geom_point(aes(x=leecher20$percent, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
-geom_point(aes(x=leecher21$percent, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
-geom_point(aes(x=leecher22$percent, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
-geom_point(aes(x=leecher23$percent, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
-geom_point(aes(x=leecher24$percent, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
-geom_point(aes(x=leecher25$percent, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
-geom_point(aes(x=leecher26$percent, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
-geom_point(aes(x=leecher27$percent, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
-geom_point(aes(x=leecher28$percent, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
-geom_point(aes(x=leecher29$percent, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
-geom_point(aes(x=leecher30$percent, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher2$time, y=leecher2$dlspeed, label="Leecher 2"), size=1) +
+geom_point(aes(x=leecher3$time, y=leecher3$dlspeed, label="Leecher 3"), size=1) +
+geom_point(aes(x=leecher4$time, y=leecher4$dlspeed, label="Leecher 4"), size=1) +
+geom_point(aes(x=leecher5$time, y=leecher5$dlspeed, label="Leecher 5"), size=1) +
+geom_point(aes(x=leecher6$time, y=leecher6$dlspeed, label="Leecher 6"), size=1) +
+geom_point(aes(x=leecher7$time, y=leecher7$dlspeed, label="Leecher 7"), size=1) +
+geom_point(aes(x=leecher8$time, y=leecher8$dlspeed, label="Leecher 8"), size=1) +
+geom_point(aes(x=leecher9$time, y=leecher9$dlspeed, label="Leecher 9"), size=1) +
+geom_point(aes(x=leecher10$time, y=leecher10$dlspeed, label="Leecher 10"), size=1) +
+geom_point(aes(x=leecher11$time, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
+geom_point(aes(x=leecher12$time, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
+geom_point(aes(x=leecher13$time, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
+geom_point(aes(x=leecher14$time, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
+geom_point(aes(x=leecher15$time, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
+geom_point(aes(x=leecher16$time, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
+geom_point(aes(x=leecher17$time, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
+geom_point(aes(x=leecher18$time, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
+geom_point(aes(x=leecher19$time, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
+geom_point(aes(x=leecher20$time, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
+geom_point(aes(x=leecher21$time, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
+geom_point(aes(x=leecher22$time, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
+geom_point(aes(x=leecher23$time, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
+geom_point(aes(x=leecher24$time, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
+geom_point(aes(x=leecher25$time, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
+geom_point(aes(x=leecher26$time, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
+geom_point(aes(x=leecher27$time, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
+geom_point(aes(x=leecher28$time, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
+geom_point(aes(x=leecher29$time, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
+geom_point(aes(x=leecher30$time, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  1), breaks=seq(0,  1, 0.5)) +
index 1a1407390f446a8ab0265b840e8e09dc343cb634..a1dbe8b6fe4bc6ae86fe6d67abba014aae712f45 100644 (file)
@@ -285,86 +285,86 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher11$percent, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
-geom_point(aes(x=leecher12$percent, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
-geom_point(aes(x=leecher13$percent, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
-geom_point(aes(x=leecher14$percent, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
-geom_point(aes(x=leecher15$percent, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
-geom_point(aes(x=leecher16$percent, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
-geom_point(aes(x=leecher17$percent, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
-geom_point(aes(x=leecher18$percent, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
-geom_point(aes(x=leecher19$percent, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
-geom_point(aes(x=leecher20$percent, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
-geom_point(aes(x=leecher21$percent, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
-geom_point(aes(x=leecher22$percent, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
-geom_point(aes(x=leecher23$percent, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
-geom_point(aes(x=leecher24$percent, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
-geom_point(aes(x=leecher25$percent, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
-geom_point(aes(x=leecher26$percent, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
-geom_point(aes(x=leecher27$percent, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
-geom_point(aes(x=leecher28$percent, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
-geom_point(aes(x=leecher29$percent, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
-geom_point(aes(x=leecher30$percent, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher11$time, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
+geom_point(aes(x=leecher12$time, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
+geom_point(aes(x=leecher13$time, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
+geom_point(aes(x=leecher14$time, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
+geom_point(aes(x=leecher15$time, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
+geom_point(aes(x=leecher16$time, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
+geom_point(aes(x=leecher17$time, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
+geom_point(aes(x=leecher18$time, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
+geom_point(aes(x=leecher19$time, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
+geom_point(aes(x=leecher20$time, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
+geom_point(aes(x=leecher21$time, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
+geom_point(aes(x=leecher22$time, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
+geom_point(aes(x=leecher23$time, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
+geom_point(aes(x=leecher24$time, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
+geom_point(aes(x=leecher25$time, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
+geom_point(aes(x=leecher26$time, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
+geom_point(aes(x=leecher27$time, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
+geom_point(aes(x=leecher28$time, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
+geom_point(aes(x=leecher29$time, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
+geom_point(aes(x=leecher30$time, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  1), breaks=seq(0,  1, 0.5)) +
index a2024ae4bebb57e1ccfad95ac044a73637a2ea64..d0ea6404309418c6a881b489f0da01760d9e373e 100644 (file)
@@ -265,76 +265,76 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher21$percent, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
-geom_point(aes(x=leecher22$percent, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
-geom_point(aes(x=leecher23$percent, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
-geom_point(aes(x=leecher24$percent, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
-geom_point(aes(x=leecher25$percent, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
-geom_point(aes(x=leecher26$percent, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
-geom_point(aes(x=leecher27$percent, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
-geom_point(aes(x=leecher28$percent, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
-geom_point(aes(x=leecher29$percent, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
-geom_point(aes(x=leecher30$percent, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher21$time, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
+geom_point(aes(x=leecher22$time, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
+geom_point(aes(x=leecher23$time, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
+geom_point(aes(x=leecher24$time, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
+geom_point(aes(x=leecher25$time, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
+geom_point(aes(x=leecher26$time, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
+geom_point(aes(x=leecher27$time, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
+geom_point(aes(x=leecher28$time, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
+geom_point(aes(x=leecher29$time, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
+geom_point(aes(x=leecher30$time, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  1), breaks=seq(0,  1, 0.5)) +
index e378f9a21356761c334d6f27669b2fd4c0861237..12f19a5693897812051fb9ffe1e67db60c42ac4e 100644 (file)
@@ -245,66 +245,66 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  1), breaks=seq(0,  1, 0.5)) +
index b777e2c788f7c39d6bc70a1fa3aeefd8af1b43dc..35d4271d4f221fef4342f4dc0dbf49b7650c8be1 100644 (file)
@@ -225,56 +225,56 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  1), breaks=seq(0,  1, 0.5)) +
index d6fdc244f29dd753028287badf5197ede1c8c1ef..df237c75bdf11a939ec1d45132c7e1c2ba95e9e0 100644 (file)
@@ -215,51 +215,51 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  1), breaks=seq(0,  1, 0.5)) +
index 9ae6abd0619a80571465c3f4dc6d4a56678cfb11..ac87d2214d21e4bf367b156f47a1e3445bacc7d7 100644 (file)
@@ -205,46 +205,46 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  1), breaks=seq(0,  1, 0.5)) +
index 5e56022647e13a52d07c607b6947d7dc9d46edc6..a6696156eb4aaf366874db158fa9a3c7a1561b8b 100644 (file)
@@ -185,36 +185,36 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  1), breaks=seq(0,  1, 0.5)) +
index 8e1b89bacd4a9683e2d3552a806d59b6c814917b..83fc92d0ea7f4430139225189b4429056d4c764a 100644 (file)
@@ -165,26 +165,26 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  1), breaks=seq(0,  1, 0.5)) +
index 8b7c45f1700892b6477773e7ffd2b5475824f858..1079df297311737148a4b8f1c852894d2eb32106 100644 (file)
@@ -145,16 +145,16 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  1), breaks=seq(0,  1, 0.5)) +
index a9a2baabcaee7a83f0d12d3f534f785434b4f162..e429804c2bcbcd8f8ea6b92bff8fd70cb71a224f 100644 (file)
@@ -127,7 +127,7 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  1), breaks=seq(0,  1, 0.5)) +
index 633e9c7a8b0a20c740d4214038f4134e95180918..659b06b7a1a5e86d5c238dea464bd04189e7567c 100644 (file)
@@ -185,36 +185,36 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 52d3a447055f90eb6a6442835ce55279f9e36e48..111fa5db8708940fd40019944db4d77ebd5c5dac 100644 (file)
@@ -185,36 +185,36 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index c0a241b57a92b774ff5b4d0d1e5c514f986a74d5..1f8b4c48d42c5aba3a7f0c555271be5652daa63c 100644 (file)
@@ -185,36 +185,36 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index c4439a0a2f0e7c57c75a3d683ad5a83fddafa427..8632130b607295bbf699419e3dff9e042640cc3f 100644 (file)
@@ -185,36 +185,36 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 17135f658a730f3c2d3713b189b59c0e6d10b54a..c339e8727289f0b930cbb2263e27b374c23427bc 100644 (file)
@@ -185,36 +185,36 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 87c13a29d1de7361e13c3ee3ae2ae3545bb68874..a60afd7609424aad96cc0a2b36ee1be7117738d3 100644 (file)
@@ -185,36 +185,36 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 0959735cef933a186ad82c837817fd45a16ee990..e7a91c6807ac7752f0cbc3a7b79e1cfa2ae475d8 100644 (file)
@@ -185,36 +185,36 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 0d9af9df3b3ae7aaaaefcd82d71a16ab0a50a865..6ef8cc50f501091aad9c34eea05a7ca18434635b 100644 (file)
@@ -185,36 +185,36 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 6de0a8ec29bf3692a279327a5691de264d611add..65cae467db40d6238ec27055afd183ceed4ddd8b 100644 (file)
@@ -185,36 +185,36 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index aad45a431ca3bdb1d9dd30022882a343e203598c..71b2ce24d98992a94dd816b02c36a95ba560867f 100644 (file)
@@ -185,36 +185,36 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 2c1750f2416c65745a36c4f239aec2426a565e2a..684fc47411321219fa5fce0fb270bda774b83304 100644 (file)
@@ -145,16 +145,16 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index ee2760e1f697a5aec0f74b40a0b3d93285be58e6..2ad4dcbdb5570ecebf44037cd1e3e3cad74afa58 100644 (file)
@@ -145,16 +145,16 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 7efda91d9422d7564c2ed74d9a981b59453a6cbc..494876a7f2ddd13b113e9947bc2c3f4a44ee5d96 100644 (file)
@@ -145,16 +145,16 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 425c3a2f8214c5e3b1b677e3a0cb52fb61da6451..54b8e760d1cb1f2021c3da7c0675f3cbf9ee1d58 100644 (file)
@@ -145,16 +145,16 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 927d6a919325623a3a79904e44a475f539d72042..939ffe4927520984ef257d43cfb22924d7780ccb 100644 (file)
@@ -145,16 +145,16 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 05b50ef1a93e0482d2dee72b99c09821867b20f7..042200c8dbf507abc558e43d70c62ee9fa68232c 100644 (file)
@@ -145,16 +145,16 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index c0da4d7f703fba8d768111b71867e30ae5213306..69611cc4b717f32a613f01ff89dbef7b4fea18ec 100644 (file)
@@ -145,16 +145,16 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index f8f7aaefe890a7b7778bd927f4eb47af30fe2e5d..027022fd9d2aa279e3a45ca8c7a89d706218225a 100644 (file)
@@ -145,16 +145,16 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 96bb759d3f2e5f62602219a251f6a08486f963e2..f4ff9cfe1200418a613d02f9c155a52075fc0054 100644 (file)
@@ -145,16 +145,16 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index a8503d225fe6cefa387e2f469b5fe45eee374974..6fe4718dabb3acaed55d18d6fe842cd4d70fa0aa 100644 (file)
@@ -145,16 +145,16 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 6468610b2b6a362faacdc78004bbc315ec2c3717..66c7228ea4e9b59d97a32129415a1595ec8a7b73 100644 (file)
@@ -245,66 +245,66 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 3debaa934c8639f0adf9a9490b6edde3c6402454..fe9423c2e0b89886dc8f1e18972228b6f1e0603c 100644 (file)
@@ -245,66 +245,66 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index ab8df5a9067d2ab4f7595251156e6079b7985e9d..84ee68e142fb7c79b8e0fa6c22ed9c17e9b93e05 100644 (file)
@@ -245,66 +245,66 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 7733eeb47fe6defcc54980d5068cddd40c5685c8..aa71c1d2e5dd5e2db4c750dddcd75f5cacf8c0f8 100644 (file)
@@ -245,66 +245,66 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  1), breaks=seq(0,  1, 0.5)) +
index 11ab0bb26d190a1a1c7165f2173caec75c3d139f..8dd13b70bad5c7bca27fc3e07bbefb2ddf77822b 100644 (file)
@@ -245,66 +245,66 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  4), breaks=seq(0,  4, 0.5)) +
index 07f5ab8506612171a1640bd4e4b758ab7a1e6b29..9363cfaaaad436ef4c7f0ac6e4f3d7593918c6a5 100644 (file)
@@ -245,66 +245,66 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  16), breaks=seq(0,  16, 0.5)) +
index 18861b71a8ef6a50801e2924112097dd79227b6b..428e72452a0f2a210f9640fa9db4b5111490ddd4 100644 (file)
@@ -245,66 +245,66 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  16), breaks=seq(0,  16, 0.5)) +
index 324d2a789b160e564d7f957926ee8bdf47781eed..630ad8b54bf1d5543c7a87b890e7ce5f51507aaf 100644 (file)
@@ -245,66 +245,66 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  16), breaks=seq(0,  16, 0.5)) +
index f5cd64ded00998fb6b0af782633a38bd7269ceef..4204607c17383722314ac44c55e7122a78bcf010 100644 (file)
@@ -245,66 +245,66 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  32), breaks=seq(0,  32, 0.5)) +
index e8f42aa12c45876773920b39fb1c631f7437996f..1a986cb97823cc2e03ba45800c3593cc1b25099e 100644 (file)
@@ -245,66 +245,66 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  32), breaks=seq(0,  32, 0.5)) +
index 609045f7f366900a357bc6725edce8fe1187ea79..8584726553fcaa9d2a4dedc14b08fc15ed56b5ae 100644 (file)
@@ -245,66 +245,66 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  32), breaks=seq(0,  32, 0.5)) +
index 8ae2c5f711930f0701e5abff755d37f43014de02..ee299735e0b7e3b878d90fe88dc67adb00b2da2d 100644 (file)
@@ -303,95 +303,95 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher2$percent, y=leecher2$dlspeed, label="Leecher 2"), size=1) +
-geom_point(aes(x=leecher3$percent, y=leecher3$dlspeed, label="Leecher 3"), size=1) +
-geom_point(aes(x=leecher4$percent, y=leecher4$dlspeed, label="Leecher 4"), size=1) +
-geom_point(aes(x=leecher5$percent, y=leecher5$dlspeed, label="Leecher 5"), size=1) +
-geom_point(aes(x=leecher6$percent, y=leecher6$dlspeed, label="Leecher 6"), size=1) +
-geom_point(aes(x=leecher7$percent, y=leecher7$dlspeed, label="Leecher 7"), size=1) +
-geom_point(aes(x=leecher8$percent, y=leecher8$dlspeed, label="Leecher 8"), size=1) +
-geom_point(aes(x=leecher9$percent, y=leecher9$dlspeed, label="Leecher 9"), size=1) +
-geom_point(aes(x=leecher10$percent, y=leecher10$dlspeed, label="Leecher 10"), size=1) +
-geom_point(aes(x=leecher11$percent, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
-geom_point(aes(x=leecher12$percent, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
-geom_point(aes(x=leecher13$percent, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
-geom_point(aes(x=leecher14$percent, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
-geom_point(aes(x=leecher15$percent, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
-geom_point(aes(x=leecher16$percent, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
-geom_point(aes(x=leecher17$percent, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
-geom_point(aes(x=leecher18$percent, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
-geom_point(aes(x=leecher19$percent, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
-geom_point(aes(x=leecher20$percent, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
-geom_point(aes(x=leecher21$percent, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
-geom_point(aes(x=leecher22$percent, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
-geom_point(aes(x=leecher23$percent, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
-geom_point(aes(x=leecher24$percent, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
-geom_point(aes(x=leecher25$percent, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
-geom_point(aes(x=leecher26$percent, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
-geom_point(aes(x=leecher27$percent, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
-geom_point(aes(x=leecher28$percent, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
-geom_point(aes(x=leecher29$percent, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
-geom_point(aes(x=leecher30$percent, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher2$time, y=leecher2$dlspeed, label="Leecher 2"), size=1) +
+geom_point(aes(x=leecher3$time, y=leecher3$dlspeed, label="Leecher 3"), size=1) +
+geom_point(aes(x=leecher4$time, y=leecher4$dlspeed, label="Leecher 4"), size=1) +
+geom_point(aes(x=leecher5$time, y=leecher5$dlspeed, label="Leecher 5"), size=1) +
+geom_point(aes(x=leecher6$time, y=leecher6$dlspeed, label="Leecher 6"), size=1) +
+geom_point(aes(x=leecher7$time, y=leecher7$dlspeed, label="Leecher 7"), size=1) +
+geom_point(aes(x=leecher8$time, y=leecher8$dlspeed, label="Leecher 8"), size=1) +
+geom_point(aes(x=leecher9$time, y=leecher9$dlspeed, label="Leecher 9"), size=1) +
+geom_point(aes(x=leecher10$time, y=leecher10$dlspeed, label="Leecher 10"), size=1) +
+geom_point(aes(x=leecher11$time, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
+geom_point(aes(x=leecher12$time, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
+geom_point(aes(x=leecher13$time, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
+geom_point(aes(x=leecher14$time, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
+geom_point(aes(x=leecher15$time, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
+geom_point(aes(x=leecher16$time, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
+geom_point(aes(x=leecher17$time, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
+geom_point(aes(x=leecher18$time, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
+geom_point(aes(x=leecher19$time, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
+geom_point(aes(x=leecher20$time, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
+geom_point(aes(x=leecher21$time, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
+geom_point(aes(x=leecher22$time, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
+geom_point(aes(x=leecher23$time, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
+geom_point(aes(x=leecher24$time, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
+geom_point(aes(x=leecher25$time, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
+geom_point(aes(x=leecher26$time, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
+geom_point(aes(x=leecher27$time, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
+geom_point(aes(x=leecher28$time, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
+geom_point(aes(x=leecher29$time, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
+geom_point(aes(x=leecher30$time, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index c3e4e1e79f026342f10af7cc86b900ba99f985ee..e217e50e4084ea6d9b80e0fdce4d0687b8281a04 100644 (file)
@@ -285,86 +285,86 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher11$percent, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
-geom_point(aes(x=leecher12$percent, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
-geom_point(aes(x=leecher13$percent, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
-geom_point(aes(x=leecher14$percent, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
-geom_point(aes(x=leecher15$percent, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
-geom_point(aes(x=leecher16$percent, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
-geom_point(aes(x=leecher17$percent, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
-geom_point(aes(x=leecher18$percent, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
-geom_point(aes(x=leecher19$percent, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
-geom_point(aes(x=leecher20$percent, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
-geom_point(aes(x=leecher21$percent, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
-geom_point(aes(x=leecher22$percent, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
-geom_point(aes(x=leecher23$percent, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
-geom_point(aes(x=leecher24$percent, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
-geom_point(aes(x=leecher25$percent, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
-geom_point(aes(x=leecher26$percent, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
-geom_point(aes(x=leecher27$percent, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
-geom_point(aes(x=leecher28$percent, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
-geom_point(aes(x=leecher29$percent, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
-geom_point(aes(x=leecher30$percent, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher11$time, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
+geom_point(aes(x=leecher12$time, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
+geom_point(aes(x=leecher13$time, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
+geom_point(aes(x=leecher14$time, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
+geom_point(aes(x=leecher15$time, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
+geom_point(aes(x=leecher16$time, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
+geom_point(aes(x=leecher17$time, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
+geom_point(aes(x=leecher18$time, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
+geom_point(aes(x=leecher19$time, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
+geom_point(aes(x=leecher20$time, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
+geom_point(aes(x=leecher21$time, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
+geom_point(aes(x=leecher22$time, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
+geom_point(aes(x=leecher23$time, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
+geom_point(aes(x=leecher24$time, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
+geom_point(aes(x=leecher25$time, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
+geom_point(aes(x=leecher26$time, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
+geom_point(aes(x=leecher27$time, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
+geom_point(aes(x=leecher28$time, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
+geom_point(aes(x=leecher29$time, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
+geom_point(aes(x=leecher30$time, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index f25181c4eb1a3d91298d69de3e93e9ada77e932a..8c09dcd5a3b3d355ddd486dda3c350cb7cf5cc37 100644 (file)
@@ -265,76 +265,76 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher21$percent, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
-geom_point(aes(x=leecher22$percent, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
-geom_point(aes(x=leecher23$percent, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
-geom_point(aes(x=leecher24$percent, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
-geom_point(aes(x=leecher25$percent, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
-geom_point(aes(x=leecher26$percent, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
-geom_point(aes(x=leecher27$percent, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
-geom_point(aes(x=leecher28$percent, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
-geom_point(aes(x=leecher29$percent, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
-geom_point(aes(x=leecher30$percent, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher21$time, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
+geom_point(aes(x=leecher22$time, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
+geom_point(aes(x=leecher23$time, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
+geom_point(aes(x=leecher24$time, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
+geom_point(aes(x=leecher25$time, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
+geom_point(aes(x=leecher26$time, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
+geom_point(aes(x=leecher27$time, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
+geom_point(aes(x=leecher28$time, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
+geom_point(aes(x=leecher29$time, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
+geom_point(aes(x=leecher30$time, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 4b3f5e618c05c60cdf43c73f8777bb666116e010..5bc397e1c1c3bb19fc7fd628b4b3bd8b7fb80fe9 100644 (file)
@@ -245,66 +245,66 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 5d4498546d640689c817f7c6672ac20706dd3751..c62e75fd9eb78ef15e2f9afa6f95d7da16cd4e15 100644 (file)
@@ -225,56 +225,56 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 86e5900b718cd6793548c3abddc496186745f7eb..822188b4cec113e44a0cd8e1928a3717b18a8356 100644 (file)
@@ -215,51 +215,51 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index aa4d49545ee61004edb9d29027282a2b687a295d..099eaeaee0ece2e7c36b4bba2443a145ad695319 100644 (file)
@@ -205,46 +205,46 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 5257bd9a32faa06651a50351e6b30dd6761dce5a..1cc57f618b6aff0037e016f64b141479754174d6 100644 (file)
@@ -185,36 +185,36 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 9faa86da2f389fee111329ebadaf49f881660600..65bbe57122a6da1ab50f83ce305bd143dbc02a66 100644 (file)
@@ -165,26 +165,26 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index eafbb8e1488db1a36d3646e0994574faa6698406..8da60275473f67e9be17a901f8d59003c08003b3 100644 (file)
@@ -145,16 +145,16 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index c8aaf50216c4144d0b4b62646c1f73d5ac790025..b98079cff1a4e3c75b868bc809c3e6297f7dd264 100644 (file)
@@ -127,7 +127,7 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index cac3e38cd3fdf991f36347543b57fc0589df7903..40c0e24b36a63e069a076710a5d56a964c4ad836 100644 (file)
@@ -303,95 +303,95 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher2$percent, y=leecher2$dlspeed, label="Leecher 2"), size=1) +
-geom_point(aes(x=leecher3$percent, y=leecher3$dlspeed, label="Leecher 3"), size=1) +
-geom_point(aes(x=leecher4$percent, y=leecher4$dlspeed, label="Leecher 4"), size=1) +
-geom_point(aes(x=leecher5$percent, y=leecher5$dlspeed, label="Leecher 5"), size=1) +
-geom_point(aes(x=leecher6$percent, y=leecher6$dlspeed, label="Leecher 6"), size=1) +
-geom_point(aes(x=leecher7$percent, y=leecher7$dlspeed, label="Leecher 7"), size=1) +
-geom_point(aes(x=leecher8$percent, y=leecher8$dlspeed, label="Leecher 8"), size=1) +
-geom_point(aes(x=leecher9$percent, y=leecher9$dlspeed, label="Leecher 9"), size=1) +
-geom_point(aes(x=leecher10$percent, y=leecher10$dlspeed, label="Leecher 10"), size=1) +
-geom_point(aes(x=leecher11$percent, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
-geom_point(aes(x=leecher12$percent, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
-geom_point(aes(x=leecher13$percent, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
-geom_point(aes(x=leecher14$percent, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
-geom_point(aes(x=leecher15$percent, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
-geom_point(aes(x=leecher16$percent, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
-geom_point(aes(x=leecher17$percent, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
-geom_point(aes(x=leecher18$percent, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
-geom_point(aes(x=leecher19$percent, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
-geom_point(aes(x=leecher20$percent, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
-geom_point(aes(x=leecher21$percent, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
-geom_point(aes(x=leecher22$percent, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
-geom_point(aes(x=leecher23$percent, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
-geom_point(aes(x=leecher24$percent, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
-geom_point(aes(x=leecher25$percent, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
-geom_point(aes(x=leecher26$percent, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
-geom_point(aes(x=leecher27$percent, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
-geom_point(aes(x=leecher28$percent, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
-geom_point(aes(x=leecher29$percent, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
-geom_point(aes(x=leecher30$percent, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher2$time, y=leecher2$dlspeed, label="Leecher 2"), size=1) +
+geom_point(aes(x=leecher3$time, y=leecher3$dlspeed, label="Leecher 3"), size=1) +
+geom_point(aes(x=leecher4$time, y=leecher4$dlspeed, label="Leecher 4"), size=1) +
+geom_point(aes(x=leecher5$time, y=leecher5$dlspeed, label="Leecher 5"), size=1) +
+geom_point(aes(x=leecher6$time, y=leecher6$dlspeed, label="Leecher 6"), size=1) +
+geom_point(aes(x=leecher7$time, y=leecher7$dlspeed, label="Leecher 7"), size=1) +
+geom_point(aes(x=leecher8$time, y=leecher8$dlspeed, label="Leecher 8"), size=1) +
+geom_point(aes(x=leecher9$time, y=leecher9$dlspeed, label="Leecher 9"), size=1) +
+geom_point(aes(x=leecher10$time, y=leecher10$dlspeed, label="Leecher 10"), size=1) +
+geom_point(aes(x=leecher11$time, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
+geom_point(aes(x=leecher12$time, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
+geom_point(aes(x=leecher13$time, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
+geom_point(aes(x=leecher14$time, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
+geom_point(aes(x=leecher15$time, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
+geom_point(aes(x=leecher16$time, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
+geom_point(aes(x=leecher17$time, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
+geom_point(aes(x=leecher18$time, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
+geom_point(aes(x=leecher19$time, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
+geom_point(aes(x=leecher20$time, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
+geom_point(aes(x=leecher21$time, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
+geom_point(aes(x=leecher22$time, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
+geom_point(aes(x=leecher23$time, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
+geom_point(aes(x=leecher24$time, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
+geom_point(aes(x=leecher25$time, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
+geom_point(aes(x=leecher26$time, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
+geom_point(aes(x=leecher27$time, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
+geom_point(aes(x=leecher28$time, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
+geom_point(aes(x=leecher29$time, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
+geom_point(aes(x=leecher30$time, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  16), breaks=seq(0,  16, 0.5)) +
index 78ae6195df8b6ab7fe56225333d4bb752553c05e..1a840be32970737933f8f0e5ef534dea921f22cd 100644 (file)
@@ -285,86 +285,86 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher11$percent, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
-geom_point(aes(x=leecher12$percent, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
-geom_point(aes(x=leecher13$percent, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
-geom_point(aes(x=leecher14$percent, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
-geom_point(aes(x=leecher15$percent, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
-geom_point(aes(x=leecher16$percent, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
-geom_point(aes(x=leecher17$percent, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
-geom_point(aes(x=leecher18$percent, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
-geom_point(aes(x=leecher19$percent, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
-geom_point(aes(x=leecher20$percent, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
-geom_point(aes(x=leecher21$percent, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
-geom_point(aes(x=leecher22$percent, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
-geom_point(aes(x=leecher23$percent, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
-geom_point(aes(x=leecher24$percent, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
-geom_point(aes(x=leecher25$percent, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
-geom_point(aes(x=leecher26$percent, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
-geom_point(aes(x=leecher27$percent, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
-geom_point(aes(x=leecher28$percent, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
-geom_point(aes(x=leecher29$percent, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
-geom_point(aes(x=leecher30$percent, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher11$time, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
+geom_point(aes(x=leecher12$time, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
+geom_point(aes(x=leecher13$time, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
+geom_point(aes(x=leecher14$time, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
+geom_point(aes(x=leecher15$time, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
+geom_point(aes(x=leecher16$time, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
+geom_point(aes(x=leecher17$time, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
+geom_point(aes(x=leecher18$time, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
+geom_point(aes(x=leecher19$time, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
+geom_point(aes(x=leecher20$time, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
+geom_point(aes(x=leecher21$time, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
+geom_point(aes(x=leecher22$time, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
+geom_point(aes(x=leecher23$time, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
+geom_point(aes(x=leecher24$time, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
+geom_point(aes(x=leecher25$time, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
+geom_point(aes(x=leecher26$time, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
+geom_point(aes(x=leecher27$time, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
+geom_point(aes(x=leecher28$time, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
+geom_point(aes(x=leecher29$time, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
+geom_point(aes(x=leecher30$time, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  16), breaks=seq(0,  16, 0.5)) +
index 8735d4154e2907897bcf1684ce7083cfba498ae6..7d9476de950f2093890df9f5ed75bebf40c997c9 100644 (file)
@@ -265,76 +265,76 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher21$percent, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
-geom_point(aes(x=leecher22$percent, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
-geom_point(aes(x=leecher23$percent, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
-geom_point(aes(x=leecher24$percent, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
-geom_point(aes(x=leecher25$percent, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
-geom_point(aes(x=leecher26$percent, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
-geom_point(aes(x=leecher27$percent, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
-geom_point(aes(x=leecher28$percent, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
-geom_point(aes(x=leecher29$percent, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
-geom_point(aes(x=leecher30$percent, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher21$time, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
+geom_point(aes(x=leecher22$time, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
+geom_point(aes(x=leecher23$time, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
+geom_point(aes(x=leecher24$time, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
+geom_point(aes(x=leecher25$time, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
+geom_point(aes(x=leecher26$time, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
+geom_point(aes(x=leecher27$time, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
+geom_point(aes(x=leecher28$time, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
+geom_point(aes(x=leecher29$time, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
+geom_point(aes(x=leecher30$time, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  16), breaks=seq(0,  16, 0.5)) +
index cfe2213aac8dbad707e40db590b50c1eaf46e0e8..1ffce694fde55dcc2a0e6482e98caaf456287046 100644 (file)
@@ -245,66 +245,66 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  16), breaks=seq(0,  16, 0.5)) +
index d611574db0356c4d68d27bdd8dbe75c5241cf697..6d1578a6943f0c284f32b4ca7714c5550b32f181 100644 (file)
@@ -225,56 +225,56 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  16), breaks=seq(0,  16, 0.5)) +
index a1c4be0ba7c129ffda7ab75b8f1ab72d757e2255..2cdbc1c13fe8f309e804cb32063f6ca4162e589e 100644 (file)
@@ -215,51 +215,51 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  16), breaks=seq(0,  16, 0.5)) +
index c3f3aed7626e7bbd78b64adce2ad045b7f727054..647b355250c249acf39e321cdfbb0427becf09f4 100644 (file)
@@ -205,46 +205,46 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  16), breaks=seq(0,  16, 0.5)) +
index 45c5438cfa3244ad561cb1fcc0dcc5df461f051d..b8f01d5f1b9d3c2fb92a96f0f5574711570e5f48 100644 (file)
@@ -185,36 +185,36 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  16), breaks=seq(0,  16, 0.5)) +
index 0e4d04709a60bb321aedf9e2f047ea2fcc28ccb1..372108fc696e3bb4fd66a4b0cd39d8872e974831 100644 (file)
@@ -165,26 +165,26 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  16), breaks=seq(0,  16, 0.5)) +
index 7465f7b638766f26357f55a178b0303061b6f4c6..356711d403d4c89a17392d98b97590504ae94ccd 100644 (file)
@@ -145,16 +145,16 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  16), breaks=seq(0,  16, 0.5)) +
index 70b2c4bb97aff8ae3ee89391bdd73f1c2b9b4e67..d79d18661450a350553fe05da9dbbb7287f51420 100644 (file)
@@ -127,7 +127,7 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  16), breaks=seq(0,  16, 0.5)) +
index bac04f9a9b601d96731202274dd6170740627ee2..312e21958ddb9b8a1cbd0e24e4f3ac94f9f8f96c 100644 (file)
@@ -243,75 +243,75 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher2$percent, y=leecher2$dlspeed, label="Leecher 2"), size=1) +
-geom_point(aes(x=leecher3$percent, y=leecher3$dlspeed, label="Leecher 3"), size=1) +
-geom_point(aes(x=leecher4$percent, y=leecher4$dlspeed, label="Leecher 4"), size=1) +
-geom_point(aes(x=leecher5$percent, y=leecher5$dlspeed, label="Leecher 5"), size=1) +
-geom_point(aes(x=leecher6$percent, y=leecher6$dlspeed, label="Leecher 6"), size=1) +
-geom_point(aes(x=leecher7$percent, y=leecher7$dlspeed, label="Leecher 7"), size=1) +
-geom_point(aes(x=leecher8$percent, y=leecher8$dlspeed, label="Leecher 8"), size=1) +
-geom_point(aes(x=leecher9$percent, y=leecher9$dlspeed, label="Leecher 9"), size=1) +
-geom_point(aes(x=leecher10$percent, y=leecher10$dlspeed, label="Leecher 10"), size=1) +
-geom_point(aes(x=leecher11$percent, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
-geom_point(aes(x=leecher12$percent, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
-geom_point(aes(x=leecher13$percent, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
-geom_point(aes(x=leecher14$percent, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
-geom_point(aes(x=leecher15$percent, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
-geom_point(aes(x=leecher16$percent, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
-geom_point(aes(x=leecher17$percent, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
-geom_point(aes(x=leecher18$percent, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
-geom_point(aes(x=leecher19$percent, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
-geom_point(aes(x=leecher20$percent, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
-geom_point(aes(x=leecher21$percent, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
-geom_point(aes(x=leecher22$percent, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
-geom_point(aes(x=leecher23$percent, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
-geom_point(aes(x=leecher24$percent, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
-geom_point(aes(x=leecher25$percent, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
-geom_point(aes(x=leecher26$percent, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
-geom_point(aes(x=leecher27$percent, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
-geom_point(aes(x=leecher28$percent, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
-geom_point(aes(x=leecher29$percent, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
-geom_point(aes(x=leecher30$percent, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher2$time, y=leecher2$dlspeed, label="Leecher 2"), size=1) +
+geom_point(aes(x=leecher3$time, y=leecher3$dlspeed, label="Leecher 3"), size=1) +
+geom_point(aes(x=leecher4$time, y=leecher4$dlspeed, label="Leecher 4"), size=1) +
+geom_point(aes(x=leecher5$time, y=leecher5$dlspeed, label="Leecher 5"), size=1) +
+geom_point(aes(x=leecher6$time, y=leecher6$dlspeed, label="Leecher 6"), size=1) +
+geom_point(aes(x=leecher7$time, y=leecher7$dlspeed, label="Leecher 7"), size=1) +
+geom_point(aes(x=leecher8$time, y=leecher8$dlspeed, label="Leecher 8"), size=1) +
+geom_point(aes(x=leecher9$time, y=leecher9$dlspeed, label="Leecher 9"), size=1) +
+geom_point(aes(x=leecher10$time, y=leecher10$dlspeed, label="Leecher 10"), size=1) +
+geom_point(aes(x=leecher11$time, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
+geom_point(aes(x=leecher12$time, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
+geom_point(aes(x=leecher13$time, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
+geom_point(aes(x=leecher14$time, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
+geom_point(aes(x=leecher15$time, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
+geom_point(aes(x=leecher16$time, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
+geom_point(aes(x=leecher17$time, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
+geom_point(aes(x=leecher18$time, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
+geom_point(aes(x=leecher19$time, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
+geom_point(aes(x=leecher20$time, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
+geom_point(aes(x=leecher21$time, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
+geom_point(aes(x=leecher22$time, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
+geom_point(aes(x=leecher23$time, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
+geom_point(aes(x=leecher24$time, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
+geom_point(aes(x=leecher25$time, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
+geom_point(aes(x=leecher26$time, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
+geom_point(aes(x=leecher27$time, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
+geom_point(aes(x=leecher28$time, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
+geom_point(aes(x=leecher29$time, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
+geom_point(aes(x=leecher30$time, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 588cba322f5f7a2c7df24053d79f902f48ec65b1..6b322956ba3da12ceb1015a77b04d5e85e1d2172 100644 (file)
@@ -225,66 +225,66 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher11$percent, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
-geom_point(aes(x=leecher12$percent, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
-geom_point(aes(x=leecher13$percent, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
-geom_point(aes(x=leecher14$percent, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
-geom_point(aes(x=leecher15$percent, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
-geom_point(aes(x=leecher16$percent, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
-geom_point(aes(x=leecher17$percent, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
-geom_point(aes(x=leecher18$percent, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
-geom_point(aes(x=leecher19$percent, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
-geom_point(aes(x=leecher20$percent, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
-geom_point(aes(x=leecher21$percent, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
-geom_point(aes(x=leecher22$percent, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
-geom_point(aes(x=leecher23$percent, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
-geom_point(aes(x=leecher24$percent, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
-geom_point(aes(x=leecher25$percent, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
-geom_point(aes(x=leecher26$percent, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
-geom_point(aes(x=leecher27$percent, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
-geom_point(aes(x=leecher28$percent, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
-geom_point(aes(x=leecher29$percent, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
-geom_point(aes(x=leecher30$percent, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher11$time, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
+geom_point(aes(x=leecher12$time, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
+geom_point(aes(x=leecher13$time, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
+geom_point(aes(x=leecher14$time, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
+geom_point(aes(x=leecher15$time, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
+geom_point(aes(x=leecher16$time, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
+geom_point(aes(x=leecher17$time, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
+geom_point(aes(x=leecher18$time, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
+geom_point(aes(x=leecher19$time, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
+geom_point(aes(x=leecher20$time, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
+geom_point(aes(x=leecher21$time, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
+geom_point(aes(x=leecher22$time, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
+geom_point(aes(x=leecher23$time, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
+geom_point(aes(x=leecher24$time, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
+geom_point(aes(x=leecher25$time, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
+geom_point(aes(x=leecher26$time, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
+geom_point(aes(x=leecher27$time, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
+geom_point(aes(x=leecher28$time, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
+geom_point(aes(x=leecher29$time, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
+geom_point(aes(x=leecher30$time, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 78e0c6849ca953211192915613492144534931ef..140cb8ae79828d6c908403cfaba9e40fd80bedd8 100644 (file)
@@ -205,56 +205,56 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher21$percent, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
-geom_point(aes(x=leecher22$percent, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
-geom_point(aes(x=leecher23$percent, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
-geom_point(aes(x=leecher24$percent, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
-geom_point(aes(x=leecher25$percent, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
-geom_point(aes(x=leecher26$percent, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
-geom_point(aes(x=leecher27$percent, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
-geom_point(aes(x=leecher28$percent, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
-geom_point(aes(x=leecher29$percent, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
-geom_point(aes(x=leecher30$percent, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher21$time, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
+geom_point(aes(x=leecher22$time, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
+geom_point(aes(x=leecher23$time, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
+geom_point(aes(x=leecher24$time, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
+geom_point(aes(x=leecher25$time, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
+geom_point(aes(x=leecher26$time, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
+geom_point(aes(x=leecher27$time, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
+geom_point(aes(x=leecher28$time, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
+geom_point(aes(x=leecher29$time, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
+geom_point(aes(x=leecher30$time, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 48ac721be735aa8f2dbbd8025cdc915347f9d57e..e7f666e6ee3bef200b6f5bb739e2e9281ecca45e 100644 (file)
@@ -185,46 +185,46 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index ec9a4ef65a030fd492e400b6a4461718c25cff28..caf8be20da2a359f4c5e978ec8307e006a09d29c 100644 (file)
@@ -175,41 +175,41 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index cd4dc49974929b7e9680406f3aac7d37faa8cdff..bfc2547f3d58485c641fcef4db0ca379e943101d 100644 (file)
@@ -165,36 +165,36 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index aa0a29260f44dc9607201d53702e87877f7618a2..bbeb0dc98eb2bfe7bd84de4ffaf532dac1e7ae3d 100644 (file)
@@ -145,26 +145,26 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 994c3e5a36bf935d2c2f158843088a3d8f96ac2b..2a48e80cb11a4c96e99e60855d952542c909a272 100644 (file)
@@ -125,16 +125,16 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 80c8eda970123f21dfedea6907a368bb18903adc..fbbecf6807b177bc63b323287bf64c3cf6fce295 100644 (file)
@@ -107,7 +107,7 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index a6749ab37fac48eb2896d436afd89ddb0a5ebbc4..8e4d56264e0d4d61a26df814903faace8e9b8b06 100644 (file)
@@ -183,55 +183,55 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher2$percent, y=leecher2$dlspeed, label="Leecher 2"), size=1) +
-geom_point(aes(x=leecher3$percent, y=leecher3$dlspeed, label="Leecher 3"), size=1) +
-geom_point(aes(x=leecher4$percent, y=leecher4$dlspeed, label="Leecher 4"), size=1) +
-geom_point(aes(x=leecher5$percent, y=leecher5$dlspeed, label="Leecher 5"), size=1) +
-geom_point(aes(x=leecher6$percent, y=leecher6$dlspeed, label="Leecher 6"), size=1) +
-geom_point(aes(x=leecher7$percent, y=leecher7$dlspeed, label="Leecher 7"), size=1) +
-geom_point(aes(x=leecher8$percent, y=leecher8$dlspeed, label="Leecher 8"), size=1) +
-geom_point(aes(x=leecher9$percent, y=leecher9$dlspeed, label="Leecher 9"), size=1) +
-geom_point(aes(x=leecher10$percent, y=leecher10$dlspeed, label="Leecher 10"), size=1) +
-geom_point(aes(x=leecher11$percent, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
-geom_point(aes(x=leecher12$percent, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
-geom_point(aes(x=leecher13$percent, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
-geom_point(aes(x=leecher14$percent, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
-geom_point(aes(x=leecher15$percent, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
-geom_point(aes(x=leecher16$percent, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
-geom_point(aes(x=leecher17$percent, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
-geom_point(aes(x=leecher18$percent, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
-geom_point(aes(x=leecher19$percent, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
-geom_point(aes(x=leecher20$percent, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
-geom_point(aes(x=leecher21$percent, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
-geom_point(aes(x=leecher22$percent, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
-geom_point(aes(x=leecher23$percent, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
-geom_point(aes(x=leecher24$percent, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
-geom_point(aes(x=leecher25$percent, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
-geom_point(aes(x=leecher26$percent, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
-geom_point(aes(x=leecher27$percent, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
-geom_point(aes(x=leecher28$percent, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
-geom_point(aes(x=leecher29$percent, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
-geom_point(aes(x=leecher30$percent, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher2$time, y=leecher2$dlspeed, label="Leecher 2"), size=1) +
+geom_point(aes(x=leecher3$time, y=leecher3$dlspeed, label="Leecher 3"), size=1) +
+geom_point(aes(x=leecher4$time, y=leecher4$dlspeed, label="Leecher 4"), size=1) +
+geom_point(aes(x=leecher5$time, y=leecher5$dlspeed, label="Leecher 5"), size=1) +
+geom_point(aes(x=leecher6$time, y=leecher6$dlspeed, label="Leecher 6"), size=1) +
+geom_point(aes(x=leecher7$time, y=leecher7$dlspeed, label="Leecher 7"), size=1) +
+geom_point(aes(x=leecher8$time, y=leecher8$dlspeed, label="Leecher 8"), size=1) +
+geom_point(aes(x=leecher9$time, y=leecher9$dlspeed, label="Leecher 9"), size=1) +
+geom_point(aes(x=leecher10$time, y=leecher10$dlspeed, label="Leecher 10"), size=1) +
+geom_point(aes(x=leecher11$time, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
+geom_point(aes(x=leecher12$time, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
+geom_point(aes(x=leecher13$time, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
+geom_point(aes(x=leecher14$time, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
+geom_point(aes(x=leecher15$time, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
+geom_point(aes(x=leecher16$time, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
+geom_point(aes(x=leecher17$time, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
+geom_point(aes(x=leecher18$time, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
+geom_point(aes(x=leecher19$time, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
+geom_point(aes(x=leecher20$time, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
+geom_point(aes(x=leecher21$time, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
+geom_point(aes(x=leecher22$time, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
+geom_point(aes(x=leecher23$time, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
+geom_point(aes(x=leecher24$time, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
+geom_point(aes(x=leecher25$time, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
+geom_point(aes(x=leecher26$time, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
+geom_point(aes(x=leecher27$time, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
+geom_point(aes(x=leecher28$time, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
+geom_point(aes(x=leecher29$time, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
+geom_point(aes(x=leecher30$time, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index e276a6bc9e1782ebf9c4c57d4f6e155ec4ff2e89..49161e10ba89ae3acb48b9a5daf99f2914b056c0 100644 (file)
@@ -165,46 +165,46 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher11$percent, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
-geom_point(aes(x=leecher12$percent, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
-geom_point(aes(x=leecher13$percent, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
-geom_point(aes(x=leecher14$percent, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
-geom_point(aes(x=leecher15$percent, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
-geom_point(aes(x=leecher16$percent, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
-geom_point(aes(x=leecher17$percent, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
-geom_point(aes(x=leecher18$percent, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
-geom_point(aes(x=leecher19$percent, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
-geom_point(aes(x=leecher20$percent, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
-geom_point(aes(x=leecher21$percent, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
-geom_point(aes(x=leecher22$percent, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
-geom_point(aes(x=leecher23$percent, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
-geom_point(aes(x=leecher24$percent, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
-geom_point(aes(x=leecher25$percent, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
-geom_point(aes(x=leecher26$percent, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
-geom_point(aes(x=leecher27$percent, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
-geom_point(aes(x=leecher28$percent, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
-geom_point(aes(x=leecher29$percent, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
-geom_point(aes(x=leecher30$percent, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher11$time, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
+geom_point(aes(x=leecher12$time, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
+geom_point(aes(x=leecher13$time, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
+geom_point(aes(x=leecher14$time, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
+geom_point(aes(x=leecher15$time, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
+geom_point(aes(x=leecher16$time, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
+geom_point(aes(x=leecher17$time, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
+geom_point(aes(x=leecher18$time, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
+geom_point(aes(x=leecher19$time, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
+geom_point(aes(x=leecher20$time, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
+geom_point(aes(x=leecher21$time, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
+geom_point(aes(x=leecher22$time, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
+geom_point(aes(x=leecher23$time, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
+geom_point(aes(x=leecher24$time, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
+geom_point(aes(x=leecher25$time, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
+geom_point(aes(x=leecher26$time, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
+geom_point(aes(x=leecher27$time, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
+geom_point(aes(x=leecher28$time, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
+geom_point(aes(x=leecher29$time, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
+geom_point(aes(x=leecher30$time, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 8b7b319f9aeeb3e3a9fad8c16264f83f97f7e1dc..b6600f14321ef3d34b78c7c8b1bd6cbb086fad95 100644 (file)
@@ -145,36 +145,36 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher21$percent, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
-geom_point(aes(x=leecher22$percent, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
-geom_point(aes(x=leecher23$percent, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
-geom_point(aes(x=leecher24$percent, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
-geom_point(aes(x=leecher25$percent, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
-geom_point(aes(x=leecher26$percent, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
-geom_point(aes(x=leecher27$percent, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
-geom_point(aes(x=leecher28$percent, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
-geom_point(aes(x=leecher29$percent, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
-geom_point(aes(x=leecher30$percent, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher21$time, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
+geom_point(aes(x=leecher22$time, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
+geom_point(aes(x=leecher23$time, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
+geom_point(aes(x=leecher24$time, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
+geom_point(aes(x=leecher25$time, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
+geom_point(aes(x=leecher26$time, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
+geom_point(aes(x=leecher27$time, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
+geom_point(aes(x=leecher28$time, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
+geom_point(aes(x=leecher29$time, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
+geom_point(aes(x=leecher30$time, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 45597167fac6093a6387bafb352067491d3ef13f..87e087c6f6285856d37fe2a79e7e15a110707802 100644 (file)
@@ -85,16 +85,16 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher21$percent, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
-geom_point(aes(x=leecher22$percent, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
-geom_point(aes(x=leecher23$percent, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
-geom_point(aes(x=leecher24$percent, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
-geom_point(aes(x=leecher25$percent, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
-geom_point(aes(x=leecher26$percent, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
-geom_point(aes(x=leecher27$percent, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
-geom_point(aes(x=leecher28$percent, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
-geom_point(aes(x=leecher29$percent, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
-geom_point(aes(x=leecher30$percent, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
+geom_point(aes(x=leecher21$time, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
+geom_point(aes(x=leecher22$time, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
+geom_point(aes(x=leecher23$time, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
+geom_point(aes(x=leecher24$time, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
+geom_point(aes(x=leecher25$time, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
+geom_point(aes(x=leecher26$time, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
+geom_point(aes(x=leecher27$time, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
+geom_point(aes(x=leecher28$time, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
+geom_point(aes(x=leecher29$time, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
+geom_point(aes(x=leecher30$time, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 7c9b5145f88f1ca5e9a230a1988d30332d422484..c4582302d1b0d2237eec35d81b89e1118cbf8d61 100644 (file)
@@ -67,7 +67,7 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher30$percent, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
+geom_point(aes(x=leecher30$time, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 70a38c7c23eaffbc36560b06ada3c103a0aa2764..6f951ef3c28316f040532bc54b79c4ba2dcb53b8 100644 (file)
@@ -105,16 +105,16 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 421e21ed1ab7d227f95a0859752f0c318d361ab7..22431603f101984122289199c91f9635b93f96dc 100644 (file)
@@ -87,7 +87,7 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index b4d1300c7f80efb7ee6bd6d4906ac7536a9b532e..4f1ae335e2da4cf8771f762f74bd30880e8d81c2 100644 (file)
@@ -123,35 +123,35 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher2$percent, y=leecher2$dlspeed, label="Leecher 2"), size=1) +
-geom_point(aes(x=leecher3$percent, y=leecher3$dlspeed, label="Leecher 3"), size=1) +
-geom_point(aes(x=leecher4$percent, y=leecher4$dlspeed, label="Leecher 4"), size=1) +
-geom_point(aes(x=leecher5$percent, y=leecher5$dlspeed, label="Leecher 5"), size=1) +
-geom_point(aes(x=leecher6$percent, y=leecher6$dlspeed, label="Leecher 6"), size=1) +
-geom_point(aes(x=leecher7$percent, y=leecher7$dlspeed, label="Leecher 7"), size=1) +
-geom_point(aes(x=leecher8$percent, y=leecher8$dlspeed, label="Leecher 8"), size=1) +
-geom_point(aes(x=leecher9$percent, y=leecher9$dlspeed, label="Leecher 9"), size=1) +
-geom_point(aes(x=leecher10$percent, y=leecher10$dlspeed, label="Leecher 10"), size=1) +
-geom_point(aes(x=leecher11$percent, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
-geom_point(aes(x=leecher12$percent, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
-geom_point(aes(x=leecher13$percent, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
-geom_point(aes(x=leecher14$percent, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
-geom_point(aes(x=leecher15$percent, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
-geom_point(aes(x=leecher16$percent, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
-geom_point(aes(x=leecher17$percent, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
-geom_point(aes(x=leecher18$percent, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
-geom_point(aes(x=leecher19$percent, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
-geom_point(aes(x=leecher20$percent, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
-geom_point(aes(x=leecher21$percent, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
-geom_point(aes(x=leecher22$percent, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
-geom_point(aes(x=leecher23$percent, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
-geom_point(aes(x=leecher24$percent, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
-geom_point(aes(x=leecher25$percent, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
-geom_point(aes(x=leecher26$percent, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
-geom_point(aes(x=leecher27$percent, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
-geom_point(aes(x=leecher28$percent, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
-geom_point(aes(x=leecher29$percent, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
-geom_point(aes(x=leecher30$percent, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
+geom_point(aes(x=leecher2$time, y=leecher2$dlspeed, label="Leecher 2"), size=1) +
+geom_point(aes(x=leecher3$time, y=leecher3$dlspeed, label="Leecher 3"), size=1) +
+geom_point(aes(x=leecher4$time, y=leecher4$dlspeed, label="Leecher 4"), size=1) +
+geom_point(aes(x=leecher5$time, y=leecher5$dlspeed, label="Leecher 5"), size=1) +
+geom_point(aes(x=leecher6$time, y=leecher6$dlspeed, label="Leecher 6"), size=1) +
+geom_point(aes(x=leecher7$time, y=leecher7$dlspeed, label="Leecher 7"), size=1) +
+geom_point(aes(x=leecher8$time, y=leecher8$dlspeed, label="Leecher 8"), size=1) +
+geom_point(aes(x=leecher9$time, y=leecher9$dlspeed, label="Leecher 9"), size=1) +
+geom_point(aes(x=leecher10$time, y=leecher10$dlspeed, label="Leecher 10"), size=1) +
+geom_point(aes(x=leecher11$time, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
+geom_point(aes(x=leecher12$time, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
+geom_point(aes(x=leecher13$time, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
+geom_point(aes(x=leecher14$time, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
+geom_point(aes(x=leecher15$time, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
+geom_point(aes(x=leecher16$time, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
+geom_point(aes(x=leecher17$time, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
+geom_point(aes(x=leecher18$time, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
+geom_point(aes(x=leecher19$time, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
+geom_point(aes(x=leecher20$time, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
+geom_point(aes(x=leecher21$time, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
+geom_point(aes(x=leecher22$time, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
+geom_point(aes(x=leecher23$time, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
+geom_point(aes(x=leecher24$time, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
+geom_point(aes(x=leecher25$time, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
+geom_point(aes(x=leecher26$time, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
+geom_point(aes(x=leecher27$time, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
+geom_point(aes(x=leecher28$time, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
+geom_point(aes(x=leecher29$time, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
+geom_point(aes(x=leecher30$time, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index e7b19a2091de9ad35043fd58d4502bdaf6cdec8b..567ac018f4577f50332ba52fabdb27f47c933b75 100644 (file)
@@ -105,26 +105,26 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher11$percent, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
-geom_point(aes(x=leecher12$percent, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
-geom_point(aes(x=leecher13$percent, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
-geom_point(aes(x=leecher14$percent, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
-geom_point(aes(x=leecher15$percent, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
-geom_point(aes(x=leecher16$percent, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
-geom_point(aes(x=leecher17$percent, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
-geom_point(aes(x=leecher18$percent, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
-geom_point(aes(x=leecher19$percent, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
-geom_point(aes(x=leecher20$percent, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
-geom_point(aes(x=leecher21$percent, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
-geom_point(aes(x=leecher22$percent, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
-geom_point(aes(x=leecher23$percent, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
-geom_point(aes(x=leecher24$percent, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
-geom_point(aes(x=leecher25$percent, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
-geom_point(aes(x=leecher26$percent, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
-geom_point(aes(x=leecher27$percent, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
-geom_point(aes(x=leecher28$percent, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
-geom_point(aes(x=leecher29$percent, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
-geom_point(aes(x=leecher30$percent, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
+geom_point(aes(x=leecher11$time, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
+geom_point(aes(x=leecher12$time, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
+geom_point(aes(x=leecher13$time, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
+geom_point(aes(x=leecher14$time, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
+geom_point(aes(x=leecher15$time, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
+geom_point(aes(x=leecher16$time, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
+geom_point(aes(x=leecher17$time, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
+geom_point(aes(x=leecher18$time, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
+geom_point(aes(x=leecher19$time, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
+geom_point(aes(x=leecher20$time, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
+geom_point(aes(x=leecher21$time, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
+geom_point(aes(x=leecher22$time, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
+geom_point(aes(x=leecher23$time, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
+geom_point(aes(x=leecher24$time, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
+geom_point(aes(x=leecher25$time, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
+geom_point(aes(x=leecher26$time, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
+geom_point(aes(x=leecher27$time, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
+geom_point(aes(x=leecher28$time, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
+geom_point(aes(x=leecher29$time, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
+geom_point(aes(x=leecher30$time, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 86c2c17c81e4e13a0c4ae9d5565732e1651aaa54..d7e4bf0b44a4d1fd6f25aabb891fce62c74561a6 100644 (file)
@@ -95,21 +95,21 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher16$percent, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
-geom_point(aes(x=leecher17$percent, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
-geom_point(aes(x=leecher18$percent, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
-geom_point(aes(x=leecher19$percent, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
-geom_point(aes(x=leecher20$percent, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
-geom_point(aes(x=leecher21$percent, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
-geom_point(aes(x=leecher22$percent, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
-geom_point(aes(x=leecher23$percent, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
-geom_point(aes(x=leecher24$percent, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
-geom_point(aes(x=leecher25$percent, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
-geom_point(aes(x=leecher26$percent, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
-geom_point(aes(x=leecher27$percent, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
-geom_point(aes(x=leecher28$percent, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
-geom_point(aes(x=leecher29$percent, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
-geom_point(aes(x=leecher30$percent, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
+geom_point(aes(x=leecher16$time, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
+geom_point(aes(x=leecher17$time, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
+geom_point(aes(x=leecher18$time, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
+geom_point(aes(x=leecher19$time, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
+geom_point(aes(x=leecher20$time, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
+geom_point(aes(x=leecher21$time, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
+geom_point(aes(x=leecher22$time, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
+geom_point(aes(x=leecher23$time, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
+geom_point(aes(x=leecher24$time, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
+geom_point(aes(x=leecher25$time, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
+geom_point(aes(x=leecher26$time, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
+geom_point(aes(x=leecher27$time, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
+geom_point(aes(x=leecher28$time, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
+geom_point(aes(x=leecher29$time, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
+geom_point(aes(x=leecher30$time, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 8ac3654b8a95e0c7ef233a400fa56b0db58648e9..99ace2c6bed3fd53bbe7cb1afc6361bada5db820 100644 (file)
@@ -63,15 +63,15 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher2$percent, y=leecher2$dlspeed, label="Leecher 2"), size=1) +
-geom_point(aes(x=leecher3$percent, y=leecher3$dlspeed, label="Leecher 3"), size=1) +
-geom_point(aes(x=leecher4$percent, y=leecher4$dlspeed, label="Leecher 4"), size=1) +
-geom_point(aes(x=leecher5$percent, y=leecher5$dlspeed, label="Leecher 5"), size=1) +
-geom_point(aes(x=leecher6$percent, y=leecher6$dlspeed, label="Leecher 6"), size=1) +
-geom_point(aes(x=leecher7$percent, y=leecher7$dlspeed, label="Leecher 7"), size=1) +
-geom_point(aes(x=leecher8$percent, y=leecher8$dlspeed, label="Leecher 8"), size=1) +
-geom_point(aes(x=leecher9$percent, y=leecher9$dlspeed, label="Leecher 9"), size=1) +
-geom_point(aes(x=leecher10$percent, y=leecher10$dlspeed, label="Leecher 10"), size=1) +
+geom_point(aes(x=leecher2$time, y=leecher2$dlspeed, label="Leecher 2"), size=1) +
+geom_point(aes(x=leecher3$time, y=leecher3$dlspeed, label="Leecher 3"), size=1) +
+geom_point(aes(x=leecher4$time, y=leecher4$dlspeed, label="Leecher 4"), size=1) +
+geom_point(aes(x=leecher5$time, y=leecher5$dlspeed, label="Leecher 5"), size=1) +
+geom_point(aes(x=leecher6$time, y=leecher6$dlspeed, label="Leecher 6"), size=1) +
+geom_point(aes(x=leecher7$time, y=leecher7$dlspeed, label="Leecher 7"), size=1) +
+geom_point(aes(x=leecher8$time, y=leecher8$dlspeed, label="Leecher 8"), size=1) +
+geom_point(aes(x=leecher9$time, y=leecher9$dlspeed, label="Leecher 9"), size=1) +
+geom_point(aes(x=leecher10$time, y=leecher10$dlspeed, label="Leecher 10"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 9f324cf70e7d47d4a947c3ff68cb5d4e55fa1d3d..a2853c66b27c3dc2c06066b48aa5ba784146206b 100644 (file)
@@ -61,14 +61,14 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher3$percent, y=leecher3$dlspeed, label="Leecher 3"), size=1) +
-geom_point(aes(x=leecher4$percent, y=leecher4$dlspeed, label="Leecher 4"), size=1) +
-geom_point(aes(x=leecher5$percent, y=leecher5$dlspeed, label="Leecher 5"), size=1) +
-geom_point(aes(x=leecher6$percent, y=leecher6$dlspeed, label="Leecher 6"), size=1) +
-geom_point(aes(x=leecher7$percent, y=leecher7$dlspeed, label="Leecher 7"), size=1) +
-geom_point(aes(x=leecher8$percent, y=leecher8$dlspeed, label="Leecher 8"), size=1) +
-geom_point(aes(x=leecher9$percent, y=leecher9$dlspeed, label="Leecher 9"), size=1) +
-geom_point(aes(x=leecher10$percent, y=leecher10$dlspeed, label="Leecher 10"), size=1) +
+geom_point(aes(x=leecher3$time, y=leecher3$dlspeed, label="Leecher 3"), size=1) +
+geom_point(aes(x=leecher4$time, y=leecher4$dlspeed, label="Leecher 4"), size=1) +
+geom_point(aes(x=leecher5$time, y=leecher5$dlspeed, label="Leecher 5"), size=1) +
+geom_point(aes(x=leecher6$time, y=leecher6$dlspeed, label="Leecher 6"), size=1) +
+geom_point(aes(x=leecher7$time, y=leecher7$dlspeed, label="Leecher 7"), size=1) +
+geom_point(aes(x=leecher8$time, y=leecher8$dlspeed, label="Leecher 8"), size=1) +
+geom_point(aes(x=leecher9$time, y=leecher9$dlspeed, label="Leecher 9"), size=1) +
+geom_point(aes(x=leecher10$time, y=leecher10$dlspeed, label="Leecher 10"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index c5f2f7c68efc8a162733bdcbb472fa3d5ecb19d1..620e799e65e13232251bae798984947fb2d994b9 100644 (file)
@@ -59,13 +59,13 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher4$percent, y=leecher4$dlspeed, label="Leecher 4"), size=1) +
-geom_point(aes(x=leecher5$percent, y=leecher5$dlspeed, label="Leecher 5"), size=1) +
-geom_point(aes(x=leecher6$percent, y=leecher6$dlspeed, label="Leecher 6"), size=1) +
-geom_point(aes(x=leecher7$percent, y=leecher7$dlspeed, label="Leecher 7"), size=1) +
-geom_point(aes(x=leecher8$percent, y=leecher8$dlspeed, label="Leecher 8"), size=1) +
-geom_point(aes(x=leecher9$percent, y=leecher9$dlspeed, label="Leecher 9"), size=1) +
-geom_point(aes(x=leecher10$percent, y=leecher10$dlspeed, label="Leecher 10"), size=1) +
+geom_point(aes(x=leecher4$time, y=leecher4$dlspeed, label="Leecher 4"), size=1) +
+geom_point(aes(x=leecher5$time, y=leecher5$dlspeed, label="Leecher 5"), size=1) +
+geom_point(aes(x=leecher6$time, y=leecher6$dlspeed, label="Leecher 6"), size=1) +
+geom_point(aes(x=leecher7$time, y=leecher7$dlspeed, label="Leecher 7"), size=1) +
+geom_point(aes(x=leecher8$time, y=leecher8$dlspeed, label="Leecher 8"), size=1) +
+geom_point(aes(x=leecher9$time, y=leecher9$dlspeed, label="Leecher 9"), size=1) +
+geom_point(aes(x=leecher10$time, y=leecher10$dlspeed, label="Leecher 10"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 2f16ce872ceef2fcb17a82b98d87bf9c180debd5..c19c063f7bd9a5c8eea069ae375d729cb17496cc 100644 (file)
@@ -57,12 +57,12 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher5$percent, y=leecher5$dlspeed, label="Leecher 5"), size=1) +
-geom_point(aes(x=leecher6$percent, y=leecher6$dlspeed, label="Leecher 6"), size=1) +
-geom_point(aes(x=leecher7$percent, y=leecher7$dlspeed, label="Leecher 7"), size=1) +
-geom_point(aes(x=leecher8$percent, y=leecher8$dlspeed, label="Leecher 8"), size=1) +
-geom_point(aes(x=leecher9$percent, y=leecher9$dlspeed, label="Leecher 9"), size=1) +
-geom_point(aes(x=leecher10$percent, y=leecher10$dlspeed, label="Leecher 10"), size=1) +
+geom_point(aes(x=leecher5$time, y=leecher5$dlspeed, label="Leecher 5"), size=1) +
+geom_point(aes(x=leecher6$time, y=leecher6$dlspeed, label="Leecher 6"), size=1) +
+geom_point(aes(x=leecher7$time, y=leecher7$dlspeed, label="Leecher 7"), size=1) +
+geom_point(aes(x=leecher8$time, y=leecher8$dlspeed, label="Leecher 8"), size=1) +
+geom_point(aes(x=leecher9$time, y=leecher9$dlspeed, label="Leecher 9"), size=1) +
+geom_point(aes(x=leecher10$time, y=leecher10$dlspeed, label="Leecher 10"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index cf180a160dc62d8e23011460cf79c19ba6fc00a1..49b96452363af13610426bd4e8f2c338ca2cf779 100644 (file)
@@ -55,11 +55,11 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher6$percent, y=leecher6$dlspeed, label="Leecher 6"), size=1) +
-geom_point(aes(x=leecher7$percent, y=leecher7$dlspeed, label="Leecher 7"), size=1) +
-geom_point(aes(x=leecher8$percent, y=leecher8$dlspeed, label="Leecher 8"), size=1) +
-geom_point(aes(x=leecher9$percent, y=leecher9$dlspeed, label="Leecher 9"), size=1) +
-geom_point(aes(x=leecher10$percent, y=leecher10$dlspeed, label="Leecher 10"), size=1) +
+geom_point(aes(x=leecher6$time, y=leecher6$dlspeed, label="Leecher 6"), size=1) +
+geom_point(aes(x=leecher7$time, y=leecher7$dlspeed, label="Leecher 7"), size=1) +
+geom_point(aes(x=leecher8$time, y=leecher8$dlspeed, label="Leecher 8"), size=1) +
+geom_point(aes(x=leecher9$time, y=leecher9$dlspeed, label="Leecher 9"), size=1) +
+geom_point(aes(x=leecher10$time, y=leecher10$dlspeed, label="Leecher 10"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 6761482b39b24f00e07c8ac4d42b77c96d2f40a1..312048fa803ab069b0ee3f29486a1ca2b335850a 100644 (file)
@@ -53,10 +53,10 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher7$percent, y=leecher7$dlspeed, label="Leecher 7"), size=1) +
-geom_point(aes(x=leecher8$percent, y=leecher8$dlspeed, label="Leecher 8"), size=1) +
-geom_point(aes(x=leecher9$percent, y=leecher9$dlspeed, label="Leecher 9"), size=1) +
-geom_point(aes(x=leecher10$percent, y=leecher10$dlspeed, label="Leecher 10"), size=1) +
+geom_point(aes(x=leecher7$time, y=leecher7$dlspeed, label="Leecher 7"), size=1) +
+geom_point(aes(x=leecher8$time, y=leecher8$dlspeed, label="Leecher 8"), size=1) +
+geom_point(aes(x=leecher9$time, y=leecher9$dlspeed, label="Leecher 9"), size=1) +
+geom_point(aes(x=leecher10$time, y=leecher10$dlspeed, label="Leecher 10"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 8607fe6ab1fa097d6c32fb41f91c47c4a244156d..323aae1653d127a93693c609f8ad3dc8251e0d4d 100644 (file)
@@ -51,9 +51,9 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher8$percent, y=leecher8$dlspeed, label="Leecher 8"), size=1) +
-geom_point(aes(x=leecher9$percent, y=leecher9$dlspeed, label="Leecher 9"), size=1) +
-geom_point(aes(x=leecher10$percent, y=leecher10$dlspeed, label="Leecher 10"), size=1) +
+geom_point(aes(x=leecher8$time, y=leecher8$dlspeed, label="Leecher 8"), size=1) +
+geom_point(aes(x=leecher9$time, y=leecher9$dlspeed, label="Leecher 9"), size=1) +
+geom_point(aes(x=leecher10$time, y=leecher10$dlspeed, label="Leecher 10"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index b941f6aeacef0af7ed3d6b16798ac37f68ca6abe..6b6b83981db66652e3234e9e695bdbe16092fc59 100644 (file)
@@ -49,8 +49,8 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher9$percent, y=leecher9$dlspeed, label="Leecher 9"), size=1) +
-geom_point(aes(x=leecher10$percent, y=leecher10$dlspeed, label="Leecher 10"), size=1) +
+geom_point(aes(x=leecher9$time, y=leecher9$dlspeed, label="Leecher 9"), size=1) +
+geom_point(aes(x=leecher10$time, y=leecher10$dlspeed, label="Leecher 10"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 82d3f6d32b5f4c7c77c17ebbc5183c4d35e30bda..d46a11866b347d84c90608c42a9d2c7611fea651 100644 (file)
@@ -47,7 +47,7 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher10$percent, y=leecher10$dlspeed, label="Leecher 10"), size=1) +
+geom_point(aes(x=leecher10$time, y=leecher10$dlspeed, label="Leecher 10"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 40cc3c4bf8ba9a100eb2f42e5ad119151c06b488..5ebf98abccdb9b3eb9b75a5dc8255480c7f47c84 100644 (file)
@@ -285,86 +285,86 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher11$percent, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
-geom_point(aes(x=leecher12$percent, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
-geom_point(aes(x=leecher13$percent, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
-geom_point(aes(x=leecher14$percent, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
-geom_point(aes(x=leecher15$percent, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
-geom_point(aes(x=leecher16$percent, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
-geom_point(aes(x=leecher17$percent, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
-geom_point(aes(x=leecher18$percent, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
-geom_point(aes(x=leecher19$percent, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
-geom_point(aes(x=leecher20$percent, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
-geom_point(aes(x=leecher21$percent, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
-geom_point(aes(x=leecher22$percent, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
-geom_point(aes(x=leecher23$percent, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
-geom_point(aes(x=leecher24$percent, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
-geom_point(aes(x=leecher25$percent, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
-geom_point(aes(x=leecher26$percent, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
-geom_point(aes(x=leecher27$percent, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
-geom_point(aes(x=leecher28$percent, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
-geom_point(aes(x=leecher29$percent, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
-geom_point(aes(x=leecher30$percent, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher11$time, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
+geom_point(aes(x=leecher12$time, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
+geom_point(aes(x=leecher13$time, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
+geom_point(aes(x=leecher14$time, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
+geom_point(aes(x=leecher15$time, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
+geom_point(aes(x=leecher16$time, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
+geom_point(aes(x=leecher17$time, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
+geom_point(aes(x=leecher18$time, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
+geom_point(aes(x=leecher19$time, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
+geom_point(aes(x=leecher20$time, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
+geom_point(aes(x=leecher21$time, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
+geom_point(aes(x=leecher22$time, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
+geom_point(aes(x=leecher23$time, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
+geom_point(aes(x=leecher24$time, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
+geom_point(aes(x=leecher25$time, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
+geom_point(aes(x=leecher26$time, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
+geom_point(aes(x=leecher27$time, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
+geom_point(aes(x=leecher28$time, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
+geom_point(aes(x=leecher29$time, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
+geom_point(aes(x=leecher30$time, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index dc75e7cc3979dc43bdb5d62ae4a895c45e04b110..35877c18da3e227f0171d783bedb8f383e0f007a 100644 (file)
@@ -285,86 +285,86 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher11$percent, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
-geom_point(aes(x=leecher12$percent, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
-geom_point(aes(x=leecher13$percent, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
-geom_point(aes(x=leecher14$percent, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
-geom_point(aes(x=leecher15$percent, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
-geom_point(aes(x=leecher16$percent, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
-geom_point(aes(x=leecher17$percent, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
-geom_point(aes(x=leecher18$percent, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
-geom_point(aes(x=leecher19$percent, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
-geom_point(aes(x=leecher20$percent, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
-geom_point(aes(x=leecher21$percent, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
-geom_point(aes(x=leecher22$percent, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
-geom_point(aes(x=leecher23$percent, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
-geom_point(aes(x=leecher24$percent, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
-geom_point(aes(x=leecher25$percent, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
-geom_point(aes(x=leecher26$percent, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
-geom_point(aes(x=leecher27$percent, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
-geom_point(aes(x=leecher28$percent, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
-geom_point(aes(x=leecher29$percent, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
-geom_point(aes(x=leecher30$percent, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher11$time, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
+geom_point(aes(x=leecher12$time, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
+geom_point(aes(x=leecher13$time, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
+geom_point(aes(x=leecher14$time, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
+geom_point(aes(x=leecher15$time, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
+geom_point(aes(x=leecher16$time, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
+geom_point(aes(x=leecher17$time, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
+geom_point(aes(x=leecher18$time, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
+geom_point(aes(x=leecher19$time, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
+geom_point(aes(x=leecher20$time, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
+geom_point(aes(x=leecher21$time, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
+geom_point(aes(x=leecher22$time, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
+geom_point(aes(x=leecher23$time, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
+geom_point(aes(x=leecher24$time, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
+geom_point(aes(x=leecher25$time, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
+geom_point(aes(x=leecher26$time, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
+geom_point(aes(x=leecher27$time, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
+geom_point(aes(x=leecher28$time, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
+geom_point(aes(x=leecher29$time, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
+geom_point(aes(x=leecher30$time, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index f1440cfb01e1cc9e3f78f08a4974ddf60029e344..92820b9ca1ad7826237100cc3d86fa9a5ba57b00 100644 (file)
@@ -285,86 +285,86 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher11$percent, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
-geom_point(aes(x=leecher12$percent, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
-geom_point(aes(x=leecher13$percent, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
-geom_point(aes(x=leecher14$percent, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
-geom_point(aes(x=leecher15$percent, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
-geom_point(aes(x=leecher16$percent, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
-geom_point(aes(x=leecher17$percent, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
-geom_point(aes(x=leecher18$percent, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
-geom_point(aes(x=leecher19$percent, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
-geom_point(aes(x=leecher20$percent, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
-geom_point(aes(x=leecher21$percent, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
-geom_point(aes(x=leecher22$percent, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
-geom_point(aes(x=leecher23$percent, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
-geom_point(aes(x=leecher24$percent, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
-geom_point(aes(x=leecher25$percent, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
-geom_point(aes(x=leecher26$percent, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
-geom_point(aes(x=leecher27$percent, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
-geom_point(aes(x=leecher28$percent, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
-geom_point(aes(x=leecher29$percent, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
-geom_point(aes(x=leecher30$percent, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher11$time, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
+geom_point(aes(x=leecher12$time, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
+geom_point(aes(x=leecher13$time, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
+geom_point(aes(x=leecher14$time, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
+geom_point(aes(x=leecher15$time, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
+geom_point(aes(x=leecher16$time, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
+geom_point(aes(x=leecher17$time, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
+geom_point(aes(x=leecher18$time, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
+geom_point(aes(x=leecher19$time, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
+geom_point(aes(x=leecher20$time, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
+geom_point(aes(x=leecher21$time, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
+geom_point(aes(x=leecher22$time, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
+geom_point(aes(x=leecher23$time, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
+geom_point(aes(x=leecher24$time, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
+geom_point(aes(x=leecher25$time, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
+geom_point(aes(x=leecher26$time, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
+geom_point(aes(x=leecher27$time, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
+geom_point(aes(x=leecher28$time, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
+geom_point(aes(x=leecher29$time, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
+geom_point(aes(x=leecher30$time, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 88512ae3aaf7f082ac663be0ef83dce2a25884da..16101288532d8ffe82d35a3e384104fddec1cdc7 100644 (file)
@@ -285,86 +285,86 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher11$percent, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
-geom_point(aes(x=leecher12$percent, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
-geom_point(aes(x=leecher13$percent, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
-geom_point(aes(x=leecher14$percent, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
-geom_point(aes(x=leecher15$percent, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
-geom_point(aes(x=leecher16$percent, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
-geom_point(aes(x=leecher17$percent, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
-geom_point(aes(x=leecher18$percent, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
-geom_point(aes(x=leecher19$percent, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
-geom_point(aes(x=leecher20$percent, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
-geom_point(aes(x=leecher21$percent, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
-geom_point(aes(x=leecher22$percent, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
-geom_point(aes(x=leecher23$percent, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
-geom_point(aes(x=leecher24$percent, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
-geom_point(aes(x=leecher25$percent, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
-geom_point(aes(x=leecher26$percent, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
-geom_point(aes(x=leecher27$percent, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
-geom_point(aes(x=leecher28$percent, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
-geom_point(aes(x=leecher29$percent, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
-geom_point(aes(x=leecher30$percent, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher11$time, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
+geom_point(aes(x=leecher12$time, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
+geom_point(aes(x=leecher13$time, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
+geom_point(aes(x=leecher14$time, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
+geom_point(aes(x=leecher15$time, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
+geom_point(aes(x=leecher16$time, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
+geom_point(aes(x=leecher17$time, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
+geom_point(aes(x=leecher18$time, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
+geom_point(aes(x=leecher19$time, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
+geom_point(aes(x=leecher20$time, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
+geom_point(aes(x=leecher21$time, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
+geom_point(aes(x=leecher22$time, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
+geom_point(aes(x=leecher23$time, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
+geom_point(aes(x=leecher24$time, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
+geom_point(aes(x=leecher25$time, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
+geom_point(aes(x=leecher26$time, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
+geom_point(aes(x=leecher27$time, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
+geom_point(aes(x=leecher28$time, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
+geom_point(aes(x=leecher29$time, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
+geom_point(aes(x=leecher30$time, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index fddf11c4ff9827e41882f14973d0268f714c9d42..5e02430aa57a149a51c4de85f507077920e7aea9 100644 (file)
@@ -285,86 +285,86 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher11$percent, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
-geom_point(aes(x=leecher12$percent, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
-geom_point(aes(x=leecher13$percent, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
-geom_point(aes(x=leecher14$percent, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
-geom_point(aes(x=leecher15$percent, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
-geom_point(aes(x=leecher16$percent, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
-geom_point(aes(x=leecher17$percent, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
-geom_point(aes(x=leecher18$percent, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
-geom_point(aes(x=leecher19$percent, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
-geom_point(aes(x=leecher20$percent, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
-geom_point(aes(x=leecher21$percent, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
-geom_point(aes(x=leecher22$percent, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
-geom_point(aes(x=leecher23$percent, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
-geom_point(aes(x=leecher24$percent, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
-geom_point(aes(x=leecher25$percent, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
-geom_point(aes(x=leecher26$percent, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
-geom_point(aes(x=leecher27$percent, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
-geom_point(aes(x=leecher28$percent, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
-geom_point(aes(x=leecher29$percent, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
-geom_point(aes(x=leecher30$percent, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher11$time, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
+geom_point(aes(x=leecher12$time, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
+geom_point(aes(x=leecher13$time, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
+geom_point(aes(x=leecher14$time, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
+geom_point(aes(x=leecher15$time, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
+geom_point(aes(x=leecher16$time, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
+geom_point(aes(x=leecher17$time, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
+geom_point(aes(x=leecher18$time, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
+geom_point(aes(x=leecher19$time, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
+geom_point(aes(x=leecher20$time, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
+geom_point(aes(x=leecher21$time, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
+geom_point(aes(x=leecher22$time, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
+geom_point(aes(x=leecher23$time, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
+geom_point(aes(x=leecher24$time, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
+geom_point(aes(x=leecher25$time, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
+geom_point(aes(x=leecher26$time, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
+geom_point(aes(x=leecher27$time, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
+geom_point(aes(x=leecher28$time, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
+geom_point(aes(x=leecher29$time, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
+geom_point(aes(x=leecher30$time, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 9faf6ad0f0dadb8c23a8c4a9b20131ca5172c1b8..140276b66439aaf0909cf31686658833c75b6e0d 100644 (file)
@@ -285,86 +285,86 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher11$percent, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
-geom_point(aes(x=leecher12$percent, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
-geom_point(aes(x=leecher13$percent, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
-geom_point(aes(x=leecher14$percent, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
-geom_point(aes(x=leecher15$percent, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
-geom_point(aes(x=leecher16$percent, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
-geom_point(aes(x=leecher17$percent, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
-geom_point(aes(x=leecher18$percent, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
-geom_point(aes(x=leecher19$percent, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
-geom_point(aes(x=leecher20$percent, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
-geom_point(aes(x=leecher21$percent, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
-geom_point(aes(x=leecher22$percent, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
-geom_point(aes(x=leecher23$percent, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
-geom_point(aes(x=leecher24$percent, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
-geom_point(aes(x=leecher25$percent, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
-geom_point(aes(x=leecher26$percent, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
-geom_point(aes(x=leecher27$percent, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
-geom_point(aes(x=leecher28$percent, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
-geom_point(aes(x=leecher29$percent, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
-geom_point(aes(x=leecher30$percent, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher11$time, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
+geom_point(aes(x=leecher12$time, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
+geom_point(aes(x=leecher13$time, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
+geom_point(aes(x=leecher14$time, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
+geom_point(aes(x=leecher15$time, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
+geom_point(aes(x=leecher16$time, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
+geom_point(aes(x=leecher17$time, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
+geom_point(aes(x=leecher18$time, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
+geom_point(aes(x=leecher19$time, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
+geom_point(aes(x=leecher20$time, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
+geom_point(aes(x=leecher21$time, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
+geom_point(aes(x=leecher22$time, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
+geom_point(aes(x=leecher23$time, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
+geom_point(aes(x=leecher24$time, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
+geom_point(aes(x=leecher25$time, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
+geom_point(aes(x=leecher26$time, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
+geom_point(aes(x=leecher27$time, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
+geom_point(aes(x=leecher28$time, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
+geom_point(aes(x=leecher29$time, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
+geom_point(aes(x=leecher30$time, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index ea9a7c4a78e73dcc859f8e9e5b4777fa8440595e..346218624495e4aeb9e3818dd172ccf3976bdef9 100644 (file)
@@ -285,86 +285,86 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher11$percent, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
-geom_point(aes(x=leecher12$percent, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
-geom_point(aes(x=leecher13$percent, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
-geom_point(aes(x=leecher14$percent, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
-geom_point(aes(x=leecher15$percent, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
-geom_point(aes(x=leecher16$percent, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
-geom_point(aes(x=leecher17$percent, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
-geom_point(aes(x=leecher18$percent, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
-geom_point(aes(x=leecher19$percent, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
-geom_point(aes(x=leecher20$percent, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
-geom_point(aes(x=leecher21$percent, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
-geom_point(aes(x=leecher22$percent, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
-geom_point(aes(x=leecher23$percent, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
-geom_point(aes(x=leecher24$percent, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
-geom_point(aes(x=leecher25$percent, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
-geom_point(aes(x=leecher26$percent, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
-geom_point(aes(x=leecher27$percent, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
-geom_point(aes(x=leecher28$percent, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
-geom_point(aes(x=leecher29$percent, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
-geom_point(aes(x=leecher30$percent, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher11$time, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
+geom_point(aes(x=leecher12$time, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
+geom_point(aes(x=leecher13$time, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
+geom_point(aes(x=leecher14$time, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
+geom_point(aes(x=leecher15$time, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
+geom_point(aes(x=leecher16$time, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
+geom_point(aes(x=leecher17$time, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
+geom_point(aes(x=leecher18$time, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
+geom_point(aes(x=leecher19$time, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
+geom_point(aes(x=leecher20$time, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
+geom_point(aes(x=leecher21$time, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
+geom_point(aes(x=leecher22$time, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
+geom_point(aes(x=leecher23$time, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
+geom_point(aes(x=leecher24$time, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
+geom_point(aes(x=leecher25$time, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
+geom_point(aes(x=leecher26$time, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
+geom_point(aes(x=leecher27$time, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
+geom_point(aes(x=leecher28$time, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
+geom_point(aes(x=leecher29$time, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
+geom_point(aes(x=leecher30$time, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 5561b6974bf7706621dcf5b8653f5ccc4cffef49..99a5729ad147d6dfcbf563734d08c86b025a7f9c 100644 (file)
@@ -285,86 +285,86 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher11$percent, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
-geom_point(aes(x=leecher12$percent, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
-geom_point(aes(x=leecher13$percent, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
-geom_point(aes(x=leecher14$percent, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
-geom_point(aes(x=leecher15$percent, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
-geom_point(aes(x=leecher16$percent, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
-geom_point(aes(x=leecher17$percent, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
-geom_point(aes(x=leecher18$percent, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
-geom_point(aes(x=leecher19$percent, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
-geom_point(aes(x=leecher20$percent, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
-geom_point(aes(x=leecher21$percent, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
-geom_point(aes(x=leecher22$percent, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
-geom_point(aes(x=leecher23$percent, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
-geom_point(aes(x=leecher24$percent, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
-geom_point(aes(x=leecher25$percent, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
-geom_point(aes(x=leecher26$percent, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
-geom_point(aes(x=leecher27$percent, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
-geom_point(aes(x=leecher28$percent, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
-geom_point(aes(x=leecher29$percent, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
-geom_point(aes(x=leecher30$percent, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher11$time, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
+geom_point(aes(x=leecher12$time, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
+geom_point(aes(x=leecher13$time, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
+geom_point(aes(x=leecher14$time, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
+geom_point(aes(x=leecher15$time, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
+geom_point(aes(x=leecher16$time, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
+geom_point(aes(x=leecher17$time, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
+geom_point(aes(x=leecher18$time, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
+geom_point(aes(x=leecher19$time, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
+geom_point(aes(x=leecher20$time, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
+geom_point(aes(x=leecher21$time, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
+geom_point(aes(x=leecher22$time, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
+geom_point(aes(x=leecher23$time, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
+geom_point(aes(x=leecher24$time, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
+geom_point(aes(x=leecher25$time, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
+geom_point(aes(x=leecher26$time, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
+geom_point(aes(x=leecher27$time, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
+geom_point(aes(x=leecher28$time, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
+geom_point(aes(x=leecher29$time, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
+geom_point(aes(x=leecher30$time, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 35db6046cdc943e967e4901f8c1c1a38da6e95f4..03052322fa4457796c867f316e4795b84bb0fc79 100644 (file)
@@ -285,86 +285,86 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher11$percent, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
-geom_point(aes(x=leecher12$percent, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
-geom_point(aes(x=leecher13$percent, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
-geom_point(aes(x=leecher14$percent, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
-geom_point(aes(x=leecher15$percent, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
-geom_point(aes(x=leecher16$percent, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
-geom_point(aes(x=leecher17$percent, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
-geom_point(aes(x=leecher18$percent, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
-geom_point(aes(x=leecher19$percent, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
-geom_point(aes(x=leecher20$percent, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
-geom_point(aes(x=leecher21$percent, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
-geom_point(aes(x=leecher22$percent, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
-geom_point(aes(x=leecher23$percent, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
-geom_point(aes(x=leecher24$percent, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
-geom_point(aes(x=leecher25$percent, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
-geom_point(aes(x=leecher26$percent, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
-geom_point(aes(x=leecher27$percent, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
-geom_point(aes(x=leecher28$percent, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
-geom_point(aes(x=leecher29$percent, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
-geom_point(aes(x=leecher30$percent, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher11$time, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
+geom_point(aes(x=leecher12$time, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
+geom_point(aes(x=leecher13$time, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
+geom_point(aes(x=leecher14$time, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
+geom_point(aes(x=leecher15$time, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
+geom_point(aes(x=leecher16$time, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
+geom_point(aes(x=leecher17$time, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
+geom_point(aes(x=leecher18$time, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
+geom_point(aes(x=leecher19$time, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
+geom_point(aes(x=leecher20$time, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
+geom_point(aes(x=leecher21$time, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
+geom_point(aes(x=leecher22$time, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
+geom_point(aes(x=leecher23$time, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
+geom_point(aes(x=leecher24$time, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
+geom_point(aes(x=leecher25$time, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
+geom_point(aes(x=leecher26$time, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
+geom_point(aes(x=leecher27$time, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
+geom_point(aes(x=leecher28$time, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
+geom_point(aes(x=leecher29$time, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
+geom_point(aes(x=leecher30$time, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index c9bbdc8ae56832531075161614054c9e3968b10d..49d1754628c811f273bf476b34bb113c3f9b187e 100644 (file)
@@ -285,86 +285,86 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher11$percent, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
-geom_point(aes(x=leecher12$percent, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
-geom_point(aes(x=leecher13$percent, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
-geom_point(aes(x=leecher14$percent, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
-geom_point(aes(x=leecher15$percent, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
-geom_point(aes(x=leecher16$percent, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
-geom_point(aes(x=leecher17$percent, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
-geom_point(aes(x=leecher18$percent, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
-geom_point(aes(x=leecher19$percent, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
-geom_point(aes(x=leecher20$percent, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
-geom_point(aes(x=leecher21$percent, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
-geom_point(aes(x=leecher22$percent, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
-geom_point(aes(x=leecher23$percent, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
-geom_point(aes(x=leecher24$percent, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
-geom_point(aes(x=leecher25$percent, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
-geom_point(aes(x=leecher26$percent, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
-geom_point(aes(x=leecher27$percent, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
-geom_point(aes(x=leecher28$percent, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
-geom_point(aes(x=leecher29$percent, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
-geom_point(aes(x=leecher30$percent, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher11$time, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
+geom_point(aes(x=leecher12$time, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
+geom_point(aes(x=leecher13$time, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
+geom_point(aes(x=leecher14$time, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
+geom_point(aes(x=leecher15$time, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
+geom_point(aes(x=leecher16$time, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
+geom_point(aes(x=leecher17$time, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
+geom_point(aes(x=leecher18$time, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
+geom_point(aes(x=leecher19$time, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
+geom_point(aes(x=leecher20$time, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
+geom_point(aes(x=leecher21$time, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
+geom_point(aes(x=leecher22$time, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
+geom_point(aes(x=leecher23$time, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
+geom_point(aes(x=leecher24$time, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
+geom_point(aes(x=leecher25$time, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
+geom_point(aes(x=leecher26$time, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
+geom_point(aes(x=leecher27$time, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
+geom_point(aes(x=leecher28$time, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
+geom_point(aes(x=leecher29$time, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
+geom_point(aes(x=leecher30$time, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index e5f5fe26c56fede1b76ab2228139385b6e5fc8fa..d3232f9941b6b17b286221322c29e0ee8a0a5a64 100644 (file)
@@ -245,66 +245,66 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 6fe2915e3faad11310f18abef495bc84b827830c..67a75a1f833634149f6cdce1f0121a893a3f43bf 100644 (file)
@@ -245,66 +245,66 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 9c501c6d9cf36270925f85c4b491f1260eaf0393..97a92ab71572081ec983132620b8d6b498b4e3bc 100644 (file)
@@ -245,66 +245,66 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index d344fba557d510f9ef900816306bfd7f8448f3e8..4960f0d9c066769246e4e8710fed05e3dc210660 100644 (file)
@@ -245,66 +245,66 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 0991921451b71cb39f34e0f4b5ae337843577941..88b752219ccc6ecfd356ed834cc36b4a4fb5e53d 100644 (file)
@@ -245,66 +245,66 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index cc145a3e9d112d1c77055581ed7b42fd44d48eda..cedb67f13920d5f73052936b17cf01d5dcf254fd 100644 (file)
@@ -245,66 +245,66 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 464688840078a1d91a7ae3e94a4c00b72f8aa271..c3b14b1ee828861bd1c7d647fa62abebaf076827 100644 (file)
@@ -245,66 +245,66 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index f8f7ad9e713d03924f836e2423e41beb43ad808c..2d08eb5ff2942a2352211dc3a99d2a6fbb2e72fe 100644 (file)
@@ -245,66 +245,66 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index eadd9b1158c49ee8802915e7a7bfe89785291a65..5dc7c6f192e78712b16d19b1db2445c6427fea51 100644 (file)
@@ -245,66 +245,66 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +
index 9b4d0cc6cbb64e325dd431157f36390c51e7c7ed..595c1fe5d2f29ec57bcc716755647367a13d88b0 100644 (file)
@@ -245,66 +245,66 @@ dev.off()
 
 # plot dlspeed-time data
 p <- ggplot() +
-geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
-geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
-geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
-geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
-geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
-geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
-geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
-geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
-geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
-geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
-geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
-geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
-geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
-geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
-geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
-geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
-geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
-geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
-geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
-geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
-geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
-geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
-geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
-geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
-geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
-geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
-geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
-geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
-geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
-geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
-geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
-geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
-geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
-geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
-geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
-geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
-geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
-geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
-geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
-geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
-geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
-geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
-geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
-geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
-geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
-geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
-geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
-geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
-geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
-geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
-geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
-geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
-geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
-geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
-geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
-geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
-geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
-geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
-geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
-geom_point(aes(x=leecher90$percent, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
+geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
+geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
+geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
+geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
+geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
+geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
+geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
+geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
+geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
+geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
+geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
+geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
+geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
+geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
+geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
+geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
+geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
+geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
+geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
+geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
+geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
+geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
+geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
+geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
+geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
+geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
+geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
+geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
+geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
+geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
+geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
+geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
+geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
+geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
+geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
+geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
+geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
+geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
+geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
+geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
+geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
+geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
+geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
+geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
+geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
+geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
+geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
+geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
+geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
+geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
+geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
+geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
+geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
+geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
+geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
+geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
+geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
+geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
+geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
+geom_point(aes(x=leecher90$time, y=leecher90$dlspeed, label="Leecher 90"), size=1) +
 theme_bw() +
 scale_x_continuous("Time(s)") +
 scale_y_continuous("Download speed (Mbit/s)", limits=c(0,  8), breaks=seq(0,  8, 0.5)) +