GANT CHART FOR CDM

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.

# Load libraries
library(ggplot2)
library(lubridate)
library(dplyr)

# Create your data frame
tasks <- data.frame(
  objective = c(
    "Conservation Action Plan for Coco de Mer", "Conservation Action Plan for Coco de Mer", "Conservation Action Plan for Coco de Mer",
    "Conservation Action Plan for Coco de Mer", "Conservation Action Plan for Coco de Mer", "Conservation Action Plan for Coco de Mer",
    "Conservation Action Plan for Coco de Mer", "Conservation Action Plan for Coco de Mer", "Conservation Action Plan for Coco de Mer",
    "Conservation Action Plan for Coco de Mer", "Complete the IUCN Red List Assessment for Coco de Mer", "Complete the IUCN Red List Assessment for Coco de Mer",
    "Complete the IUCN Red List Assessment for Coco de Mer", "Complete the IUCN Red List Assessment for Coco de Mer", "Complete the IUCN Red List Assessment for Coco de Mer",
    "Collation of Data Available for Lodoicea maldivica and Other Species", "Collation of Data Available for Lodoicea maldivica and Other Species", 
    "Collation of Data Available for Lodoicea maldivica and Other Species", "Collation of Data Available for Lodoicea maldivica and Other Species", 
    "Collation of Data Available for Lodoicea maldivica and Other Species", "Conservation Action Tracker Information for Endemic Tree Species", 
    "Conservation Action Tracker Information for Endemic Tree Species", "Conservation Action Tracker Information for Endemic Tree Species", 
    "Conservation Action Tracker Information for Endemic Tree Species"
  ),
  task = c(
    "1.1 Update initial action plan", "1.2 Review second action plan", "1.3 Update action plan",
    "1.4 Prepare for stakeholder workshop", "1.5 Conduct the stakeholder workshop",
    "1.6 Integrate workshop output", "1.7 Internal review of action plan", "1.8 External review of action plan",
    "1.9 Review and finalize the assessment", "1.10 Submit the assessment",
    "2.1 Gather all necessary data", "2.2 Analyze data and compile the report",
    "2.3 Internal review and finalize assessment", "2.4 External review and finalize assessment",
    "2.5 Submit the assessment", "3.1 Identify available data", "3.2 Collect habitat details",
    "3.3 Collate data", "3.4 Prepare data for submission", "3.5 Submit data",
    "4.1 Gather information on endemic tree species", "4.2 Document current conservation actions",
    "4.3 Compile and review tracker information", "4.4 Submit the Conservation Action Tracker"
  ),
  start_date = as.Date(c(
    "2024-10-25", "2024-11-15", "2024-12-16", "2025-02-01", "2025-02-20", "2025-02-21",
    "2025-03-01", "2025-03-15", "2025-04-21", "2025-04-30", "2025-01-01", "2025-02-01",
    "2025-03-21", "2025-04-01", "2025-04-30", "2024-11-01", "2024-11-16", "2025-01-01",
    "2025-02-01", "2025-02-16", "2024-11-01", "2024-11-16", "2025-01-01", "2025-01-20"
  )),
  end_date = as.Date(c(
    "2024-11-15", "2024-12-15", "2025-01-31", "2025-02-15", "2025-02-20", "2025-02-28",
    "2025-03-15", "2025-03-31", "2025-04-28", "2025-04-30", "2025-01-31", "2025-02-20",
    "2025-03-28", "2025-04-28", "2025-04-30", "2024-11-15", "2024-12-31", "2025-01-31",
    "2025-02-15", "2025-02-16", "2024-11-15", "2024-12-31", "2025-01-15", "2025-01-20"
  )),
  responsibilities = c(
    "AbC, FFD, NB, MJB", "AbC, FFD, NB, MJB", "AbC, FFD, NB, MJB", "AbC, FFD, NB, MJB", "AbC, FFD, NB, MJB",
    "AbC, FFD, NB, MJB", "AbC, FFD, NB, MJB", "AbC, FFD, NB, MJB", "AbC, FFD, NB, MJB", "AbC, FFD, NB, MJB",
    "AbC, FFD, NB, MJB", "AbC, FFD, NB, MJB", "AbC, FFD, NB, MJB", "AbC, FFD, NB, MJB", "AbC, FFD, NB, MJB",
    "LM, SW, JM, NB, AbC", "LM, SW, JM, NB, AbC", "LM, SW, JM, NB, AbC", "LM, SW, JM, NB, AbC", "LM, SW, JM, NB, AbC",
    "LM, SW, JM, NB, AbC", "LM, SW, JM, NB, AbC", "LM, SW, JM, NB, AbC", "LM, SW, JM, NB, AbC"
  )
)

# Print the table
print(tasks) 

# Ensure dates are recognized as Date objects
tasks$start_date <- as.Date(tasks$start_date)
tasks$end_date <- as.Date(tasks$end_date)


tasks <- tasks %>%
  mutate(end_date = if_else(start_date == end_date, start_date + days(1), end_date))




# Ensure tasks are ordered by their task numbers
tasks$task <- factor(tasks$task, levels = c(
  "1.1 Update initial action plan", "1.2 Review second action plan", "1.3 Update action plan",
  "1.4 Prepare for stakeholder workshop", "1.5 Conduct the stakeholder workshop",
  "1.6 Integrate workshop output", "1.7 Internal review of action plan", "1.8 External review of action plan",
  "1.9 Review and finalize the assessment", "1.10 Submit the assessment",
  "2.1 Gather all necessary data", "2.2 Analyze data and compile the report",
  "2.3 Internal review and finalize assessment", "2.4 External review and finalize assessment",
  "2.5 Submit the assessment", "3.1 Identify available data", "3.2 Collect habitat details",
  "3.3 Collate data", "3.4 Prepare data for submission", "3.5 Submit data",
  "4.1 Gather information on endemic tree species", "4.2 Document current conservation actions",
  "4.3 Compile and review tracker information", "4.4 Submit the Conservation Action Tracker"
))

# # Plotting the Gantt chart
# ggplot(tasks, aes(x = start_date, xend = end_date, y = task, yend = task)) +
#   geom_segment(size = 5, color = "skyblue") +
#   scale_x_date(date_breaks = "1 month", date_labels = "%b-%Y") +
#   scale_y_discrete(limits = rev(levels(tasks$task))) +  # Reverse the order of tasks
#   labs(title = "Gantt Chart",
#        x = "Date",
#        y = "Tasks") +
#   theme_minimal() +
#   theme(axis.text.y = element_text(size = 8))


# Plotting the Gantt chart
ggplot(tasks, aes(x = start_date, xend = end_date, y = task, yend = task)) +
  geom_segment(size = 5, color = "#50C878") +
  scale_x_date(date_breaks = "2 weeks", date_labels = "%d-%b-%Y") +
  scale_y_discrete(limits = rev(levels(tasks$task))) +  # Reverse the order of tasks
  labs(title = "Botanic gardens conservation international grant timeline",
       y = "Tasks", x=NULL) +
  theme_minimal() +
  theme(axis.text.y = element_text(size = 8))