Add readywave plot script

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)