28 lines
705 B
R
28 lines
705 B
R
library(ggplot2)
|
|
library(dplyr, warn.conflicts = FALSE)
|
|
library(scales)
|
|
library(jsonlite)
|
|
library(readr)
|
|
|
|
# Load the arguments (argv)
|
|
args = commandArgs(trailingOnly=TRUE)
|
|
|
|
input_file = "data/readywave-instr.csv"
|
|
|
|
df = read_delim(input_file, delim=",", show_col_types = FALSE) %>%
|
|
mutate(instr = as.factor(instr))
|
|
|
|
dpi = 150
|
|
h = 2
|
|
w = 7
|
|
|
|
# ---------------------------------------------------------------------
|
|
|
|
p = ggplot(df, aes(time_ms, fill=instr)) +
|
|
geom_histogram(color="white", bins=50) +
|
|
#theme_bw() +
|
|
labs(x = "Time (ms)", title="bench6.readywave -r 100 -t 5000 -w 10")
|
|
# TODO: Add ntasks and taskwork to labels
|
|
|
|
ggsave(sprintf("%s.png", input_file), plot=p, width=w, height=h, dpi=dpi)
|