From d5626851deaa592646c0dad028d3cfdf82233381 Mon Sep 17 00:00:00 2001
From: Rodrigo Arias Mallo <rodrigo.arias@bsc.es>
Date: Wed, 21 Apr 2021 17:51:05 +0200
Subject: [PATCH] osu: remove gsub hack and clean bw figure

---
 garlic/fig/osu/bw.R | 41 +----------------------------------------
 1 file changed, 1 insertion(+), 40 deletions(-)

diff --git a/garlic/fig/osu/bw.R b/garlic/fig/osu/bw.R
index 5307b87..876519d 100644
--- a/garlic/fig/osu/bw.R
+++ b/garlic/fig/osu/bw.R
@@ -3,8 +3,6 @@ library(dplyr, warn.conflicts = FALSE)
 library(scales)
 library(jsonlite)
 library(stringr)
-#library(extrafont)
-#library(Cairo)
 
 args=commandArgs(trailingOnly=TRUE)
 
@@ -39,25 +37,19 @@ w=6
 
 p = ggplot(data=df, aes(x=size, y=median.bw)) +
 	labs(x="Message size", y="Bandwidth (GB/s)",
-    #title=sprintf("OSU benchmark: osu_bw", nodes, tasksPerNode, cpusPerTask), 
-    subtitle=gsub("-", "\uad", output)) +
+    subtitle=output) +
 	geom_line(aes(linetype=unitName)) +
 	geom_point(aes(shape=unitName), size=1.5) +
   scale_shape_discrete(name = "MPI version") +
   scale_linetype_discrete(name = "MPI version") +
-  #scale_color_discrete(name = "MPI version") +
   geom_hline(yintercept=12.5, color="red") +
   annotate("text", x=1, y=12.5 * .95,
     label="Max: 12.5GB/s (100Gbps)",
     hjust=0, vjust=1, size=3) +
-	#scale_x_continuous(trans=log2_trans()) +
   scale_x_continuous(trans=log2_trans(),
     labels=label_bytes("auto_binary"),
     n.breaks = 12,
-    #breaks=unique(df$size),
-    #minor_breaks=NULL
   ) +
-	#scale_y_log10(breaks = breaks, minor_breaks = minor_breaks) +
 	theme_bw() +
   theme(plot.subtitle = element_text(size=8, family="mono")) +
 	theme(legend.justification = c(1,0), legend.position = c(0.99, 0.01)) +
@@ -65,34 +57,3 @@ p = ggplot(data=df, aes(x=size, y=median.bw)) +
 
 ggsave("median-lines.png", plot=p, width=w, height=h, dpi=ppi)
 ggsave("median-lines.pdf", plot=p, width=w, height=h, dpi=ppi)
-#ggsave("median-lines-cairo.pdf", plot=p, width=w, height=h, dpi=ppi, device=cairo_pdf)
-#CairoPDF(file="median-lines-Cairo.pdf", width=w, height=h)
-#print(p)
-#dev.off()
-
-
-p = ggplot(data=df, aes(x=size, y=bw)) +
-	labs(x="Message size", y="Bandwidth (MB/s)",
-    #title=sprintf("OSU benchmark: osu_bw", nodes, tasksPerNode, cpusPerTask),
-    subtitle=output) +
-	geom_line(aes(y=median.bw, linetype=unitName, group=unitName)) +
-	geom_point(aes(shape=unitName), size=2) +
-  scale_shape(solid = FALSE) +
-  geom_hline(yintercept = 100e3 / 8, color="red") +
-  annotate("text", x = 8, y = (100e3 / 8) * 0.95,
-    label = "Max: 12.5GB/s (100Gbps)") +
-	#scale_x_continuous(trans=log2_trans()) +
-  scale_x_continuous(trans=log2_trans(),
-    labels=label_bytes("auto_binary"),
-    breaks=unique(df$size),
-    minor_breaks=NULL) +
-	#scale_y_log10(breaks = breaks, minor_breaks = minor_breaks) +
-	theme_bw() +
-  theme(plot.subtitle = element_text(size=4)) +
-	theme(legend.position = c(0.2, 0.6)) +
-  theme(axis.text.x = element_text(angle=-45, hjust=0))
-
-ggsave("bw.png", plot=p, width=w, height=h, dpi=ppi)
-ggsave("bw.pdf", plot=p, width=w, height=h, dpi=ppi)
-
-warnings()