axis(1,at=c(1,2,3,4,5),labels=c("1-0-0 [1]", "2-0-1 [3]", "5-1-2 [8]", "10-2-4 [16]", "50-10-20 [80]"))
text(rep(c(1,2,3,4,5), 3), data.modif, data.text.text, pos=4, col = colors.text, cex=0.9)
legend("topleft", inset=.02, title="Veľkosť klastra", c("1", "3", "5", "9"), horiz=TRUE, cex=0.8, pch=pch_legend)
legend("top", inset=.02, title="Nastavenie producenta", c("Tranzakcie"), col=colors, horiz=FALSE, cex=0.8, lty = 1, lwd = 1.3)
data
setwd("~/Dropbox/results-dipl/producer")
data <- read.csv("producer_plot_trans.csv")
data <- data / 1024
data.text <- unlist(data)
data.modif <- data.text
data.modif[6:10] <- data.modif[6:10] + (data.modif[6:10] * 0.3)
data.modif[11:15] <- data.modif[11:15] + (data.modif[11:15] * 0.1)
data.text.text <- format(round(data.text, 2), decimal.mark = ",")
ymin <- min(data)
ymax <- max(data)
colors <- c("indianred")
colors.text <- colors
pch_1 <- 19
pch_3 <- 15
pch_5 <- 17
pch_9 <- 18
pch_all <- c(pch_1, pch_3, pch_5, pch_9)
pch_legend <- c(pch_1, pch_3, pch_5, pch_9)
matplot(data,
#main="",
#sub="",
xlab="Rozdelenie do tém", ylab="Rýchlosť posielania producenta [kB/s]",
xlim=c(1, 5.3), ylim=c(ymin, ymax),
type="o", pch=pch_all, lty = 3, lwd = 1,
log="y",
col=colors,
xaxt="n")
axis(1,at=c(1,2,3,4,5),labels=c("1-0-0 [1]", "2-0-1 [3]", "5-1-2 [8]", "10-2-4 [16]", "50-10-20 [80]"))
data <- read.csv("producer_plot_trans.csv")
data <- data
data.text <- unlist(data)
data.modif <- data.text
data.modif[6:10] <- data.modif[6:10] + (data.modif[6:10] * 0.3)
data.modif[11:15] <- data.modif[11:15] + (data.modif[11:15] * 0.1)
data.text.text <- format(round(data.text, 2), decimal.mark = ",")
ymin <- min(data)
ymax <- max(data)
colors <- c("indianred")
colors.text <- colors
pch_1 <- 19
pch_3 <- 15
pch_5 <- 17
pch_9 <- 18
pch_all <- c(pch_1, pch_3, pch_5, pch_9)
pch_legend <- c(pch_1, pch_3, pch_5, pch_9)
matplot(data,
#main="",
#sub="",
xlab="Rozdelenie do tém", ylab="Rýchlosť posielania producenta [kB/s]",
xlim=c(1, 5.3), ylim=c(ymin, ymax),
type="o", pch=pch_all, lty = 3, lwd = 1,
log="y",
col=colors,
xaxt="n")
axis(1,at=c(1,2,3,4,5),labels=c("1-0-0 [1]", "2-0-1 [3]", "5-1-2 [8]", "10-2-4 [16]", "50-10-20 [80]"))
text(rep(c(1,2,3,4,5), 3), data.modif, data.text.text, pos=4, col = colors.text, cex=0.9)
legend("topleft", inset=.02, title="Veľkosť klastra", c("1", "3", "5", "9"), horiz=TRUE, cex=0.8, pch=pch_legend)
legend("top", inset=.02, title="Nastavenie producenta", c("Tranzakcie"), col=colors, horiz=FALSE, cex=0.8, lty = 1, lwd = 1.3)
data <- read.csv("producer_plot_trans.csv")
data <- data
data.text <- unlist(data)
data.modif <- data.text
data.modif[6:10] <- data.modif[6:10] + (data.modif[6:10] * 0.3)
data.modif[11:15] <- data.modif[11:15] + (data.modif[11:15] * 0.1)
data.text.text <- format(round(data.text, 2), decimal.mark = ",")
ymin <- min(data)
ymax <- max(data)
colors <- c("indianred")
colors.text <- colors
pch_1 <- 19
pch_3 <- 15
pch_5 <- 17
pch_9 <- 18
pch_all <- c(pch_1, pch_3, pch_5, pch_9)
pch_legend <- c(pch_1, pch_3, pch_5, pch_9)
matplot(data,
#main="",
#sub="",
xlab="Rozdelenie do tém", ylab="Rýchlosť posielania producenta [msg/s]",
xlim=c(1, 5.3), ylim=c(ymin, ymax),
type="o", pch=pch_all, lty = 3, lwd = 1,
log="y",
col=colors,
xaxt="n")
axis(1,at=c(1,2,3,4,5),labels=c("1-0-0 [1]", "2-0-1 [3]", "5-1-2 [8]", "10-2-4 [16]", "50-10-20 [80]"))
text(rep(c(1,2,3,4,5), 3), data.modif, data.text.text, pos=4, col = colors.text, cex=0.9)
legend("topleft", inset=.02, title="Veľkosť klastra", c("1", "3", "5", "9"), horiz=TRUE, cex=0.8, pch=pch_legend)
legend("top", inset=.02, title="Nastavenie producenta", c("Tranzakcie"), col=colors, horiz=FALSE, cex=0.8, lty = 1, lwd = 1.3)
data <- read.csv("producer_plot_trans.csv")
data <- data
data.text <- unlist(data)
data.modif <- data.text
data.modif[6:10] <- data.modif[6:10] + (data.modif[6:10] * 0.3)
data.modif[11:15] <- data.modif[11:15] + (data.modif[11:15] * 0.1)
data.text.text <- format(round(data.text), decimal.mark = ",")
ymin <- min(data)
ymax <- max(data)
colors <- c("indianred")
colors.text <- colors
pch_1 <- 19
pch_3 <- 15
pch_5 <- 17
pch_9 <- 18
pch_all <- c(pch_1, pch_3, pch_5, pch_9)
pch_legend <- c(pch_1, pch_3, pch_5, pch_9)
matplot(data,
#main="",
#sub="",
xlab="Rozdelenie do tém", ylab="Rýchlosť posielania producenta [msg/s]",
xlim=c(1, 5.3), ylim=c(ymin, ymax),
type="o", pch=pch_all, lty = 3, lwd = 1,
log="y",
col=colors,
xaxt="n")
axis(1,at=c(1,2,3,4,5),labels=c("1-0-0 [1]", "2-0-1 [3]", "5-1-2 [8]", "10-2-4 [16]", "50-10-20 [80]"))
text(rep(c(1,2,3,4,5), 3), data.modif, data.text.text, pos=4, col = colors.text, cex=0.9)
legend("topleft", inset=.02, title="Veľkosť klastra", c("1", "3", "5", "9"), horiz=TRUE, cex=0.8, pch=pch_legend)
legend("top", inset=.02, title="Nastavenie producenta", c("Tranzakcie"), col=colors, horiz=FALSE, cex=0.8, lty = 1, lwd = 1.3)
matplot(data,
#main="",
#sub="",
xlab="Rozdelenie do tém", ylab="Rýchlosť posielania producenta [msg/s]",
xlim=c(1, 5.1), ylim=c(ymin, ymax),
type="o", pch=pch_all, lty = 3, lwd = 1,
log="y",
col=colors,
xaxt="n")
axis(1,at=c(1,2,3,4,5),labels=c("1-0-0 [1]", "2-0-1 [3]", "5-1-2 [8]", "10-2-4 [16]", "50-10-20 [80]"))
text(rep(c(1,2,3,4,5), 3), data.modif, data.text.text, pos=4, col = colors.text, cex=0.9)
matplot(data,
#main="",
#sub="",
xlab="Rozdelenie do tém", ylab="Rýchlosť posielania producenta [msg/s]",
xlim=c(1, 5.2), ylim=c(ymin, ymax),
type="o", pch=pch_all, lty = 3, lwd = 1,
log="y",
col=colors,
xaxt="n")
axis(1,at=c(1,2,3,4,5),labels=c("1-0-0 [1]", "2-0-1 [3]", "5-1-2 [8]", "10-2-4 [16]", "50-10-20 [80]"))
text(rep(c(1,2,3,4,5), 3), data.modif, data.text.text, pos=4, col = colors.text, cex=0.9)
legend("topleft", inset=.02, title="Veľkosť klastra", c("1", "3", "5", "9"), horiz=TRUE, cex=0.8, pch=pch_legend)
legend("top", inset=.02, title="Nastavenie producenta", c("Tranzakcie"), col=colors, horiz=FALSE, cex=0.8, lty = 1, lwd = 1.3)
data <- read.csv("producer_plot_all.csv")
data <- data / 1024
data.text <- round(unlist(data))
ymin <- min(data)
ymax <- max(data)
colors <- c("seagreen4")
colors.text <- colors
pch_1 <- 19
pch_3 <- 15
pch_5 <- 17
pch_9 <- 18
data <- read.csv("producer_plot_all.csv")
data <- data / 1024
data.text <- round(unlist(data))
ymin <- min(data)
ymax <- max(data)
colors <- c("seagreen4")
colors.text <- colors
pch_1 <- 19
pch_3 <- 15
pch_5 <- 17
pch_9 <- 18
pch_all <- c(pch_1, pch_3, pch_5, pch_9)
pch_legend <- c(pch_1, pch_3, pch_5, pch_9)
matplot(data,
#main="",
#sub="",
xlab="Rozdelenie do tém", ylab="Rýchlosť posielania producenta [kB/s]",
xlim=c(1, 5.3), ylim=c(ymin, ymax),
type="o", pch=pch_all, lty = 3, lwd = 1,
#log="y",
col=colors,
xaxt="n")
axis(1,at=c(1,2,3,4,5),labels=c("1-0-0 [1]", "2-0-1 [3]", "5-1-2 [8]", "10-2-4 [16]", "50-10-20 [80]"))
text(rep(c(1,2,3,4,5), 3), data.text, data.text, pos=4, col = colors.text, cex=0.9)
data <- read.csv("producer_plot_all.csv")
data <- data
data.text <- round(unlist(data))
ymin <- min(data)
ymax <- max(data)
colors <- c("seagreen4")
colors.text <- colors
pch_1 <- 19
pch_3 <- 15
pch_5 <- 17
pch_9 <- 18
pch_all <- c(pch_1, pch_3, pch_5, pch_9)
pch_legend <- c(pch_1, pch_3, pch_5, pch_9)
matplot(data,
#main="",
#sub="",
xlab="Rozdelenie do tém", ylab="Rýchlosť posielania producenta [kB/s]",
xlim=c(1, 5.3), ylim=c(ymin, ymax),
type="o", pch=pch_all, lty = 3, lwd = 1,
#log="y",
col=colors,
xaxt="n")
axis(1,at=c(1,2,3,4,5),labels=c("1-0-0 [1]", "2-0-1 [3]", "5-1-2 [8]", "10-2-4 [16]", "50-10-20 [80]"))
text(rep(c(1,2,3,4,5), 3), data.text, data.text, pos=4, col = colors.text, cex=0.9)
legend("topleft", inset=.02, title="Veľkosť klastra", c("1", "3", "5", "9"), horiz=TRUE, cex=0.8, pch=pch_legend)
legend("topright", inset=.2, title="Nastavenie producenta", c("ACKS=all"), col=colors, horiz=FALSE, cex=0.8, lty = 1, lwd = 1.3)
legend("topleft", inset=.2, title="Veľkosť klastra", c("1", "3", "5", "9"), horiz=TRUE, cex=0.8, pch=pch_legend)
data <- read.csv("producer_plot_all.csv")
data <- data
data.text <- round(unlist(data))
ymin <- min(data)
ymax <- max(data)
colors <- c("seagreen4")
colors.text <- colors
pch_1 <- 19
pch_3 <- 15
pch_5 <- 17
pch_9 <- 18
pch_all <- c(pch_1, pch_3, pch_5, pch_9)
pch_legend <- c(pch_1, pch_3, pch_5, pch_9)
matplot(data,
#main="",
#sub="",
xlab="Rozdelenie do tém", ylab="Rýchlosť posielania producenta [kB/s]",
xlim=c(1, 5.3), ylim=c(ymin, ymax),
type="o", pch=pch_all, lty = 3, lwd = 1,
#log="y",
col=colors,
xaxt="n")
axis(1,at=c(1,2,3,4,5),labels=c("1-0-0 [1]", "2-0-1 [3]", "5-1-2 [8]", "10-2-4 [16]", "50-10-20 [80]"))
text(rep(c(1,2,3,4,5), 3), data.text, data.text, pos=4, col = colors.text, cex=0.9)
legend("topleft", inset=.2, title="Veľkosť klastra", c("1", "3", "5", "9"), horiz=TRUE, cex=0.8, pch=pch_legend)
legend("topright", inset=.2, title="Nastavenie producenta", c("ACKS=all"), col=colors, horiz=FALSE, cex=0.8, lty = 1, lwd = 1.3)
data <- read.csv("producer_plot_all.csv")
data <- data
data.text <- round(unlist(data))
ymin <- min(data)
ymax <- max(data)
colors <- c("seagreen4")
colors.text <- colors
pch_1 <- 19
pch_3 <- 15
pch_5 <- 17
pch_9 <- 18
pch_all <- c(pch_1, pch_3, pch_5, pch_9)
pch_legend <- c(pch_1, pch_3, pch_5, pch_9)
matplot(data,
#main="",
#sub="",
xlab="Rozdelenie do tém", ylab="Rýchlosť posielania producenta [msg/s]",
xlim=c(1, 5.3), ylim=c(ymin, ymax),
type="o", pch=pch_all, lty = 3, lwd = 1,
#log="y",
col=colors,
xaxt="n")
axis(1,at=c(1,2,3,4,5),labels=c("1-0-0 [1]", "2-0-1 [3]", "5-1-2 [8]", "10-2-4 [16]", "50-10-20 [80]"))
text(rep(c(1,2,3,4,5), 3), data.text, data.text, pos=4, col = colors.text, cex=0.9)
legend("topleft", inset=.2, title="Veľkosť klastra", c("1", "3", "5", "9"), horiz=TRUE, cex=0.8, pch=pch_legend)
legend("topright", inset=.2, title="Nastavenie producenta", c("ACKS=all"), col=colors, horiz=FALSE, cex=0.8, lty = 1, lwd = 1.3)
data <- read.csv("producer_plot_all.csv")
data <- data
data.text <- round(unlist(data))
ymin <- min(data)
ymax <- max(data)
colors <- c("seagreen4")
colors.text <- colors
pch_1 <- 19
pch_3 <- 15
pch_5 <- 17
pch_9 <- 18
pch_all <- c(pch_1, pch_3, pch_5, pch_9)
pch_legend <- c(pch_1, pch_3, pch_5, pch_9)
matplot(data,
#main="",
#sub="",
xlab="Rozdelenie do tém", ylab="Rýchlosť posielania producenta [msg/s]",
xlim=c(1, 5.3), ylim=c(ymin, ymax),
type="o", pch=pch_all, lty = 3, lwd = 1,
#log="y",
col=colors,
xaxt="n")
axis(1,at=c(1,2,3,4,5),labels=c("1-0-0 [1]", "2-0-1 [3]", "5-1-2 [8]", "10-2-4 [16]", "50-10-20 [80]"))
text(rep(c(1,2,3,4,5), 3), data.text, data.text, pos=4, col = colors.text, cex=0.9)
legend("topleft", inset=.18, title="Veľkosť klastra", c("1", "3", "5", "9"), horiz=TRUE, cex=0.8, pch=pch_legend)
legend("topright", inset=.18, title="Nastavenie producenta", c("ACKS=all"), col=colors, horiz=FALSE, cex=0.8, lty = 1, lwd = 1.3)
data <- read.csv("producer_plot_one.csv")
data <- data / 1024
data.text <- round(unlist(data))
ymin <- min(data)
ymax <- max(data)
colors <- c("royalblue")
data <- read.csv("producer_plot_one.csv")
data <- data / 1024
data.text <- round(unlist(data))
ymin <- min(data)
ymax <- max(data)
data <- read.csv("producer_plot_one.csv")
data <- data
data.text <- round(unlist(data))
ymin <- min(data)
ymax <- max(data)
colors <- c("royalblue")
colors.text <- colors
pch_1 <- 19
pch_3 <- 15
pch_5 <- 17
pch_9 <- 18
pch_all <- c(pch_1, pch_3, pch_5, pch_9)
pch_legend <- c(pch_1, pch_3, pch_5, pch_9)
matplot(data,
#main="",
#sub="",
xlab="Rozdelenie do tém", ylab="Rýchlosť posielania producenta [kB/s]",
xlim=c(1, 5.3), ylim=c(ymin, ymax),
type="o", pch=pch_all, lty = 3, lwd = 1,
log="y",
col=colors,
xaxt="n")
axis(1,at=c(1,2,3,4,5),labels=c("1-0-0 [1]", "2-0-1 [3]", "5-1-2 [8]", "10-2-4 [16]", "50-10-20 [80]"))
text(rep(c(1,2,3,4,5), 3), data.text, data.text, pos=4, col = colors.text, cex=0.9)
legend("topleft", inset=.02, title="Veľkosť klastra", c("1", "3", "5", "9"), horiz=TRUE, cex=0.8, pch=pch_legend)
legend("top", inset=.02, title="Nastavenie producenta", c("ACKS=1"), col=colors, horiz=FALSE, cex=0.8, lty = 1, lwd = 1.3)
data <- read.csv("producer_plot_one.csv")
data <- data
data.text <- round(unlist(data))
ymin <- min(data)
ymax <- max(data)
colors <- c("royalblue")
colors.text <- colors
pch_1 <- 19
pch_3 <- 15
pch_5 <- 17
pch_9 <- 18
pch_all <- c(pch_1, pch_3, pch_5, pch_9)
pch_legend <- c(pch_1, pch_3, pch_5, pch_9)
matplot(data,
#main="",
#sub="",
xlab="Rozdelenie do tém", ylab="Rýchlosť posielania producenta [msg/s]",
xlim=c(1, 5.3), ylim=c(ymin, ymax),
type="o", pch=pch_all, lty = 3, lwd = 1,
log="y",
col=colors,
xaxt="n")
axis(1,at=c(1,2,3,4,5),labels=c("1-0-0 [1]", "2-0-1 [3]", "5-1-2 [8]", "10-2-4 [16]", "50-10-20 [80]"))
text(rep(c(1,2,3,4,5), 3), data.text, data.text, pos=4, col = colors.text, cex=0.9)
legend("topleft", inset=.02, title="Veľkosť klastra", c("1", "3", "5", "9"), horiz=TRUE, cex=0.8, pch=pch_legend)
legend("top", inset=.02, title="Nastavenie producenta", c("ACKS=1"), col=colors, horiz=FALSE, cex=0.8, lty = 1, lwd = 1.3)
data <- read.csv("producer_plot_overall.csv")
data <- data
ymin <- min(data)
ymax <- max(data)+1
colors <- c("seagreen4","royalblue","indianred")
pch_1 <- 19
pch_3 <- 15
pch_5 <- 17
pch_9 <- 18
pch_all <- c(rep(pch_1,3), rep(pch_3,3), rep(pch_5,3), rep(pch_9,3))
pch_legend <- c(pch_1, pch_3, pch_5, pch_9)
matplot(data,
#main="",
#sub="",
xlab="Rozdelenie do tém", ylab="Rýchlosť posielania producenta [msg/s]",
xlim=c(1, 5), ylim=c(ymin, ymax),
type="o", pch=pch_all, lty = 3, lwd = 1.3,
col=colors,
xaxt="n")
axis(1,at=c(1,2,3,4,5),labels=c("1-0-0 [1]", "2-0-1 [3]", "5-1-2 [8]", "10-2-4 [16]", "50-10-20 [80]"))
legend("topleft", inset=.02, title="Nastavenie producenta", c("ACKS=all","ACKS=1","Tranzakcie"), col=colors, horiz=FALSE, cex=0.8, lty = 1, lwd = 1.3)
legend("topright", inset=.02, title="Veľkosť klastra", c("1", "3", "5", "9"), horiz=TRUE, cex=0.8, pch=pch_legend)
data <- read.csv("producer_plot_overall.csv")
data <- data
ymin <- min(data)
ymax <- max(data)+10000
colors <- c("seagreen4","royalblue","indianred")
pch_1 <- 19
pch_3 <- 15
pch_5 <- 17
pch_9 <- 18
pch_all <- c(rep(pch_1,3), rep(pch_3,3), rep(pch_5,3), rep(pch_9,3))
pch_legend <- c(pch_1, pch_3, pch_5, pch_9)
matplot(data,
#main="",
#sub="",
xlab="Rozdelenie do tém", ylab="Rýchlosť posielania producenta [msg/s]",
xlim=c(1, 5), ylim=c(ymin, ymax),
type="o", pch=pch_all, lty = 3, lwd = 1.3,
col=colors,
xaxt="n")
axis(1,at=c(1,2,3,4,5),labels=c("1-0-0 [1]", "2-0-1 [3]", "5-1-2 [8]", "10-2-4 [16]", "50-10-20 [80]"))
legend("topleft", inset=.02, title="Nastavenie producenta", c("ACKS=all","ACKS=1","Tranzakcie"), col=colors, horiz=FALSE, cex=0.8, lty = 1, lwd = 1.3)
legend("topright", inset=.02, title="Veľkosť klastra", c("1", "3", "5", "9"), horiz=TRUE, cex=0.8, pch=pch_legend)
data <- read.csv("producer_plot_overall.csv")
data <- data
ymin <- min(data)
ymax <- max(data)+12000
colors <- c("seagreen4","royalblue","indianred")
pch_1 <- 19
pch_3 <- 15
pch_5 <- 17
pch_9 <- 18
pch_all <- c(rep(pch_1,3), rep(pch_3,3), rep(pch_5,3), rep(pch_9,3))
pch_legend <- c(pch_1, pch_3, pch_5, pch_9)
matplot(data,
#main="",
#sub="",
xlab="Rozdelenie do tém", ylab="Rýchlosť posielania producenta [msg/s]",
xlim=c(1, 5), ylim=c(ymin, ymax),
type="o", pch=pch_all, lty = 3, lwd = 1.3,
col=colors,
xaxt="n")
axis(1,at=c(1,2,3,4,5),labels=c("1-0-0 [1]", "2-0-1 [3]", "5-1-2 [8]", "10-2-4 [16]", "50-10-20 [80]"))
legend("topleft", inset=.02, title="Nastavenie producenta", c("ACKS=all","ACKS=1","Tranzakcie"), col=colors, horiz=FALSE, cex=0.8, lty = 1, lwd = 1.3)
legend("topright", inset=.02, title="Veľkosť klastra", c("1", "3", "5", "9"), horiz=TRUE, cex=0.8, pch=pch_legend)
data <- read.csv("producer_plot_overall.csv")
data <- data
ymin <- min(data)
ymax <- max(data)+15000
colors <- c("seagreen4","royalblue","indianred")
pch_1 <- 19
pch_3 <- 15
pch_5 <- 17
pch_9 <- 18
pch_all <- c(rep(pch_1,3), rep(pch_3,3), rep(pch_5,3), rep(pch_9,3))
pch_legend <- c(pch_1, pch_3, pch_5, pch_9)
matplot(data,
#main="",
#sub="",
xlab="Rozdelenie do tém", ylab="Rýchlosť posielania producenta [msg/s]",
xlim=c(1, 5), ylim=c(ymin, ymax),
type="o", pch=pch_all, lty = 3, lwd = 1.3,
col=colors,
xaxt="n")
axis(1,at=c(1,2,3,4,5),labels=c("1-0-0 [1]", "2-0-1 [3]", "5-1-2 [8]", "10-2-4 [16]", "50-10-20 [80]"))
legend("topleft", inset=.02, title="Nastavenie producenta", c("ACKS=all","ACKS=1","Tranzakcie"), col=colors, horiz=FALSE, cex=0.8, lty = 1, lwd = 1.3)
legend("topright", inset=.02, title="Veľkosť klastra", c("1", "3", "5", "9"), horiz=TRUE, cex=0.8, pch=pch_legend)
axic(2,at=c(0,20000,400000,600000,800000,100000))
matplot(data,
#main="",
#sub="",
xlab="Rozdelenie do tém", ylab="Rýchlosť posielania producenta [msg/s]",
xlim=c(1, 5), ylim=c(ymin, ymax),
type="o", pch=pch_all, lty = 3, lwd = 1.3,
col=colors,
xaxt="n", yaxt="n")
axis(1,at=c(1,2,3,4,5),labels=c("1-0-0 [1]", "2-0-1 [3]", "5-1-2 [8]", "10-2-4 [16]", "50-10-20 [80]"))
axic(2,at=c(0,20000,400000,600000,800000,100000))
axis(2,at=c(0,20000,400000,600000,800000,100000))
axis(2,at=c(0,20000,40000,60000,80000,100000))
axis(2,at=c(0,20000,40000,60000,80000,100000), labels=c("0", "20k", "40k", "60k"))
axis(2,at=c(0,20000,40000,60000,80000,100000), labels=c("0", "20k", "40k", "60k", "80k", "100k"))
matplot(data,
#main="",
#sub="",
xlab="Rozdelenie do tém", ylab="Rýchlosť posielania producenta [msg/s]",
xlim=c(1, 5), ylim=c(ymin, ymax),
type="o", pch=pch_all, lty = 3, lwd = 1.3,
col=colors,
xaxt="n", yaxt="n")
axis(1,at=c(1,2,3,4,5),labels=c("1-0-0 [1]", "2-0-1 [3]", "5-1-2 [8]", "10-2-4 [16]", "50-10-20 [80]"))
axis(2,at=c(0,20000,40000,60000,80000,100000), labels=c("0", "20k", "40k", "60k", "80k", "100k"))
legend("topleft", inset=.02, title="Nastavenie producenta", c("ACKS=all","ACKS=1","Tranzakcie"), col=colors, horiz=FALSE, cex=0.8, lty = 1, lwd = 1.3)
legend("topright", inset=.02, title="Veľkosť klastra", c("1", "3", "5", "9"), horiz=TRUE, cex=0.8, pch=pch_legend)
axis(2,at=c(0,20000,40000,60000,80000,100000), las=2)
options(scipen = 10)
matplot(data,
#main="",
#sub="",
xlab="Rozdelenie do tém", ylab="Rýchlosť posielania producenta [msg/s]",
xlim=c(1, 5), ylim=c(ymin, ymax),
type="o", pch=pch_all, lty = 3, lwd = 1.3,
col=colors,
xaxt="n", yaxt="n")
axis(1,at=c(1,2,3,4,5),labels=c("1-0-0 [1]", "2-0-1 [3]", "5-1-2 [8]", "10-2-4 [16]", "50-10-20 [80]"))
axis(2,at=c(0,20000,40000,60000,80000,100000), las=2)
options(scipen = 10)
matplot(data,
#main="",
#sub="",
xlab="Rozdelenie do tém", ylab="Rýchlosť posielania producenta [msg/s]",
xlim=c(1, 5), ylim=c(ymin, ymax),
type="o", pch=pch_all, lty = 3, lwd = 1.3,
col=colors,
xaxt="n")
axis(1,at=c(1,2,3,4,5),labels=c("1-0-0 [1]", "2-0-1 [3]", "5-1-2 [8]", "10-2-4 [16]", "50-10-20 [80]"))
legend("topleft", inset=.02, title="Nastavenie producenta", c("ACKS=all","ACKS=1","Tranzakcie"), col=colors, horiz=FALSE, cex=0.8, lty = 1, lwd = 1.3)
legend("topright", inset=.02, title="Veľkosť klastra", c("1", "3", "5", "9"), horiz=TRUE, cex=0.8, pch=pch_legend)
setwd("~/Dropbox/results-dipl/size")
data <- read.csv("size_plot_overall_msg.csv")
data <- data
ymin <- min(data)
ymax <- max(data) + 25
colors <- c("seagreen4","royalblue","indianred")
pch_1 <- 19
pch_3 <- 15
pch_5 <- 17
pch_9 <- 18
pch_all <- c(rep(pch_1,3), rep(pch_3,3), rep(pch_5,3), rep(pch_9,3))
pch_legend <- c(pch_1, pch_3, pch_5, pch_9)
matplot(data,
#main="",
#sub="",
xlab="Rozdelenie do tém", ylab="Rýchlosť posielania producenta [MB/s]",
xlim=c(1, 6), ylim=c(ymin, ymax),
type="o", pch=pch_all, lty = 3, lwd = 1.3,
col=colors,
xaxt="n")
axis(1,at=c(1:6), labels=c("50kB", "100kB", "200kB", "500kB", "1MB", "5MB"))
legend("topleft", inset=.02, title="Nastavenie producenta", c("ACKS=all","ACKS=1","Tranzakcie"), col=colors, horiz=FALSE, cex=0.8, lty = 1, lwd = 1.3)
legend("topright", inset=.02, title="Veľkosť klastra", c("1", "3", "5", "9"), horiz=TRUE, cex=0.8, pch=pch_legend)
