25 lines
603 B
R
25 lines
603 B
R
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)
|