23 lines
762 B
R
Executable File
23 lines
762 B
R
Executable File
#!/usr/bin/env Rscript
|
|
# Load necessary libraries
|
|
library(ggplot2)
|
|
|
|
# Define the function to load CSV and plot
|
|
plot_stgsize <- function(file_path) {
|
|
print(file_path)
|
|
# Read the CSV file without headers
|
|
data <- read.csv(file_path, header = FALSE)
|
|
data['V5'] <- data['V5']/(3600*1000)
|
|
|
|
# Plot the line chart
|
|
p <- ggplot(data, aes(x = V5, y = V2)) +
|
|
geom_line() +
|
|
labs(x = "runtime [h]", y = "# of nodes") + #, title = "Number of nodes over time.") +
|
|
theme_minimal()
|
|
|
|
output_file <- sub("\\.stgsize$", paste0("_nodes.png"), file_path)
|
|
ggsave(basename(output_file), plot = p + theme_bw(base_size = 10), width = 3.5, height = 2, dpi = 300, units = "in", device = "png")
|
|
}
|
|
|
|
args <- commandArgs(trailingOnly = TRUE)
|
|
plot_stgsize(args[1]) |