From 219f0606fdd69f8a7dabcad7d0d15f3620b1ed27 Mon Sep 17 00:00:00 2001 From: Samuel Fadel Date: Fri, 26 Aug 2016 02:21:09 -0300 Subject: Updated evo plot code. --- plot.R | 21 ++++++++++++--------- 1 file changed, 12 insertions(+), 9 deletions(-) (limited to 'plot.R') diff --git a/plot.R b/plot.R index e28adc2..72f4479 100644 --- a/plot.R +++ b/plot.R @@ -228,8 +228,9 @@ plot.evo.measure <- function(measure, datasets, techniques, output.dir) { Y.measure <- read.table(file.path(base.path, fname))$V1 measure.df <- rbind(measure.df, data.frame(tech=tech$name.pretty, dataset=ds$name.pretty, - x=Ys.measure, - y=Y.measure)) + key=paste(tech$name, ds$name, sep="-"), + x=rev(Ys.measure), + y=rev(Y.measure))) } } @@ -238,10 +239,11 @@ plot.evo.measure <- function(measure, datasets, techniques, output.dir) { theme(legend.position="right") + labs(x=paste(measure$name.pretty, "(Ys)", sep=" "), y=paste(measure$name.pretty, "(Y)", sep=" ")) + - geom_point(aes(x=x, y=y, color=tech, shape=dataset), alpha=0.8, size=3) + - geom_path(aes(x=x, y=y, color=tech, group=tech), arrow=arrow(angle=10, length=unit(0.15, "in"), type="closed")) + geom_point(aes(x=x, y=y, color=tech, shape=dataset), alpha=0.8, size=1.5) + + geom_path(aes(x=x, y=y, color=tech, group=key)) + scale_color_brewer(palette="Set1", guide=guide_legend(title="Technique")) + - scale_shape(guide=guide_legend(title="Dataset")) + scale_shape(guide=guide_legend(title="Dataset")) + + geom_abline(intercept=0, slope=1) fname <- file.path(output.dir, "plots", paste(measure$name, "-evo", ".pdf", sep="")) loginfo("Saving plot: %s", fname) @@ -272,7 +274,8 @@ addHandler(writeToFile, file=args[1], level="FINEST") -plot.measures(datasets, techniques, measures, output.dir) -plot.averages(datasets, techniques, measures, output.dir) -plot.scatter(datasets, techniques, measures, output.dir) -plot.ci(datasets, techniques, measures, output.dir) +#plot.measures(datasets, techniques, measures, output.dir) +#plot.averages(datasets, techniques, measures, output.dir) +#plot.scatter(datasets, techniques, measures, output.dir) +#plot.ci(datasets, techniques, measures, output.dir) +plot.evo(datasets, techniques, measures, output.dir) -- cgit v1.2.3