library(tidyverse)


read_csv("summary.csv")-> s

hum_names <- as_labeller(c(`obj_per_sec` = "Objects/sec", `mbyte_per_sec` = "MByte/sec"))


ggplot(s, aes(x=value,y=config)) +
  geom_bar(stat="identity", fill="#00BFC4", color="black") +
  facet_wrap(~measurement,dir="v", scales = "free", labeller = hum_names) +
  scale_x_continuous(expand=c(0,0), breaks = scales::pretty_breaks(n = 10))+
  labs(
    y="Daemon",
    x="Metric",
    caption="Get the code to reproduce this graph at https://git.deuxfleurs.fr/Deuxfleurs/mknet",
    title="\"minio/warp\" benchmark, \"cluster total\" result",
    subtitle="Ran on a local machine (Ryzen 5 1400, 16GB RAM, SSD) with mknet\nDC topology (3 nodes, 1GB/s, 1ms lat)\nwarp in mixed mode, 5min bench, 5MB objects, initialized with 200 objects") +
  theme_classic() 

ggsave("./plot.png", width=200, height=120, units="mm")
1