christoph/failnix
1
Fork 0
Code Releases Activity

color points based on resulttype in scatterplot

Browse Source
This commit is contained in:
Christoph Urlacher
2026-04-21 14:10:37 +02:00
parent 353f971408
commit 545b581659
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
charts/single_scatter.r
View File

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