add run in gdb menu action

charts/single_result.r

@@ -12,6 +12,7 @@ if (!file.exists(datafile)) {
 }
 
 data <- readr::read_csv(datafile)
+tibble::glimpse(data)
 
 plot <- ggplot(data, aes(x = benchmark, y = faults, fill = resulttype)) +
   geom_col(position = "dodge") +

charts/single_scatter.r

@@ -0,0 +1,24 @@
+library(ggplot2)
+
+# Usage: Rscript single_scatter.r exp_abspath
+
+args <- commandArgs(trailingOnly = TRUE)
+experiment <- args[1]
+datafile <- paste(experiment, "/faults.csv", sep = "")
+
+if (!file.exists(datafile)) {
+  print(paste("Input file", datafile, "is missing"))
+  stop()
+}
+
+data <- readr::read_csv(datafile)
+data$fault_address <- strtoi(data$fault_address)
+tibble::glimpse(data)
+
+plot <- ggplot(data, aes(x = fault_address, y = faults)) +
+  geom_point() +
+  scale_y_log10() +
+  labs(x = "Address", y = "Faults") +
+  theme_minimal()
+
+ggsave(paste(experiment, "/scatter.svg", sep = ""), plot = plot)