.Rhistory

ergebnisse = read.csv2("Benchmark\\bin\\Release\\results.csv", sep=';',dec='.',row.names = NULL)
View(ergebnisse)
ergebnisse$Size
averages = aggregate(ergebnisse, list(ergebnisse$Size), mean)
averages
ergebnisse
paste(ergebnisse$Solution, " (", ergebnisse$Mode, ")")
paste(ergebnisse$Solution, "(", ergebnisse$Mode, ")")
ergebnisse$Desc = paste(ergebnisse$Solution, "(", ergebnisse$Mode, ")")
ergebnisse
help(melt)
library(plyr)
help(melt)
help(acast)
library("reshape2")
melt(ergebnisse)
melt(ergebnisse, id=c("Size"))
help(ddply)
ergebnisse
ddply(subset(ergebnisse, Phase == "Update"), .(Size, Desc), Time=mean(Time))
ddply(subset(ergebnisse, Phase == "Update"), .(Size, Desc, Mode), Time=mean(Time))
ddply(subset(ergebnisse, Phase == "Update"), .(Size, Desc), Time=mean(Time))
updates = subset(ergebnisse, Phase=="Update")
updates
ddply(updates, c("Size", "Desc"), Time=mean(Time))
help(aggregate)
aggregate(updates, list(ergebnisse$Size, ergebnisse$Desc), mean)
ddply(updates, c("Size", "Desc"), summarize, Time=mean(Time))
updates = subset(ergebnisse, Phase=="Update")
initials = subset(ergebnisse, Phase=="Initial")
averages.updates = ddply(updates, c("Size", "Desc"), summarize, Time=mean(Time))
averages.initial = ddply(initisla, c("Size", "Desc"), summarize, Time=mean(Time))
averages.initial = ddply(initials, c("Size", "Desc"), summarize, Time=mean(Time))
library("reshape2")
library("plyr")
results = read.csv2("Benchmark\\bin\\Release\\results.csv", sep=';',dec='.',row.names = NULL)
results$Version = paste(results$Solution, "(", results$Mode, ")")
updates = subset(results, Phase=="Update")
initials = subset(results, Phase=="Initial")
averages.updates = ddply(updates, c("Size", "Version"), summarize, Time=mean(Time))
averages.initial = ddply(initials, c("Size", "Version"), summarize, Time=mean(Time))
bwTheme <- theme(text=element_text(family="Helvetica", size=16),
panel.background = element_rect(fill="#FFFFFF"),
legend.position="bottom",
legend.direction="horizontal",
panel.grid.major = element_line(size=0.3, colour="#333333"),
panel.grid.minor = element_line(size=0.15, colour="#CCCCCC"),
axis.text.x = element_text(colour="black"),
axis.text.y = element_text(colour="black")
)
plot = ggplot(initials, aes_string(x = "Size", y = "Time")) + geom_line(aes_string(group = "Version", colour = "Version"), size=1)
plot = plot + geom_point(aes_string(shape = "Version", colour="Version"), size=3)
plot = plot + ylab("Time [ms]") + xlab("Size")
plot = plot + bwTheme
plot = plot + scale_x_log10(breaks = 2^seq(0,6), labels=2^seq(0,6))
plot = plot + scale_y_log10()
ggsave(plot, filename = "initials.pdf", width=10, height=5, dpi=192)
plot = ggplot(updates, aes_string(x = "Size", y = "Time")) + geom_line(aes_string(group = "Version", colour = "Version"), size=1)
plot = plot + geom_point(aes_string(shape = "Version", colour="Version"), size=3)
plot = plot + ylab("Time [ms]") + xlab("Size")
plot = plot + bwTheme
plot = plot + scale_x_log10(breaks = 2^seq(0,6), labels=2^seq(0,6))
plot = plot + scale_y_log10()
ggsave(plot, filename = "updates.pdf", width=10, height=5, dpi=192)
library("reshape2")
library("ggplot2")
library("plyr")
results = read.csv2("Benchmark\\bin\\Release\\results.csv", sep=';',dec='.',row.names = NULL)
results$Version = paste(results$Solution, "(", results$Mode, ")")
updates = subset(results, Phase=="Update")
initials = subset(results, Phase=="Initial")
averages.updates = ddply(updates, c("Size", "Version"), summarize, Time=mean(Time))
averages.initial = ddply(initials, c("Size", "Version"), summarize, Time=mean(Time))
bwTheme <- theme(text=element_text(family="Helvetica", size=16),
panel.background = element_rect(fill="#FFFFFF"),
legend.position="bottom",
legend.direction="horizontal",
panel.grid.major = element_line(size=0.3, colour="#333333"),
panel.grid.minor = element_line(size=0.15, colour="#CCCCCC"),
axis.text.x = element_text(colour="black"),
axis.text.y = element_text(colour="black")
)
plot = ggplot(initials, aes_string(x = "Size", y = "Time")) + geom_line(aes_string(group = "Version", colour = "Version"), size=1)
plot = plot + geom_point(aes_string(shape = "Version", colour="Version"), size=3)
plot = plot + ylab("Time [ms]") + xlab("Size")
plot = plot + bwTheme
plot = plot + scale_x_log10(breaks = 2^seq(0,6), labels=2^seq(0,6))
plot = plot + scale_y_log10()
ggsave(plot, filename = "initials.pdf", width=10, height=5, dpi=192)
plot = ggplot(updates, aes_string(x = "Size", y = "Time")) + geom_line(aes_string(group = "Version", colour = "Version"), size=1)
plot = plot + geom_point(aes_string(shape = "Version", colour="Version"), size=3)
plot = plot + ylab("Time [ms]") + xlab("Size")
plot = plot + bwTheme
plot = plot + scale_x_log10(breaks = 2^seq(0,6), labels=2^seq(0,6))
plot = plot + scale_y_log10()
ggsave(plot, filename = "updates.pdf", width=10, height=5, dpi=192)
library("reshape2")
library("ggplot2")
library("plyr")
results = read.csv2("Benchmark\\bin\\Release\\results.csv", sep=';',dec='.',row.names = NULL)
results$Version = paste(results$Solution, "(", results$Mode, ")")
updates = subset(results, Phase=="Update")
initials = subset(results, Phase=="Initial")
averages.updates = ddply(updates, c("Size", "Version"), summarize, Time=mean(Time))
averages.initial = ddply(initials, c("Size", "Version"), summarize, Time=mean(Time))
bwTheme <- theme(text=element_text(family="Helvetica", size=16),
panel.background = element_rect(fill="#FFFFFF"),
legend.position="bottom",
legend.direction="horizontal",
panel.grid.major = element_line(size=0.3, colour="#333333"),
panel.grid.minor = element_line(size=0.15, colour="#CCCCCC"),
axis.text.x = element_text(colour="black"),
axis.text.y = element_text(colour="black")
)
plot = ggplot(averages.initial, aes_string(x = "Size", y = "Time")) + geom_line(aes_string(group = "Version", colour = "Version"), size=1)
plot = plot + geom_point(aes_string(shape = "Version", colour="Version"), size=3)
plot = plot + ylab("Time [ms]") + xlab("Size")
plot = plot + bwTheme
plot = plot + scale_x_log10(breaks = 2^seq(0,6), labels=2^seq(0,6))
plot = plot + scale_y_log10()
ggsave(plot, filename = "initials.pdf", width=10, height=5, dpi=192)
plot = ggplot(averages.updates, aes_string(x = "Size", y = "Time")) + geom_line(aes_string(group = "Version", colour = "Version"), size=1)
plot = plot + geom_point(aes_string(shape = "Version", colour="Version"), size=3)
plot = plot + ylab("Time [ms]") + xlab("Size")
plot = plot + bwTheme
plot = plot + scale_x_log10(breaks = 2^seq(0,6), labels=2^seq(0,6))
plot = plot + scale_y_log10()
ggsave(plot, filename = "updates.pdf", width=10, height=5, dpi=192)
library("reshape2")
library("ggplot2")
library("plyr")
results = read.csv2("Benchmark\\bin\\Release\\results.csv", sep=';',dec='.',row.names = NULL)
results$Version = paste(results$Solution, "(", results$Mode, ")")
updates = subset(results, Phase=="Update")
initials = subset(results, Phase=="Initial")
averages.updates = ddply(updates, c("Size", "Version"), summarize, Time=mean(Time) / 10000)
averages.initial = ddply(initials, c("Size", "Version"), summarize, Time=mean(Time) / 10000)
bwTheme <- theme(text=element_text(family="Helvetica", size=16),
panel.background = element_rect(fill="#FFFFFF"),
legend.position="bottom",
legend.direction="horizontal",
panel.grid.major = element_line(size=0.3, colour="#333333"),
panel.grid.minor = element_line(size=0.15, colour="#CCCCCC"),
axis.text.x = element_text(colour="black"),
axis.text.y = element_text(colour="black")
)
plot = ggplot(averages.initial, aes_string(x = "Size", y = "Time")) + geom_line(aes_string(group = "Version", colour = "Version"), size=1)
plot = plot + geom_point(aes_string(shape = "Version", colour="Version"), size=3)
plot = plot + ylab("Time [ms]") + xlab("Size")
plot = plot + bwTheme
plot = plot + scale_x_log10(breaks = 2^seq(0,6), labels=2^seq(0,6))
plot = plot + scale_y_log10()
ggsave(plot, filename = "initials.pdf", width=10, height=5, dpi=192)
plot = ggplot(averages.updates, aes_string(x = "Size", y = "Time")) + geom_line(aes_string(group = "Version", colour = "Version"), size=1)
plot = plot + geom_point(aes_string(shape = "Version", colour="Version"), size=3)
plot = plot + ylab("Time [ms]") + xlab("Size")
plot = plot + bwTheme
plot = plot + scale_x_log10(breaks = 2^seq(0,6), labels=2^seq(0,6))
plot = plot + scale_y_log10()
ggsave(plot, filename = "updates.pdf", width=10, height=5, dpi=192)
library("reshape2")
library("ggplot2")
library("plyr")
results = read.csv2("Benchmark\\bin\\Release\\results.csv", sep=';',dec='.',row.names = NULL)
results$Version = paste(results$Solution, "(", results$Mode, ")")
updates = subset(results, Phase=="Update")
initials = subset(results, Phase=="Initial")
averages.updates = ddply(updates, c("Size", "Version"), summarize, Time=median(Time) / 10000)
averages.initial = ddply(initials, c("Size", "Version"), summarize, Time=median(Time) / 10000)
bwTheme <- theme(text=element_text(family="Helvetica", size=16),
panel.background = element_rect(fill="#FFFFFF"),
legend.position="bottom",
legend.direction="horizontal",
panel.grid.major = element_line(size=0.3, colour="#333333"),
panel.grid.minor = element_line(size=0.15, colour="#CCCCCC"),
axis.text.x = element_text(colour="black"),
axis.text.y = element_text(colour="black")
)
plot = ggplot(averages.initial, aes_string(x = "Size", y = "Time")) + geom_line(aes_string(group = "Version", colour = "Version"), size=1)
plot = plot + geom_point(aes_string(shape = "Version", colour="Version"), size=3)
plot = plot + ylab("Time [ms]") + xlab("Size")
plot = plot + bwTheme
plot = plot + scale_x_log10(breaks = 2^seq(0,6), labels=2^seq(0,6))
plot = plot + scale_y_log10()
ggsave(plot, filename = "initials.pdf", width=10, height=5, dpi=192)
plot = ggplot(averages.updates, aes_string(x = "Size", y = "Time")) + geom_line(aes_string(group = "Version", colour = "Version"), size=1)
plot = plot + geom_point(aes_string(shape = "Version", colour="Version"), size=3)
plot = plot + ylab("Time [ms]") + xlab("Size")
plot = plot + bwTheme
plot = plot + scale_x_log10(breaks = 2^seq(0,6), labels=2^seq(0,6))
plot = plot + scale_y_log10()
ggsave(plot, filename = "updates.pdf", width=10, height=5, dpi=192)
library("reshape2")
library("ggplot2")
library("plyr")
results = read.csv2("Benchmark\\bin\\Release\\results.csv", sep=';',dec='.',row.names = NULL)
results$Version = paste(results$Solution, "(", results$Mode, ")")
updates = subset(results, Phase=="Update")
initials = subset(results, Phase=="Initial")
averages.updates = ddply(updates, c("Size", "Version"), summarize, Time=mean(Time) / 10000)
averages.initial = ddply(initials, c("Size", "Version"), summarize, Time=mean(Time) / 10000)
bwTheme <- theme(text=element_text(family="Helvetica", size=16),
panel.background = element_rect(fill="#FFFFFF"),
legend.position="bottom",
legend.direction="horizontal",
panel.grid.major = element_line(size=0.3, colour="#333333"),
panel.grid.minor = element_line(size=0.15, colour="#CCCCCC"),
axis.text.x = element_text(colour="black"),
axis.text.y = element_text(colour="black")
)
plot = ggplot(averages.initial, aes_string(x = "Size", y = "Time")) + geom_line(aes_string(group = "Version", colour = "Version"), size=1)
plot = plot + geom_point(aes_string(shape = "Version", colour="Version"), size=3)
plot = plot + ylab("Time [ms]") + xlab("Size")
plot = plot + bwTheme
plot = plot + scale_x_log10(breaks = 2^seq(0,6), labels=2^seq(0,6))
plot = plot + scale_y_log10()
ggsave(plot, filename = "initials.pdf", width=10, height=5, dpi=192)
plot = ggplot(averages.updates, aes_string(x = "Size", y = "Time")) + geom_line(aes_string(group = "Version", colour = "Version"), size=1)
plot = plot + geom_point(aes_string(shape = "Version", colour="Version"), size=3)
plot = plot + ylab("Time [ms]") + xlab("Size")
plot = plot + bwTheme
plot = plot + scale_x_log10(breaks = 2^seq(0,6), labels=2^seq(0,6))
plot = plot + scale_y_log10()
ggsave(plot, filename = "updates.pdf", width=10, height=5, dpi=192)