22 lines
777 B
R
22 lines
777 B
R
|
#!/usr/bin/env Rscript
|
||
|
|
|
||
|
|
# Libraries:
|
||
|
|
library(reshape2)
|
||
|
|
library(tidyverse)
|
||
|
|
|
||
|
|
# Parsing command line arguments:
|
||
|
|
options = commandArgs(trailingOnly = TRUE)
|
||
|
|
filename = options[1]
|
||
|
|
plot_type = options[2]
|
||
|
|
table_header = options[-1:-2]
|
||
|
|
|
||
|
|
read_csv(filename, col_names = table_header) %>%
|
||
|
|
mutate(timestamp = as_date(as_datetime(timestamp))) %>% # Formatting the date
|
||
|
|
melt(id.vars = "timestamp", variable.name = "category", value.name = "amount") %>% # Formatting the table to plot each category
|
||
|
|
{
|
||
|
|
if (plot_type == "bar")
|
||
|
|
ggplot(data = ., aes(x = timestamp, y = amount, fill = category)) + geom_bar(stat = "identity")
|
||
|
|
else if (plot_type == "line")
|
||
|
|
ggplot(data = ., aes(x = timestamp, y = amount)) + geom_line(aes(color = category))
|
||
|
|
}
|