lua-aot-5.4/statistics/plot-functions.r

library(readr)
library(dplyr)
library(ggplot2)
library(xtable)

bench_codes <- c(
  "binarytrees",
  "fannkuch",
  "fasta",
  "knucleotide",
  "mandelbrot",
  "nbody",
  "spectralnorm",
  "cd",
  "deltablue",
  "havlak",
  "json",
  "list",
  "permute",
  "richards",
  "towers"
)

bench_names <- c(
  "Binary Trees",
  "Fannkuch",
  "Fasta",
  "K-Nucleotide",
  "Mandelbrot",
  "N-Body",
  "Spectral Norm",
  "CD",
  "Deltablue",
  "Havlak",
  "Json",
  "List",
  "Permute",
  "Richards",
  "Hanoi Towers"
)

impl_codes <- c("lua", "trm", "aot", "jit", "jof", "fun", "ctx")
impl_used <- c("aot", "ctx", "fun")
impl_names <- c("LuaAOT", "Struct", "Functions")

data <- read_csv("times-slow.csv", col_types = cols(
  Benchmark = col_factor(bench_codes),
  Implementation = col_factor(impl_codes),
  N = col_integer(),
  Time = col_double()
))

plot_data <- filter(data, Implementation %in% impl_used)

aggr_data <- data %>%
  group_by(Benchmark,Implementation) %>%
  summarize(
    meanTime=mean(Time),
    d=max(max(Time)-meanTime, meanTime-min(Time)))

mean_times <- plot_data %>%
  group_by(Benchmark,Implementation) %>%
  summarize(groups=Benchmark,Time=mean(Time)) %>%
  ungroup()

mean_times_lua <- mean_times %>%
  filter(Implementation=="aot") %>%
  select(Benchmark, LuaTime=Time)

normal_times <- plot_data %>%
  inner_join(mean_times_lua, by=c("Benchmark")) %>%
  mutate(Time=Time/LuaTime) %>%
  group_by(Benchmark,Implementation) %>%
  summarize(
    mean_time = mean(Time),
    sd_time  = sd(Time),
    min_time = min(Time),
    max_time = max(Time)) %>%
  ungroup()

dodge <- position_dodge(0.9)
ggplot(normal_times,
       aes(x=Benchmark,y=mean_time,fill=Implementation)) +
  geom_col(position=dodge) +
  geom_errorbar(aes(ymin=min_time, ymax=max_time), position=dodge, width=.3) +
  xlab("Benchmark")+
  ylab("Time") +
  scale_fill_discrete(type=c("#00ba38", "#B79F00", "#F564E3"), labels=impl_names) +
  scale_x_discrete(labels=bench_names) +
  scale_y_continuous(limits=c(0.0, 1.8), breaks=seq(from=0.0,to=1.8,by=0.25) ) +
  theme(axis.text.x=element_text(angle=30, hjust=1), legend.position = "top",)