From 7f2903d404ffd2c14af48554cb94b78814c4c347 Mon Sep 17 00:00:00 2001
From: Rodrigo Arias Mallo <rodrigo.arias@bsc.es>
Date: Tue, 14 Mar 2023 10:21:27 +0100
Subject: [PATCH] Add readywave plot script

---
 plot/readywave.R | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 plot/readywave.R

diff --git a/plot/readywave.R b/plot/readywave.R
new file mode 100644
index 0000000..2f937f8
--- /dev/null
+++ b/plot/readywave.R
@@ -0,0 +1,26 @@
+library(ggplot2)
+library(dplyr, warn.conflicts = FALSE)
+library(scales)
+library(jsonlite)
+library(readr)
+
+# Load the arguments (argv)
+args = commandArgs(trailingOnly=TRUE)
+
+input_file = args[1]
+
+df = read_delim(input_file, delim=",", show_col_types = FALSE)
+
+dpi = 96
+h = 2
+w = 6
+
+# ---------------------------------------------------------------------
+
+p = ggplot(df, aes(time_ms)) +
+  geom_histogram(bins=80) +
+  theme_bw() +
+  labs(x = "Time (ms)", title="Nanos6: readywave time")
+  # TODO: Add ntasks and taskwork to labels
+
+ggsave(sprintf("%s.png", input_file), plot=p, width=w, height=h, dpi=dpi)