diff --git a/plot/bar_plot.r b/plot/bar_plot.r deleted file mode 100755 index f622203..0000000 --- a/plot/bar_plot.r +++ /dev/null @@ -1,16 +0,0 @@ -#!/usr/bin/env Rscript - -# Libraries: -library(reshape2) -library(tidyverse) - -# Parsing command line arguments: -options = commandArgs(trailingOnly = TRUE) -filename = options[1] -table_header = options[-1] - -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 - ggplot(aes(x = timestamp, y = amount, fill = category)) + - geom_bar(stat = "identity") \ No newline at end of file diff --git a/plot/line_plot.r b/plot/line_plot.r deleted file mode 100755 index e905d73..0000000 --- a/plot/line_plot.r +++ /dev/null @@ -1,16 +0,0 @@ -#!/usr/bin/env Rscript - -# Libraries: -library(reshape2) -library(tidyverse) - -# Parsing command line arguments: -options = commandArgs(trailingOnly = TRUE) -filename = options[1] -table_header = options[-1] - -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 - ggplot(aes(x = timestamp, y = amount)) + - geom_line(aes(color = category))