Simple monthly Gantt using Ganttrify

This is an R Markdown Notebook. When you execute code within the notebook, the results appear beneath the code. Try executing this chunk by clicking the Run button within the chunk or by placing your cursor inside it and pressing Ctrl+Shift+Enter.

1. Importing all necessary libraries

library(magrittr)
library(ggplot2)
here::here()

[1] "/home/julieta/Documents/WORKSPACE/Gantt"

2. Reading data

tasks <- read.csv("../tasks.csv", header = T) %>% 
  tibble::as_tibble()

Error in read.csv("../tasks.csv", header = T) %>% tibble::as_tibble() : 
  could not find function "%>%"

3. Customizing the chart visuals

gantt <- ganttrify::ganttrify(project = tasks,
                              spots = spots,
          # input start date
          project_start_date = "2021-01",
          size_text_relative = 2, 
          # if TRUE shows month numbers on top
          month_number = FALSE,
          # if TRUE shows bold lines delimiting quarters
          mark_quarters = TRUE,) +
          # this just changes the angle of the x axis labels
  theme(axis.text.x = element_text(angle = 90, size = 14))

gantt

4. Fixing the visuals

Changing aspect ratio, background colour, etc.

png(filename = "plot.png", width = 1200, height = 900, units = "px", pointsize = 12, res = 72, bg = "white")
gantt
dev.off()

null device 
          1 

5. Voilà

plot.png