plot.R

#!/usr/bin/env Rscript
qry <- "https://time.lajp.fi/users/@me/activity/data?min_duration=1"
bearer <- "Bearer <YOURTOKEN>"

library("httr")
res <- GET(qry, add_headers(Authorization = bearer))

library("rjson")
result <- fromJSON(content(res, as = "text"))

result <- lapply(result, function(x) {
  x[sapply(x, is.null)] <- NA
  unlist(x)
})

df <- as.data.frame(do.call("rbind", result))

df$duration <- strtoi(df$duration)
df$start_time <- as.Date(df$start_time)

data <- aggregate(duration~language + project_name + start_time,
                  data = df, FUN = sum, na.rm = TRUE)
print(data)

library("ggplot2")
library("ggthemes")

png(file = "language_and_duration_by_date.png", width = 1024, height = 720)

duration_by_language <- aggregate(duration~language, data = data, FUN = sum)
duration_by_language <- duration_by_language[
        order(duration_by_language$duration, decreasing = T), ]

ggplot(data, aes(fill = language, y = duration, x = start_time)) +
    geom_bar(position = "stack", stat = "identity") + theme_dark() +
    theme(plot.background = element_rect(fill = "#3c3835", color = "black"),
          panel.background = element_rect("#242221", color = "black")) +
    labs(x = "Date", y = "Time coded") +
    theme(text = element_text(size = 20, color = "#fbf1c7"),
          legend.background = element_rect("#4c4541", color = "black")) +
    theme(axis.text = element_text(color = "#b8bb26")) +
    theme(plot.title = element_text(color = "#fb4934")) +
    scale_fill_discrete(breaks = duration_by_language$language,
        labels = paste(duration_by_language$language, ":",
                duration_by_language$duration, "s")) +
    scale_x_date(date_breaks = "1 day", date_labels = "%b %d")

duration_by_project_name <- aggregate(duration~project_name, data = data,
        FUN = sum)
duration_by_project_name <- duration_by_project_name[
        order(duration_by_project_name$duration, decreasing = T), ]

png(file = "project_and_duration_by_date.png", width = 1024, height = 720)
ggplot(data, aes(fill = project_name, y = duration, x = start_time)) +
    geom_bar(position = "stack", stat = "identity") + theme_dark() +
    theme(plot.background = element_rect(fill = "#3c3835", color = "black"),
         panel.background = element_rect("#242221", color = "black")) +
    labs(x = "Date", y = "Time coded") +
    theme(text = element_text(size = 20, color = "#fbf1c7"),
          legend.background = element_rect("#4c4541", color = "black")) +
    theme(axis.text = element_text(color = "#b8bb26")) +
    theme(plot.title = element_text(color = "#fb4934")) +
    scale_fill_discrete(breaks = duration_by_project_name$project_name,
        labels = paste(duration_by_project_name$project_name, ":",
                duration_by_project_name$duration, "s")) +
    scale_x_date(date_breaks = "1 day", date_labels = "%b %d")

while (!is.null(dev.list()))
    dev.off()