diff --git a/charts/single_scatter.r b/charts/single_scatter.r
index a075092..ac53720 100644
--- a/charts/single_scatter.r
+++ b/charts/single_scatter.r
@@ -2,6 +2,8 @@ library(ggplot2)
 
 # Usage: Rscript single_scatter.r exp_abspath
 
+# TODO: Allow filtering resulttypes (or at least exclude OK_MARKER)
+
 args <- commandArgs(trailingOnly = TRUE)
 experiment <- args[1]
 datafile <- paste(experiment, "/faults.csv", sep = "")
@@ -16,9 +18,9 @@ data$fault_address <- strtoi(data$fault_address)
 tibble::glimpse(data)
 
 plot <- ggplot(data, aes(x = fault_address, y = faults)) +
-  geom_point() +
+  geom_point(aes(color = resulttype)) +
   scale_y_log10() +
-  labs(x = "Address", y = "Faults") +
+  labs(x = "Address", y = "Faults", color = "Type") +
   theme_minimal()
 
 ggsave(paste(experiment, "/scatter.svg", sep = ""), plot = plot)