-
Notifications
You must be signed in to change notification settings - Fork 0
/
gantt-chart.Rmd
38 lines (30 loc) · 844 Bytes
/
gantt-chart.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
---
title: "gantt-EAGER"
author: "Sarah Supp"
date: "4/18/2022"
output: html_document
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(tidyverse)
#library(devtools)
#remotes::install_github("giocomai/ganttrify")
library(ganttrify)
proj <- read_csv("study_gantt.csv")
```
examples gantt chart
```{r}
ganttrify(project = ganttrify::test_project,
project_start_date = "2022-03")
```
Make my gantt chart
```{r}
ganttrify(project = proj,
project_start_date = "2022-08",
alpha_activity = 0.6,
mark_years = TRUE,
month_breaks = 3,
size_text_relative = 0.75) +
ggplot2::labs(caption = "Figure 5. An approximate timeline for all major project activities, assuming an August 1, 2022 start date.")
ggsave("gantt-chart-EAGER2022.png", height=4, width=7)
```