From 3af9993a66fd2da0ef11d011e3a98a70cf56927e Mon Sep 17 00:00:00 2001
From: Eugen Betke <betke@dkrz.de>
Date: Wed, 24 Oct 2018 18:57:56 +0200
Subject: [PATCH] Performance overview

---
 benchmark/eval_analysis.R | 25 ++++++++++++-------------
 1 file changed, 12 insertions(+), 13 deletions(-)

diff --git a/benchmark/eval_analysis.R b/benchmark/eval_analysis.R
index c1cd0b36d..de981001c 100755
--- a/benchmark/eval_analysis.R
+++ b/benchmark/eval_analysis.R
@@ -30,7 +30,7 @@ connection = dbConnect(SQLite(), dbname=file_db)
 #dbdata = dbGetQuery(connection,'select *  from p where tag=="mpio-individual"')
 #dbdata = dbGetQuery(connection,'select *, (x*y*z) as blocksize from p where count=8')
 #dbdata = dbGetQuery(connection,'select * from p where count<5')
-dbdata = dbGetQuery(connection,'select * from p')
+dbdata = dbGetQuery(connection,'select * from p where (ppn==1 or ppn=4 or ppn=8) and striping="yes"' )
 dbdata[,"blocksize"] = dbdata$tsize
 
 
@@ -60,18 +60,18 @@ for (scale in c("linear", "logarithmic")) {
 fss = unique(dbdata$fs)
 for (fs in fss) {
 data1 = dbdata[fs == dbdata$fs, ]
-apis = unique(data1$api)
+#apis = unique(data1$api)
 
 print(fs)
 
-for (api in apis) {
-data2 = data1[api == data1$api, ]
-apps = unique(data2$app)
+#for (api in apis) {
+#data2 = data1[api == data1$api, ]
+apps = unique(data1$app)
 
-print(api)
+#print(api)
 
 for (app in apps) {
-data3 = data2[app == data2$app, ]
+data3 = data1[app == data1$app, ]
 iotypes = unique(data3$iotype)
 
 print(app)
@@ -83,7 +83,7 @@ print(iotype)
 
 	p = ggplot(data=data, aes(x=nn, y=perf, colour=as.factor(blocksize/1024), group=blocksize), ymin=0) +
 		#ggtitle("Write") +
-		facet_grid(ppn ~ accesstype + striping, labeller = labeller(nn = as_labeller(nn_lab), ppn = as_labeller(ppn_lab))) +
+		facet_grid(ppn ~  api + accesstype, labeller = labeller(nn = as_labeller(nn_lab), ppn = as_labeller(ppn_lab))) +
 		xlab("Nodes") +
 		ylab("Performance in MiB/s") +
 		theme(axis.text.x=element_text(angle=90, hjust=0.95, vjust=0.5)) +
@@ -100,10 +100,10 @@ print(iotype)
 		p = p + scale_y_log10()
 	}
 
-	filename_eps = sprintf("%s/performance_%s_%s_%s_%s_%s_%s.eps", folder_out, app, fs, api, iotype, "write", scale)
-	filename_png = sprintf("%s/performance_%s_%s_%s_%s_%s_%s.png", folder_out, app, fs, api, iotype, "write", scale)
-	ggsave(filename_png, width = 6, height = 10)
-	ggsave(filename_eps, width = 6, height = 10)
+	filename_eps = sprintf("%s/performance_%s_%s_%s_%s_%s.eps", folder_out, app, fs, iotype, "write", scale)
+	filename_png = sprintf("%s/performance_%s_%s_%s_%s_%s.png", folder_out, app, fs, iotype, "write", scale)
+	ggsave(filename_png, width = 10, height = 6)
+	ggsave(filename_eps, width = 10, height = 6)
 	#system(sprintf("epstopdf %s", filename_eps))
 	system(sprintf("rm %s", filename_eps))
 
@@ -134,4 +134,3 @@ print(iotype)
 	#system(sprintf("rm %s", filename_eps))
 
 }}}}
-}