TestSpecs/test-scenario-pre-post-nop-all.r

   1 #
   2 # Copyright: George Milescu 2010 - george.milescu@gmail.com
   3 #
   4 # R script used to plot the results of a scenario
   5
   6 # import ggplot2
   7 library(ggplot2)
   8
   9 # Read transmitted command line arguments
  10 args <- commandArgs(trailingOnly = TRUE)
  11
  12 # The data files are located in the target folder. Also, the graph will be saved in the target folder.
  13 target_folder <- args[2]
  14 campaign_name <- args[3]
  15 rm(args)
  16
  17 # read data from the data file
  18 seeder=read.table(paste(target_folder, "p2p-next-01-101.log.data", sep="/"), header=T, sep=" ")
  19 leecher01=read.table(paste(target_folder, "p2p-next-01-102.log.data", sep="/"), header=T, sep=" ")
  20 leecher02=read.table(paste(target_folder, "p2p-next-01-103.log.data", sep="/"), header=T, sep=" ")
  21 leecher03=read.table(paste(target_folder, "p2p-next-01-104.log.data", sep="/"), header=T, sep=" ")
  22 leecher04=read.table(paste(target_folder, "p2p-next-01-105.log.data", sep="/"), header=T, sep=" ")
  23 leecher05=read.table(paste(target_folder, "p2p-next-01-106.log.data", sep="/"), header=T, sep=" ")
  24 leecher06=read.table(paste(target_folder, "p2p-next-01-107.log.data", sep="/"), header=T, sep=" ")
  25 leecher07=read.table(paste(target_folder, "p2p-next-01-108.log.data", sep="/"), header=T, sep=" ")
  26 leecher08=read.table(paste(target_folder, "p2p-next-01-109.log.data", sep="/"), header=T, sep=" ")
  27 leecher09=read.table(paste(target_folder, "p2p-next-01-110.log.data", sep="/"), header=T, sep=" ")
  28 leecher10=read.table(paste(target_folder, "p2p-next-03-101.log.data", sep="/"), header=T, sep=" ")
  29 leecher11=read.table(paste(target_folder, "p2p-next-03-102.log.data", sep="/"), header=T, sep=" ")
  30 leecher12=read.table(paste(target_folder, "p2p-next-03-103.log.data", sep="/"), header=T, sep=" ")
  31 leecher13=read.table(paste(target_folder, "p2p-next-03-104.log.data", sep="/"), header=T, sep=" ")
  32 leecher14=read.table(paste(target_folder, "p2p-next-03-105.log.data", sep="/"), header=T, sep=" ")
  33 leecher15=read.table(paste(target_folder, "p2p-next-03-106.log.data", sep="/"), header=T, sep=" ")
  34 leecher16=read.table(paste(target_folder, "p2p-next-03-107.log.data", sep="/"), header=T, sep=" ")
  35 leecher17=read.table(paste(target_folder, "p2p-next-03-108.log.data", sep="/"), header=T, sep=" ")
  36 leecher18=read.table(paste(target_folder, "p2p-next-03-109.log.data", sep="/"), header=T, sep=" ")
  37 leecher19=read.table(paste(target_folder, "p2p-next-03-110.log.data", sep="/"), header=T, sep=" ")
  38 leecher20=read.table(paste(target_folder, "p2p-next-04-101.log.data", sep="/"), header=T, sep=" ")
  39 leecher21=read.table(paste(target_folder, "p2p-next-04-102.log.data", sep="/"), header=T, sep=" ")
  40 leecher22=read.table(paste(target_folder, "p2p-next-04-103.log.data", sep="/"), header=T, sep=" ")
  41 leecher23=read.table(paste(target_folder, "p2p-next-04-104.log.data", sep="/"), header=T, sep=" ")
  42 leecher24=read.table(paste(target_folder, "p2p-next-04-105.log.data", sep="/"), header=T, sep=" ")
  43 leecher25=read.table(paste(target_folder, "p2p-next-04-106.log.data", sep="/"), header=T, sep=" ")
  44 leecher26=read.table(paste(target_folder, "p2p-next-04-107.log.data", sep="/"), header=T, sep=" ")
  45 leecher27=read.table(paste(target_folder, "p2p-next-04-108.log.data", sep="/"), header=T, sep=" ")
  46 leecher28=read.table(paste(target_folder, "p2p-next-04-109.log.data", sep="/"), header=T, sep=" ")
  47 leecher29=read.table(paste(target_folder, "p2p-next-04-110.log.data", sep="/"), header=T, sep=" ")
  48 leecher30=read.table(paste(target_folder, "p2p-next-05-101.log.data", sep="/"), header=T, sep=" ")
  49 leecher31=read.table(paste(target_folder, "p2p-next-05-102.log.data", sep="/"), header=T, sep=" ")
  50 leecher32=read.table(paste(target_folder, "p2p-next-05-103.log.data", sep="/"), header=T, sep=" ")
  51 leecher33=read.table(paste(target_folder, "p2p-next-05-104.log.data", sep="/"), header=T, sep=" ")
  52 leecher34=read.table(paste(target_folder, "p2p-next-05-105.log.data", sep="/"), header=T, sep=" ")
  53 leecher35=read.table(paste(target_folder, "p2p-next-05-106.log.data", sep="/"), header=T, sep=" ")
  54 leecher36=read.table(paste(target_folder, "p2p-next-05-107.log.data", sep="/"), header=T, sep=" ")
  55 leecher37=read.table(paste(target_folder, "p2p-next-05-108.log.data", sep="/"), header=T, sep=" ")
  56 leecher38=read.table(paste(target_folder, "p2p-next-05-109.log.data", sep="/"), header=T, sep=" ")
  57 leecher39=read.table(paste(target_folder, "p2p-next-05-110.log.data", sep="/"), header=T, sep=" ")
  58 leecher40=read.table(paste(target_folder, "p2p-next-06-101.log.data", sep="/"), header=T, sep=" ")
  59 leecher41=read.table(paste(target_folder, "p2p-next-06-102.log.data", sep="/"), header=T, sep=" ")
  60 leecher42=read.table(paste(target_folder, "p2p-next-06-103.log.data", sep="/"), header=T, sep=" ")
  61 leecher43=read.table(paste(target_folder, "p2p-next-06-104.log.data", sep="/"), header=T, sep=" ")
  62 leecher44=read.table(paste(target_folder, "p2p-next-06-105.log.data", sep="/"), header=T, sep=" ")
  63 leecher45=read.table(paste(target_folder, "p2p-next-06-106.log.data", sep="/"), header=T, sep=" ")
  64 leecher46=read.table(paste(target_folder, "p2p-next-06-107.log.data", sep="/"), header=T, sep=" ")
  65 leecher47=read.table(paste(target_folder, "p2p-next-06-108.log.data", sep="/"), header=T, sep=" ")
  66 leecher48=read.table(paste(target_folder, "p2p-next-06-109.log.data", sep="/"), header=T, sep=" ")
  67 leecher49=read.table(paste(target_folder, "p2p-next-06-110.log.data", sep="/"), header=T, sep=" ")
  68 leecher50=read.table(paste(target_folder, "p2p-next-07-101.log.data", sep="/"), header=T, sep=" ")
  69 leecher51=read.table(paste(target_folder, "p2p-next-07-102.log.data", sep="/"), header=T, sep=" ")
  70 leecher52=read.table(paste(target_folder, "p2p-next-07-103.log.data", sep="/"), header=T, sep=" ")
  71 leecher53=read.table(paste(target_folder, "p2p-next-07-104.log.data", sep="/"), header=T, sep=" ")
  72 leecher54=read.table(paste(target_folder, "p2p-next-07-105.log.data", sep="/"), header=T, sep=" ")
  73 leecher55=read.table(paste(target_folder, "p2p-next-07-106.log.data", sep="/"), header=T, sep=" ")
  74 leecher56=read.table(paste(target_folder, "p2p-next-07-107.log.data", sep="/"), header=T, sep=" ")
  75 leecher57=read.table(paste(target_folder, "p2p-next-07-108.log.data", sep="/"), header=T, sep=" ")
  76 leecher58=read.table(paste(target_folder, "p2p-next-07-109.log.data", sep="/"), header=T, sep=" ")
  77 leecher59=read.table(paste(target_folder, "p2p-next-07-110.log.data", sep="/"), header=T, sep=" ")
  78 leecher60=read.table(paste(target_folder, "p2p-next-08-101.log.data", sep="/"), header=T, sep=" ")
  79 leecher61=read.table(paste(target_folder, "p2p-next-08-102.log.data", sep="/"), header=T, sep=" ")
  80 leecher62=read.table(paste(target_folder, "p2p-next-08-103.log.data", sep="/"), header=T, sep=" ")
  81 leecher63=read.table(paste(target_folder, "p2p-next-08-104.log.data", sep="/"), header=T, sep=" ")
  82 leecher64=read.table(paste(target_folder, "p2p-next-08-105.log.data", sep="/"), header=T, sep=" ")
  83 leecher65=read.table(paste(target_folder, "p2p-next-08-106.log.data", sep="/"), header=T, sep=" ")
  84 leecher66=read.table(paste(target_folder, "p2p-next-08-107.log.data", sep="/"), header=T, sep=" ")
  85 leecher67=read.table(paste(target_folder, "p2p-next-08-108.log.data", sep="/"), header=T, sep=" ")
  86 leecher68=read.table(paste(target_folder, "p2p-next-08-109.log.data", sep="/"), header=T, sep=" ")
  87 leecher69=read.table(paste(target_folder, "p2p-next-08-110.log.data", sep="/"), header=T, sep=" ")
  88 leecher70=read.table(paste(target_folder, "p2p-next-09-101.log.data", sep="/"), header=T, sep=" ")
  89 leecher71=read.table(paste(target_folder, "p2p-next-09-102.log.data", sep="/"), header=T, sep=" ")
  90 leecher72=read.table(paste(target_folder, "p2p-next-09-103.log.data", sep="/"), header=T, sep=" ")
  91 leecher73=read.table(paste(target_folder, "p2p-next-09-104.log.data", sep="/"), header=T, sep=" ")
  92 leecher74=read.table(paste(target_folder, "p2p-next-09-105.log.data", sep="/"), header=T, sep=" ")
  93 leecher75=read.table(paste(target_folder, "p2p-next-09-106.log.data", sep="/"), header=T, sep=" ")
  94 leecher76=read.table(paste(target_folder, "p2p-next-09-107.log.data", sep="/"), header=T, sep=" ")
  95 leecher77=read.table(paste(target_folder, "p2p-next-09-108.log.data", sep="/"), header=T, sep=" ")
  96 leecher78=read.table(paste(target_folder, "p2p-next-09-109.log.data", sep="/"), header=T, sep=" ")
  97 leecher79=read.table(paste(target_folder, "p2p-next-09-110.log.data", sep="/"), header=T, sep=" ")
  98 leecher80=read.table(paste(target_folder, "p2p-next-10-101.log.data", sep="/"), header=T, sep=" ")
  99 leecher81=read.table(paste(target_folder, "p2p-next-10-102.log.data", sep="/"), header=T, sep=" ")
 100 leecher82=read.table(paste(target_folder, "p2p-next-10-103.log.data", sep="/"), header=T, sep=" ")
 101 leecher83=read.table(paste(target_folder, "p2p-next-10-104.log.data", sep="/"), header=T, sep=" ")
 102 leecher84=read.table(paste(target_folder, "p2p-next-10-105.log.data", sep="/"), header=T, sep=" ")
 103 leecher85=read.table(paste(target_folder, "p2p-next-10-106.log.data", sep="/"), header=T, sep=" ")
 104 leecher86=read.table(paste(target_folder, "p2p-next-10-107.log.data", sep="/"), header=T, sep=" ")
 105 leecher87=read.table(paste(target_folder, "p2p-next-10-108.log.data", sep="/"), header=T, sep=" ")
 106 leecher88=read.table(paste(target_folder, "p2p-next-10-109.log.data", sep="/"), header=T, sep=" ")
 107 leecher89=read.table(paste(target_folder, "p2p-next-10-110.log.data", sep="/"), header=T, sep=" ")
 108
 109
 110 # transform KB/s to Mbit/s
 111 leecher01$dlspeed <- leecher01$dlspeed*8/1000
 112 leecher02$dlspeed <- leecher02$dlspeed*8/1000
 113 leecher03$dlspeed <- leecher03$dlspeed*8/1000
 114 leecher04$dlspeed <- leecher04$dlspeed*8/1000
 115 leecher05$dlspeed <- leecher05$dlspeed*8/1000
 116 leecher06$dlspeed <- leecher06$dlspeed*8/1000
 117 leecher07$dlspeed <- leecher07$dlspeed*8/1000
 118 leecher08$dlspeed <- leecher08$dlspeed*8/1000
 119 leecher09$dlspeed <- leecher09$dlspeed*8/1000
 120 leecher10$dlspeed <- leecher10$dlspeed*8/1000
 121 leecher11$dlspeed <- leecher11$dlspeed*8/1000
 122 leecher12$dlspeed <- leecher12$dlspeed*8/1000
 123 leecher13$dlspeed <- leecher13$dlspeed*8/1000
 124 leecher14$dlspeed <- leecher14$dlspeed*8/1000
 125 leecher15$dlspeed <- leecher15$dlspeed*8/1000
 126 leecher16$dlspeed <- leecher16$dlspeed*8/1000
 127 leecher17$dlspeed <- leecher17$dlspeed*8/1000
 128 leecher18$dlspeed <- leecher18$dlspeed*8/1000
 129 leecher19$dlspeed <- leecher19$dlspeed*8/1000
 130 leecher20$dlspeed <- leecher20$dlspeed*8/1000
 131 leecher21$dlspeed <- leecher21$dlspeed*8/1000
 132 leecher22$dlspeed <- leecher22$dlspeed*8/1000
 133 leecher23$dlspeed <- leecher23$dlspeed*8/1000
 134 leecher24$dlspeed <- leecher24$dlspeed*8/1000
 135 leecher25$dlspeed <- leecher25$dlspeed*8/1000
 136 leecher26$dlspeed <- leecher26$dlspeed*8/1000
 137 leecher27$dlspeed <- leecher27$dlspeed*8/1000
 138 leecher28$dlspeed <- leecher28$dlspeed*8/1000
 139 leecher29$dlspeed <- leecher29$dlspeed*8/1000
 140 leecher30$dlspeed <- leecher30$dlspeed*8/1000
 141 leecher31$dlspeed <- leecher31$dlspeed*8/1000
 142 leecher32$dlspeed <- leecher32$dlspeed*8/1000
 143 leecher33$dlspeed <- leecher33$dlspeed*8/1000
 144 leecher34$dlspeed <- leecher34$dlspeed*8/1000
 145 leecher35$dlspeed <- leecher35$dlspeed*8/1000
 146 leecher36$dlspeed <- leecher36$dlspeed*8/1000
 147 leecher37$dlspeed <- leecher37$dlspeed*8/1000
 148 leecher38$dlspeed <- leecher38$dlspeed*8/1000
 149 leecher39$dlspeed <- leecher39$dlspeed*8/1000
 150 leecher40$dlspeed <- leecher40$dlspeed*8/1000
 151 leecher41$dlspeed <- leecher41$dlspeed*8/1000
 152 leecher42$dlspeed <- leecher42$dlspeed*8/1000
 153 leecher43$dlspeed <- leecher43$dlspeed*8/1000
 154 leecher44$dlspeed <- leecher44$dlspeed*8/1000
 155 leecher45$dlspeed <- leecher45$dlspeed*8/1000
 156 leecher46$dlspeed <- leecher46$dlspeed*8/1000
 157 leecher47$dlspeed <- leecher47$dlspeed*8/1000
 158 leecher48$dlspeed <- leecher48$dlspeed*8/1000
 159 leecher49$dlspeed <- leecher49$dlspeed*8/1000
 160 leecher50$dlspeed <- leecher50$dlspeed*8/1000
 161 leecher51$dlspeed <- leecher51$dlspeed*8/1000
 162 leecher52$dlspeed <- leecher52$dlspeed*8/1000
 163 leecher53$dlspeed <- leecher53$dlspeed*8/1000
 164 leecher54$dlspeed <- leecher54$dlspeed*8/1000
 165 leecher55$dlspeed <- leecher55$dlspeed*8/1000
 166 leecher56$dlspeed <- leecher56$dlspeed*8/1000
 167 leecher57$dlspeed <- leecher57$dlspeed*8/1000
 168 leecher58$dlspeed <- leecher58$dlspeed*8/1000
 169 leecher59$dlspeed <- leecher59$dlspeed*8/1000
 170 leecher60$dlspeed <- leecher60$dlspeed*8/1000
 171 leecher61$dlspeed <- leecher61$dlspeed*8/1000
 172 leecher62$dlspeed <- leecher62$dlspeed*8/1000
 173 leecher63$dlspeed <- leecher63$dlspeed*8/1000
 174 leecher64$dlspeed <- leecher64$dlspeed*8/1000
 175 leecher65$dlspeed <- leecher65$dlspeed*8/1000
 176 leecher66$dlspeed <- leecher66$dlspeed*8/1000
 177 leecher67$dlspeed <- leecher67$dlspeed*8/1000
 178 leecher68$dlspeed <- leecher68$dlspeed*8/1000
 179 leecher69$dlspeed <- leecher69$dlspeed*8/1000
 180 leecher70$dlspeed <- leecher70$dlspeed*8/1000
 181 leecher71$dlspeed <- leecher71$dlspeed*8/1000
 182 leecher72$dlspeed <- leecher72$dlspeed*8/1000
 183 leecher73$dlspeed <- leecher73$dlspeed*8/1000
 184 leecher74$dlspeed <- leecher74$dlspeed*8/1000
 185 leecher75$dlspeed <- leecher75$dlspeed*8/1000
 186 leecher76$dlspeed <- leecher76$dlspeed*8/1000
 187 leecher77$dlspeed <- leecher77$dlspeed*8/1000
 188 leecher78$dlspeed <- leecher78$dlspeed*8/1000
 189 leecher79$dlspeed <- leecher79$dlspeed*8/1000
 190 leecher80$dlspeed <- leecher80$dlspeed*8/1000
 191 leecher81$dlspeed <- leecher81$dlspeed*8/1000
 192 leecher82$dlspeed <- leecher82$dlspeed*8/1000
 193 leecher83$dlspeed <- leecher83$dlspeed*8/1000
 194 leecher84$dlspeed <- leecher84$dlspeed*8/1000
 195 leecher85$dlspeed <- leecher85$dlspeed*8/1000
 196 leecher86$dlspeed <- leecher86$dlspeed*8/1000
 197 leecher87$dlspeed <- leecher87$dlspeed*8/1000
 198 leecher88$dlspeed <- leecher88$dlspeed*8/1000
 199 leecher89$dlspeed <- leecher89$dlspeed*8/1000
 200
 201 # plot dlspeed-percent data
 202 p <- ggplot() +
 203 geom_point(aes(x=leecher01$percent, y=leecher01$dlspeed, label="Leecher 01"), size=1) +
 204 geom_point(aes(x=leecher02$percent, y=leecher02$dlspeed, label="Leecher 02"), size=1) +
 205 geom_point(aes(x=leecher03$percent, y=leecher03$dlspeed, label="Leecher 03"), size=1) +
 206 geom_point(aes(x=leecher04$percent, y=leecher04$dlspeed, label="Leecher 04"), size=1) +
 207 geom_point(aes(x=leecher05$percent, y=leecher05$dlspeed, label="Leecher 05"), size=1) +
 208 geom_point(aes(x=leecher06$percent, y=leecher06$dlspeed, label="Leecher 06"), size=1) +
 209 geom_point(aes(x=leecher07$percent, y=leecher07$dlspeed, label="Leecher 07"), size=1) +
 210 geom_point(aes(x=leecher08$percent, y=leecher08$dlspeed, label="Leecher 08"), size=1) +
 211 geom_point(aes(x=leecher09$percent, y=leecher09$dlspeed, label="Leecher 09"), size=1) +
 212 geom_point(aes(x=leecher10$percent, y=leecher10$dlspeed, label="Leecher 10"), size=1) +
 213 geom_point(aes(x=leecher11$percent, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
 214 geom_point(aes(x=leecher12$percent, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
 215 geom_point(aes(x=leecher13$percent, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
 216 geom_point(aes(x=leecher14$percent, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
 217 geom_point(aes(x=leecher15$percent, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
 218 geom_point(aes(x=leecher16$percent, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
 219 geom_point(aes(x=leecher17$percent, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
 220 geom_point(aes(x=leecher18$percent, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
 221 geom_point(aes(x=leecher19$percent, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
 222 geom_point(aes(x=leecher20$percent, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
 223 geom_point(aes(x=leecher21$percent, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
 224 geom_point(aes(x=leecher22$percent, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
 225 geom_point(aes(x=leecher23$percent, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
 226 geom_point(aes(x=leecher24$percent, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
 227 geom_point(aes(x=leecher25$percent, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
 228 geom_point(aes(x=leecher26$percent, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
 229 geom_point(aes(x=leecher27$percent, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
 230 geom_point(aes(x=leecher28$percent, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
 231 geom_point(aes(x=leecher29$percent, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
 232 geom_point(aes(x=leecher30$percent, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
 233 geom_point(aes(x=leecher31$percent, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
 234 geom_point(aes(x=leecher32$percent, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
 235 geom_point(aes(x=leecher33$percent, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
 236 geom_point(aes(x=leecher34$percent, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
 237 geom_point(aes(x=leecher35$percent, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
 238 geom_point(aes(x=leecher36$percent, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
 239 geom_point(aes(x=leecher37$percent, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
 240 geom_point(aes(x=leecher38$percent, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
 241 geom_point(aes(x=leecher39$percent, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
 242 geom_point(aes(x=leecher40$percent, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
 243 geom_point(aes(x=leecher41$percent, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
 244 geom_point(aes(x=leecher42$percent, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
 245 geom_point(aes(x=leecher43$percent, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
 246 geom_point(aes(x=leecher44$percent, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
 247 geom_point(aes(x=leecher45$percent, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
 248 geom_point(aes(x=leecher46$percent, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
 249 geom_point(aes(x=leecher47$percent, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
 250 geom_point(aes(x=leecher48$percent, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
 251 geom_point(aes(x=leecher49$percent, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
 252 geom_point(aes(x=leecher50$percent, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
 253 geom_point(aes(x=leecher51$percent, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
 254 geom_point(aes(x=leecher52$percent, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
 255 geom_point(aes(x=leecher53$percent, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
 256 geom_point(aes(x=leecher54$percent, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
 257 geom_point(aes(x=leecher55$percent, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
 258 geom_point(aes(x=leecher56$percent, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
 259 geom_point(aes(x=leecher57$percent, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
 260 geom_point(aes(x=leecher58$percent, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
 261 geom_point(aes(x=leecher59$percent, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
 262 geom_point(aes(x=leecher60$percent, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
 263 geom_point(aes(x=leecher61$percent, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
 264 geom_point(aes(x=leecher62$percent, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
 265 geom_point(aes(x=leecher63$percent, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
 266 geom_point(aes(x=leecher64$percent, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
 267 geom_point(aes(x=leecher65$percent, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
 268 geom_point(aes(x=leecher66$percent, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
 269 geom_point(aes(x=leecher67$percent, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
 270 geom_point(aes(x=leecher68$percent, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
 271 geom_point(aes(x=leecher69$percent, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
 272 geom_point(aes(x=leecher70$percent, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
 273 geom_point(aes(x=leecher71$percent, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
 274 geom_point(aes(x=leecher72$percent, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
 275 geom_point(aes(x=leecher73$percent, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
 276 geom_point(aes(x=leecher74$percent, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
 277 geom_point(aes(x=leecher75$percent, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
 278 geom_point(aes(x=leecher76$percent, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
 279 geom_point(aes(x=leecher77$percent, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
 280 geom_point(aes(x=leecher78$percent, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
 281 geom_point(aes(x=leecher79$percent, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
 282 geom_point(aes(x=leecher80$percent, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
 283 geom_point(aes(x=leecher81$percent, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
 284 geom_point(aes(x=leecher82$percent, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
 285 geom_point(aes(x=leecher83$percent, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
 286 geom_point(aes(x=leecher84$percent, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
 287 geom_point(aes(x=leecher85$percent, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
 288 geom_point(aes(x=leecher86$percent, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
 289 geom_point(aes(x=leecher87$percent, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
 290 geom_point(aes(x=leecher88$percent, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
 291 geom_point(aes(x=leecher89$percent, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
 292 theme_bw() +
 293 scale_x_continuous("Percent", limits=c(0, 100), breaks=seq(0, 100, 10)) +
 294 scale_y_continuous("Download speed (Mbit/s)", limits=c(0, 8), breaks=seq(0, 8, 0.5)) +
 295 coord_cartesian() +
 296 scale_colour_manual("Legend") +
 297 opts(title=paste(campaign_name, "test-scenario-pre-post-nop-all: a test swarm (1 Seeder, 89 Leechers), all peers have an 8 Mbit/s upload BW limitation", sep="\n"))
 298
 299 # plot data as an eps file
 300 postscript(paste(target_folder, "test-scenario-pre-post-nop-all-dlspeed-percent.eps", sep="/"))
 301 print(p)
 302 dev.off()
 303
 304 # plot data as an png file
 305 png(paste(target_folder, "test-scenario-pre-post-nop-all-dlspeed-percent.png", sep="/"), width = 1280, height = 800)
 306 print(p)
 307 dev.off()
 308
 309
 310
 311 # plot dlspeed-time data
 312 p <- ggplot() +
 313 geom_point(aes(x=leecher01$time, y=leecher01$dlspeed, label="Leecher 01"), size=1) +
 314 geom_point(aes(x=leecher02$time, y=leecher02$dlspeed, label="Leecher 02"), size=1) +
 315 geom_point(aes(x=leecher03$time, y=leecher03$dlspeed, label="Leecher 03"), size=1) +
 316 geom_point(aes(x=leecher04$time, y=leecher04$dlspeed, label="Leecher 04"), size=1) +
 317 geom_point(aes(x=leecher05$time, y=leecher05$dlspeed, label="Leecher 05"), size=1) +
 318 geom_point(aes(x=leecher06$time, y=leecher06$dlspeed, label="Leecher 06"), size=1) +
 319 geom_point(aes(x=leecher07$time, y=leecher07$dlspeed, label="Leecher 07"), size=1) +
 320 geom_point(aes(x=leecher08$time, y=leecher08$dlspeed, label="Leecher 08"), size=1) +
 321 geom_point(aes(x=leecher09$time, y=leecher09$dlspeed, label="Leecher 09"), size=1) +
 322 geom_point(aes(x=leecher10$time, y=leecher10$dlspeed, label="Leecher 10"), size=1) +
 323 geom_point(aes(x=leecher11$time, y=leecher11$dlspeed, label="Leecher 11"), size=1) +
 324 geom_point(aes(x=leecher12$time, y=leecher12$dlspeed, label="Leecher 12"), size=1) +
 325 geom_point(aes(x=leecher13$time, y=leecher13$dlspeed, label="Leecher 13"), size=1) +
 326 geom_point(aes(x=leecher14$time, y=leecher14$dlspeed, label="Leecher 14"), size=1) +
 327 geom_point(aes(x=leecher15$time, y=leecher15$dlspeed, label="Leecher 15"), size=1) +
 328 geom_point(aes(x=leecher16$time, y=leecher16$dlspeed, label="Leecher 16"), size=1) +
 329 geom_point(aes(x=leecher17$time, y=leecher17$dlspeed, label="Leecher 17"), size=1) +
 330 geom_point(aes(x=leecher18$time, y=leecher18$dlspeed, label="Leecher 18"), size=1) +
 331 geom_point(aes(x=leecher19$time, y=leecher19$dlspeed, label="Leecher 19"), size=1) +
 332 geom_point(aes(x=leecher20$time, y=leecher20$dlspeed, label="Leecher 20"), size=1) +
 333 geom_point(aes(x=leecher21$time, y=leecher21$dlspeed, label="Leecher 21"), size=1) +
 334 geom_point(aes(x=leecher22$time, y=leecher22$dlspeed, label="Leecher 22"), size=1) +
 335 geom_point(aes(x=leecher23$time, y=leecher23$dlspeed, label="Leecher 23"), size=1) +
 336 geom_point(aes(x=leecher24$time, y=leecher24$dlspeed, label="Leecher 24"), size=1) +
 337 geom_point(aes(x=leecher25$time, y=leecher25$dlspeed, label="Leecher 25"), size=1) +
 338 geom_point(aes(x=leecher26$time, y=leecher26$dlspeed, label="Leecher 26"), size=1) +
 339 geom_point(aes(x=leecher27$time, y=leecher27$dlspeed, label="Leecher 27"), size=1) +
 340 geom_point(aes(x=leecher28$time, y=leecher28$dlspeed, label="Leecher 28"), size=1) +
 341 geom_point(aes(x=leecher29$time, y=leecher29$dlspeed, label="Leecher 29"), size=1) +
 342 geom_point(aes(x=leecher30$time, y=leecher30$dlspeed, label="Leecher 30"), size=1) +
 343 geom_point(aes(x=leecher31$time, y=leecher31$dlspeed, label="Leecher 31"), size=1) +
 344 geom_point(aes(x=leecher32$time, y=leecher32$dlspeed, label="Leecher 32"), size=1) +
 345 geom_point(aes(x=leecher33$time, y=leecher33$dlspeed, label="Leecher 33"), size=1) +
 346 geom_point(aes(x=leecher34$time, y=leecher34$dlspeed, label="Leecher 34"), size=1) +
 347 geom_point(aes(x=leecher35$time, y=leecher35$dlspeed, label="Leecher 35"), size=1) +
 348 geom_point(aes(x=leecher36$time, y=leecher36$dlspeed, label="Leecher 36"), size=1) +
 349 geom_point(aes(x=leecher37$time, y=leecher37$dlspeed, label="Leecher 37"), size=1) +
 350 geom_point(aes(x=leecher38$time, y=leecher38$dlspeed, label="Leecher 38"), size=1) +
 351 geom_point(aes(x=leecher39$time, y=leecher39$dlspeed, label="Leecher 39"), size=1) +
 352 geom_point(aes(x=leecher40$time, y=leecher40$dlspeed, label="Leecher 40"), size=1) +
 353 geom_point(aes(x=leecher41$time, y=leecher41$dlspeed, label="Leecher 41"), size=1) +
 354 geom_point(aes(x=leecher42$time, y=leecher42$dlspeed, label="Leecher 42"), size=1) +
 355 geom_point(aes(x=leecher43$time, y=leecher43$dlspeed, label="Leecher 43"), size=1) +
 356 geom_point(aes(x=leecher44$time, y=leecher44$dlspeed, label="Leecher 44"), size=1) +
 357 geom_point(aes(x=leecher45$time, y=leecher45$dlspeed, label="Leecher 45"), size=1) +
 358 geom_point(aes(x=leecher46$time, y=leecher46$dlspeed, label="Leecher 46"), size=1) +
 359 geom_point(aes(x=leecher47$time, y=leecher47$dlspeed, label="Leecher 47"), size=1) +
 360 geom_point(aes(x=leecher48$time, y=leecher48$dlspeed, label="Leecher 48"), size=1) +
 361 geom_point(aes(x=leecher49$time, y=leecher49$dlspeed, label="Leecher 49"), size=1) +
 362 geom_point(aes(x=leecher50$time, y=leecher50$dlspeed, label="Leecher 50"), size=1) +
 363 geom_point(aes(x=leecher51$time, y=leecher51$dlspeed, label="Leecher 51"), size=1) +
 364 geom_point(aes(x=leecher52$time, y=leecher52$dlspeed, label="Leecher 52"), size=1) +
 365 geom_point(aes(x=leecher53$time, y=leecher53$dlspeed, label="Leecher 53"), size=1) +
 366 geom_point(aes(x=leecher54$time, y=leecher54$dlspeed, label="Leecher 54"), size=1) +
 367 geom_point(aes(x=leecher55$time, y=leecher55$dlspeed, label="Leecher 55"), size=1) +
 368 geom_point(aes(x=leecher56$time, y=leecher56$dlspeed, label="Leecher 56"), size=1) +
 369 geom_point(aes(x=leecher57$time, y=leecher57$dlspeed, label="Leecher 57"), size=1) +
 370 geom_point(aes(x=leecher58$time, y=leecher58$dlspeed, label="Leecher 58"), size=1) +
 371 geom_point(aes(x=leecher59$time, y=leecher59$dlspeed, label="Leecher 59"), size=1) +
 372 geom_point(aes(x=leecher60$time, y=leecher60$dlspeed, label="Leecher 60"), size=1) +
 373 geom_point(aes(x=leecher61$time, y=leecher61$dlspeed, label="Leecher 61"), size=1) +
 374 geom_point(aes(x=leecher62$time, y=leecher62$dlspeed, label="Leecher 62"), size=1) +
 375 geom_point(aes(x=leecher63$time, y=leecher63$dlspeed, label="Leecher 63"), size=1) +
 376 geom_point(aes(x=leecher64$time, y=leecher64$dlspeed, label="Leecher 64"), size=1) +
 377 geom_point(aes(x=leecher65$time, y=leecher65$dlspeed, label="Leecher 65"), size=1) +
 378 geom_point(aes(x=leecher66$time, y=leecher66$dlspeed, label="Leecher 66"), size=1) +
 379 geom_point(aes(x=leecher67$time, y=leecher67$dlspeed, label="Leecher 67"), size=1) +
 380 geom_point(aes(x=leecher68$time, y=leecher68$dlspeed, label="Leecher 68"), size=1) +
 381 geom_point(aes(x=leecher69$time, y=leecher69$dlspeed, label="Leecher 69"), size=1) +
 382 geom_point(aes(x=leecher70$time, y=leecher70$dlspeed, label="Leecher 70"), size=1) +
 383 geom_point(aes(x=leecher71$time, y=leecher71$dlspeed, label="Leecher 71"), size=1) +
 384 geom_point(aes(x=leecher72$time, y=leecher72$dlspeed, label="Leecher 72"), size=1) +
 385 geom_point(aes(x=leecher73$time, y=leecher73$dlspeed, label="Leecher 73"), size=1) +
 386 geom_point(aes(x=leecher74$time, y=leecher74$dlspeed, label="Leecher 74"), size=1) +
 387 geom_point(aes(x=leecher75$time, y=leecher75$dlspeed, label="Leecher 75"), size=1) +
 388 geom_point(aes(x=leecher76$time, y=leecher76$dlspeed, label="Leecher 76"), size=1) +
 389 geom_point(aes(x=leecher77$time, y=leecher77$dlspeed, label="Leecher 77"), size=1) +
 390 geom_point(aes(x=leecher78$time, y=leecher78$dlspeed, label="Leecher 78"), size=1) +
 391 geom_point(aes(x=leecher79$time, y=leecher79$dlspeed, label="Leecher 79"), size=1) +
 392 geom_point(aes(x=leecher80$time, y=leecher80$dlspeed, label="Leecher 80"), size=1) +
 393 geom_point(aes(x=leecher81$time, y=leecher81$dlspeed, label="Leecher 81"), size=1) +
 394 geom_point(aes(x=leecher82$time, y=leecher82$dlspeed, label="Leecher 82"), size=1) +
 395 geom_point(aes(x=leecher83$time, y=leecher83$dlspeed, label="Leecher 83"), size=1) +
 396 geom_point(aes(x=leecher84$time, y=leecher84$dlspeed, label="Leecher 84"), size=1) +
 397 geom_point(aes(x=leecher85$time, y=leecher85$dlspeed, label="Leecher 85"), size=1) +
 398 geom_point(aes(x=leecher86$time, y=leecher86$dlspeed, label="Leecher 86"), size=1) +
 399 geom_point(aes(x=leecher87$time, y=leecher87$dlspeed, label="Leecher 87"), size=1) +
 400 geom_point(aes(x=leecher88$time, y=leecher88$dlspeed, label="Leecher 88"), size=1) +
 401 geom_point(aes(x=leecher89$time, y=leecher89$dlspeed, label="Leecher 89"), size=1) +
 402 theme_bw() +
 403 scale_x_continuous("Time(s)") +
 404 scale_y_continuous("Download speed (Mbit/s)", limits=c(0, 8), breaks=seq(0, 8, 0.5)) +
 405 coord_cartesian() +
 406 scale_colour_manual("Legend") +
 407 opts(title=paste(campaign_name, "test-scenario-pre-post-nop-all: a test swarm (1 Seeder, 89 Leechers), all peers have an 8 Mbit/s upload BW limitation", sep="\n"))
 408
 409 # plot data as an eps file
 410 postscript(paste(target_folder, "test-scenario-pre-post-nop-all-dlspeed-time.eps", sep="/"))
 411 print(p)
 412 dev.off()
 413
 414 # plot data as an png file
 415 png(paste(target_folder, "test-scenario-pre-post-nop-all-dlspeed-time.png", sep="/"), width = 1280, height = 800)
 416 print(p)
 417 dev.off()