Como hacer un Gantt Char para cronograma de actividades en R

En esta ocasión aprenderemos como graficar un Gantt Char en R usando el paquete ganttrify

library(remotes)
remotes::install_github("giocomai/ganttrify")
library(ganttrify)

Cargamos los datos los cuales deben estar de la siguiente manera

crono <- read_csv("cono.csv", col_types = cols(Final = col_date(format = "%Y-%m"), Inicio = col_date(format = "%Y-%m")))
colnames(crono) <- c("wp", "activity", "start_date", "end_date")
kable(crono)

wp	activity	start_date	end_date
Etapa 1	Actividad 1	2020-01-01	2020-02-01
Etapa 1	Actividad 2	2020-02-01	2020-03-01
Etapa 1	Actividad 3	2020-03-01	2020-06-01
Etapa 2	Actividad 2.1	2020-04-01	2020-05-01
Etapa 2	Actividad 2.2	2020-05-01	2020-07-01
Etapa 2	Actividad 2.3	2020-06-01	2020-07-01
Etapa 3	Actividad a	2020-08-01	2020-10-01
Etapa 3	Actividad b	2020-09-01	2020-11-01
Etapa 3	Actividad c	2020-08-01	2020-12-01

Los nombres de las columnas son muy importantes para que la funcion lea la tabla.

Graficamos

ganttrify(crono,
          by_date = T,
          size_text_relative = 1, 
          mark_quarters = TRUE,
          exact_date = T,
          colour_palette = c("orange2","blue", "red"),
          month_number = F)

Este este Link puede ver un ejemplo interactivo por el desarrollador del paquete Giorgio Comai