bench: add R scripts for plotting WebAssembly function and section sizes

Author: fitzgen

bench/function-size.r

@@ -0,0 +1,46 @@
+#!/usr/bin/env Rscript
+
+# Usage:
+#
+#     ./function-size.r function-size.csv
+#
+# Output will be placed in SVG files.
+
+library(ggplot2)
+
+args <- commandArgs(trailingOnly = TRUE)
+
+data <- read.table(args[1], header = TRUE, sep = ",")
+
+thePlot <- ggplot(data,
+                  aes(x = reorder(Function, -Size),
+                      y = data$Size,
+                      fill = data$Function)) +
+    geom_bar(stat="identity") +
+    theme(legend.position = "none",
+          axis.text.x = element_text(angle = 67.5, hjust = 1)) +
+    ggtitle("WebAssembly Code Size by Function") +
+    labs(y = "Code Size (bytes)",
+         x = "Function")
+
+ggsave(plot = thePlot,
+       file = "function-size.svg",
+       device = "svg")
+
+crateData <- aggregate(. ~ Crate, data = data, sum)
+print(crateData)
+
+thePlot <- ggplot(crateData,
+                  aes(x = reorder(crateData$Crate, -crateData$Size),
+                      y = crateData$Size,
+                      fill = crateData$Crate)) +
+    geom_bar(stat="identity") +
+    theme(legend.position = "none",
+          axis.text.x = element_text(angle = 45, hjust = 1)) +
+    ggtitle("WebAssembly Code Size by Crate") +
+    labs(y = "Code Size (bytes)",
+         x = "Crate")
+
+ggsave(plot = thePlot,
+       file = "crate-size.svg",
+       device = "svg")

bench/section-size.r

@@ -0,0 +1,28 @@
+#!/usr/bin/env Rscript
+
+# Usage:
+#
+#     ./section-size.r section-sizes.csv
+#
+# Output will be placed in SVG files.
+
+library(ggplot2)
+
+args <- commandArgs(trailingOnly = TRUE)
+
+data <- read.table(args[1], header = TRUE, sep = ",")
+
+thePlot <- ggplot(data,
+                  aes(x = reorder(Section, -Size),
+                      y = data$Size,
+                      fill = data$Section)) +
+    geom_bar(stat="identity") +
+    theme(legend.position = "none",
+          axis.text.x = element_text(angle = 67.5, hjust = 1)) +
+    ggtitle("WebAssembly Size by Section") +
+    labs(y = "Size (bytes)",
+         x = "Section")
+
+ggsave(plot = thePlot,
+       file = "section-sizes.svg",
+       device = "svg")