xlab="Veľkosť správ", 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)
setwd("~/Dropbox/results-dipl/size")
data <- read.csv("size_plot_overall.csv")
data <- data / (1024 * 1024)
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)
png("size-overall.png", width = 7, height = 7, units = "cm", res = 300)
matplot(data,
#main="",
#sub="",
xlab="Veľkosť správ", 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)
dev.off()
data <- read.csv("size_plot_overall.csv")
data <- data / (1024 * 1024)
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="Veľkosť správ", 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)
data <- read.csv("size_plot_overall.csv")
data <- data / (1024 * 1024)
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)
png("size-overall.png", width = 1430, height = 1106, res = 150)
matplot(data,
#main="",
#sub="",
xlab="Veľkosť správ", 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)
dev.off()
data <- read.csv("size_plot_overall.csv")
data <- data / (1024 * 1024)
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)
png("size-overall.png", width = 1430, height = 1106, res = 200)
matplot(data,
#main="",
#sub="",
xlab="Veľkosť správ", 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)
dev.off()
data <- read.csv("size_plot_overall.csv")
data <- data / (1024 * 1024)
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)
png("size-overall.png", width = 2048, height = 1575, res = 300)
matplot(data,
#main="",
#sub="",
xlab="Veľkosť správ", 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)
dev.off()
data <- read.csv("size_plot_overall.csv")
data <- data / (1024 * 1024)
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)
png("size-overall.png", width = 2048, height = 1575, res = 250)
matplot(data,
#main="",
#sub="",
xlab="Veľkosť správ", 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)
dev.off()
data <- read.csv("size_plot_overall.csv")
data <- data / (1024 * 1024)
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)
png("size-overall.png", width = 2048, height = 1575, res = 250)
matplot(data,
#main="",
#sub="",
xlab="Veľkosť správ", 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)
dev.off()
data <- read.csv("size_plot_trans.csv")
# change to MB/s
data <- data / (1024*1024)
data.text.values <- round(unlist(data), 2)
data.text <- format(data.text.values, decimal.mark = ",")
ymin <- min(data)
ymax <- max(data) + 10
val <- c(1,2,3,4,5,6)
colors <- rep(c("indianred"), 4)
colors.text <- rep(rep(c("indianred"), 4), each=6)
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)
png("size-trans.png", width = 2048, height = 1575, res = 250)
matplot(data,
#main="",
xlab="Veľkosť správ", ylab="Rýchlosť posielania producenta [MB/s]",
xlim=c(1, 6.25), ylim=c(ymin, ymax),
type="o", pch=pch_all, lty = 3, lwd = 1.3,
log="y",
col=colors,
xaxt="n")
axis(1,at=val,labels=c("50kB", "100kB", "200kB", "500kB", "1MB", "5MB"))
text(rep(val, 3), data.text.values, data.text, pos=4, col = colors.text, cex=0.8)
legend("top", inset=.02, title="Nastavenie producenta", c("Tranzakcie"), col=colors, horiz=FALSE, cex=0.8, lty = 1, lwd = 1.3)
legend("topleft", inset=.02, title="Veľkosť klastra", c("1", "3", "5", "9"), horiz=TRUE, cex=0.8, pch=pch_legend)
dev.off()
data <- read.csv("size_plot_overall.csv")
data <- data / (1024 * 1024)
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)
png("size-overall.png", width = 2048, height = 1575, res = 250)
matplot(data,
#main="",
#sub="",
xlab="Veľkosť správ", 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)
dev.off()
data <- read.csv("size_plot_all.csv")
# change to MB/s
data <- data/(1024*1024)
data.text.values <- round(unlist(data), 2)
data.text <- format(data.text.values, decimal.mark = ",")
ymin <- min(data)
ymax <- max(data) + 10
val <- c(1,2,3,4,5,6)
colors <- rep(c("seagreen4"), 4)
colors.text <- rep(rep(c("seagreen4"), 4), each=6)
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)
png("size-all.png", width = 2048, height = 1575, res = 250)
matplot(data,
#main="",
xlab="Veľkosť správ", ylab="Rýchlosť posielania producenta [MB/s]",
xlim=c(1, 6.25), ylim=c(ymin, ymax),
type="o", pch=pch_all, lty = 3, lwd = 1.3,
#log="y",
col=colors,
xaxt="n")
axis(1,at=val,labels=c("50kB", "100kB", "200kB", "500kB", "1MB", "5MB"))
text(rep(val, 3), data.text.values, data.text, pos=4, col = colors.text, cex=0.8)
legend("top", inset=.02, title="Nastavenie producenta", c("ACKS=all"), col=colors, horiz=FALSE, cex=0.8, lty = 1, lwd = 1.3)
legend("topleft", inset=.02, title="Veľkosť klastra", c("1", "3", "5", "9"), horiz=TRUE, cex=0.8, pch=pch_legend)
dev.off()
data <- read.csv("size_plot_one.csv")
# change to MB/s
data <- data / (1024*1024)
data.text.values <- round(unlist(data), 2)
data.text.modified <- data.text.values
data.text.modified[13:17] <- data.text.modified[13:17] * 1.01
data.text.modified[19:23] <- data.text.modified[19:23] * 1.02
data.text <- format(data.text.values, decimal.mark = ",")
ymin <- min(data)
ymax <- max(data) + 10
val <- c(1:6)
colors <- rep(c("royalblue"), 4)
colors.text <- rep(rep(c("royalblue"), 4), each=6)
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)
png("size-one.png", width = 2048, height = 1575, res = 250)
matplot(data,
#main="",
xlab="Veľkosť správ", ylab="Rýchlosť posielania producenta [MB/s]",
xlim=c(1, 6.25), ylim=c(ymin, ymax),
type="o", pch=pch_all, lty = 3, lwd = 1,
log="y",
col=colors,
xaxt="n")
axis(1,at=val,labels=c("50kB", "100kB", "200kB", "500kB", "1MB", "5MB"))
text(rep(val, 3), data.text.modified, data.text, pos=4, col = colors.text, cex=0.8)
legend("top", inset=.02, title="Nastavenie producenta", c("ACKS=1"), col=colors, horiz=FALSE, cex=0.8, lty = 1, lwd = 1.3)
legend("topleft", inset=.02, title="Veľkosť klastra", c("1", "3", "5", "9"), horiz=TRUE, cex=0.8, pch=pch_legend)
dev.off()
setwd("~/Dropbox/results-dipl/producer")
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.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)
setwd("~/Dropbox/results-dipl/producer")
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)
png("producer-trans.png", width = 2048, height = 1738, res = 250)
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)
dev.off()
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")
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)
png("producer-overall.png", width = 2048, height = 1738, res = 250)
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)
dev.off()
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)
png("producer-one.png", width = 2048, height = 1738, res = 250)
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)
dev.off()
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)
png("producer-all.png", width = 2048, height = 1738, res = 250)
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)
dev.off()
setwd("~/Dropbox/results-dipl/latency")
data <- read.csv("latency_boxplot.csv")
data.aggregated <- aggregate(data$latencies, by=list(Config=data$names), FUN=mean)
data.text.values <- round(unlist(data.aggregated$x), 2)
data.text <- format(data.text.values, decimal.mark = ",")
ymin <- min(data$latencies) + 0.8
ymax <- max(data$latencies)
colors <- c("seagreen2","royalblue","indianred")
colors_dark <- c("seagreen4","royalblue4","indianred4")
#Draw the boxplot, with the number of individuals per group
a <- boxplot(latencies~names,
data=data,
#main="Oneskorenia správ medzi producentom a odberateľom.",
xlab="Počet uzlov v klastri systému Kafka",
ylab="Oneskorenie odberateľa [ms]",
ylim=c(ymin, ymax), yaxt="n",
log="y",
col=colors,
width=rep(0.5,12),
border=colors_dark,
pch=20,
names=c(rep("1", 3), rep("3", 3), rep("5", 3), rep("9", 3))
)
axis(2, at=c(1,2,5,10,20,50,100,200), las=2)
text( c(1:nlevels(data$names)), 0.8, data.text, col = colors_dark, cex=0.8)
legend("topleft", inset=.02, title="Nastavenie Producenta", c("ACKS=all","ACKS=1","Tranzakcie"), fill=colors, horiz=TRUE, cex=0.8)
data <- read.csv("latency_boxplot.csv")
data.aggregated <- aggregate(data$latencies, by=list(Config=data$names), FUN=mean)
data.text.values <- round(unlist(data.aggregated$x), 2)
data.text <- format(data.text.values, decimal.mark = ",")
ymin <- min(data$latencies) + 0.8
ymax <- max(data$latencies)
png("latency.png", width = 2048, height = 1186, res = 200)
colors <- c("seagreen2","royalblue","indianred")
colors_dark <- c("seagreen4","royalblue4","indianred4")
#Draw the boxplot, with the number of individuals per group
a <- boxplot(latencies~names,
data=data,
#main="Oneskorenia správ medzi producentom a odberateľom.",
xlab="Počet uzlov v klastri systému Kafka",
ylab="Oneskorenie odberateľa [ms]",
ylim=c(ymin, ymax), yaxt="n",
log="y",
col=colors,
width=rep(0.5,12),
border=colors_dark,
pch=20,
names=c(rep("1", 3), rep("3", 3), rep("5", 3), rep("9", 3))
)
axis(2, at=c(1,2,5,10,20,50,100,200), las=2)
text( c(1:nlevels(data$names)), 0.8, data.text, col = colors_dark, cex=0.8)
legend("topleft", inset=.02, title="Nastavenie Producenta", c("ACKS=all","ACKS=1","Tranzakcie"), fill=colors, horiz=TRUE, cex=0.8)
dev.off()
