scale_y_continuous("Download speed (Mbit/s)", limits=c(0, 8), breaks=seq(0, 8, 0.5)) +
coord_cartesian() +
scale_colour_manual("Legend") +
-opts(title=paste(campaign_name, "Scenario-rd: a test swarm (1 Seeder, 1 Leecher), all peers have an 8 Mbit/s BW", sep="\n"))
+opts(title=paste(campaign_name, "scenario-pre-post: a test swarm (1 Seeder, 1 Leecher), all peers have an 8 Mbit/s BW", sep="\n"))
# plot data as an eps file
postscript(paste(target_folder, "scenario-pre-post-dlspeed-percent.eps", sep="/"))
dev.off()
# plot data as an png file
-png(paste(target_folder, "scenario-rd-dlspeed-percent.png", sep="/"), width = 1280, height = 800)
+png(paste(target_folder, "scenario-pre-post-dlspeed-percent.png", sep="/"), width = 1280, height = 800)
print(p)
dev.off()
scale_y_continuous("Download speed (Mbit/s)", limits=c(0, 8), breaks=seq(0, 8, 0.5)) +
coord_cartesian() +
scale_colour_manual("Legend") +
-opts(title=paste(campaign_name, "Scenario-rd: a test swarm (1 Seeder, 1 Leecher), all peers have an 8 Mbit/s BW", sep="\n"))
+opts(title=paste(campaign_name, "scenario-pre-post: a test swarm (1 Seeder, 1 Leecher), all peers have an 8 Mbit/s BW", sep="\n"))
# plot data as an eps file
-postscript(paste(target_folder, "scenario-rd-dlspeed-time.eps", sep="/"))
+postscript(paste(target_folder, "scenario-pre-post-dlspeed-time.eps", sep="/"))
print(p)
dev.off()
# plot data as an png file
-png(paste(target_folder, "scenario-rd-dlspeed-time.png", sep="/"), width = 1280, height = 800)
+png(paste(target_folder, "scenario-pre-post-dlspeed-time.png", sep="/"), width = 1280, height = 800)
print(p)
dev.off()