# Load CIV jurisdictional boundaries
civ_departments <- s3read_using(
  object = "cote_divoire/spatial/BOUNDARIES/DEPARTEMENT/OUT/CIV_DEPARTEMENTS.geojson",
  FUN = read_sf,
  bucket = "trase-storage",
  opts = c("check_region" = T)
)

# Load Ghana jurisdictional boundaries
gha_districts <- s3read_using(
  object = "ghana/spatial/BOUNDARIES/DISTRICTS_REGIONS/OUT/GHA_DISTRICTS.geojson",
  FUN = read_sf,
  bucket = "trase-storage",
  opts = c("check_region" = T)) 
# Select CFI landscapes 


# Identify the CIV CFI landscapes
# Identified in 2018 CIV implementation plan
# ... available: https://www.idhsustainabletrade.com/initiative/cocoa-and-forests/
cfi_landscapes_civ <- civ_departments %>%
  filter(LVL_3_NAME %in% c("CAVALLY", "SAN-PEDRO", "NAWA", "ME", "GUEMON")) %>% 
  dplyr::select(NAME = LVL_3_NAME, 
         GEOCODE = LVL_3_CODE)

# Identify the GHA CFI landscapes (which are the same as Hotspot Intervention Areas (HIA) under the REDD+ Programme)
# Identified in 2018 GHA implementation plan
# ... available: https://www.idhsustainabletrade.com/initiative/cocoa-and-forests/
# And in the Ghana REDD+ Data Hub (see "Ghana Context" below, listing districts for each HIA)
# ... available: http://www.ghanaredddatahub.org/hias/index/
# Extract districts part of CFI landscapes

gha_districts_cfi <- gha_districts %>%
  mutate(CFI_HIA_NAME = case_when(
    LVL_3_NAME %in% c("SEFWI-WIAWSO", "SEFWI BIBIANI-ANHWIASO BEKWAI") ~ "SEFWI WIAWSO/ BIBIANI",
    LVL_3_NAME %in% c("JUABESO", "BIA EAST", "BIA WEST") ~ "JUABOSO-BIA",
    LVL_3_NAME %in% c("ASSIN SOUTH", "ASSIN NORTH", "TWIFO ATI-MORKWA", "TWIFO LOWER DENKYIRA", "ABURA / ASEBU / KWAMANKESE") ~ "KAKUM", # Districts are not listed in the REDD+ Data Hub -> all the districts within which Kakum Park falls are taken in account
    LVL_3_NAME %in% c("ASUNAFO NORTH", "ASUNAFO SOUTH", "ASUTIFI NORTH", "ASUTIFI SOUTH") ~ "ASUTIFI/ASUNAFO",
    LVL_3_NAME %in% c("ATIWA", "DENKYEMBOUR", "EAST AKIM") ~ "ATEWA",
    LVL_3_NAME %in% c("AHAFO ANO SOUTH", "ATWIMA MPONUA", "ATWIMA NWABIAGYA") ~ "AHAFO-ANO", 
    TRUE ~ NA_character_))
  
cfi_landscapes_gha <- gha_districts_cfi %>%  
  filter(CFI_HIA_NAME %in% 
           c("SEFWI WIAWSO/ BIBIANI", "JUABOSO-BIA", "KAKUM", "ASUTIFI/ASUNAFO", "ATEWA", "AHAFO-ANO")) %>% 
  dplyr::select(NAME = CFI_HIA_NAME, DISTRICT = LVL_3_NAME,
         GEOCODE = LVL_3_CODE)
# Plot the landscape initiatives CIV
ggplot() +
  geom_sf(data = civ_departments, fill = "grey") +
  geom_sf(data = cfi_landscapes_civ, aes(fill = NAME)) + 
  labs(title = "CFI priority landscapes") + 
  coord_sf(datum = NA) + 
  theme_minimal() +
  theme(legend.title = element_blank()) + 
  labs(title = "CFI priority landscapes")

# Plot the landscape initiatives GHA

  ggplot() +
    geom_sf(data = gha_districts, fill = "grey") +
    geom_sf(data = cfi_landscapes_gha, aes(fill = NAME)) + 
    labs(title = "CFI priority landscapes") + 
    coord_sf(datum = NA) + 
    theme_minimal() +
    theme(legend.title = element_blank()) + 
    labs(title = "CFI priority landscapes")

CONTEXT GHANA

In Ghana, the CFI will be implemented in two successive phases starting from 2018–2020, followed by a longer phase from 2021 through 2043.During the 2018–2020 period, stakeholders will work together to halt further deforestation and forest degradation, and to create and secure an enabling environment and investment mechanisms for scaling up past 2020.

The field-level activities during the 2018-2020 period will focus on the six Hotpot Intervention Areas (HIAs) identified in the Ghana Cocoa Forest REDD+ Programme (GCFRP), covering 2.5 million hectares, where the deforestation rate is the highest in the country. These areas have been delineated as groups of districts and selected areas based on the assessment and comparison of key parameters, such as deforestation trends, drivers of deforestation, cocoa production and population.

Six HIA (source: http://www.ghanaredddatahub.org/hias/index/)

1. Sefwi Wiawso/ Bibiani HIA: Located in the Western North Region of Ghana. It has in place a consortium of partners(Forestry Commission and Ghana Cocoa Board, MMDA’s, Private sector, CSO’s , NGOs, Agric Department) and a landscape management board, consisting of reps from cluster communities in the landscape.

2. Juaboso-Bia HIA: Located in Western North Region in the Juaboso and Bia districts. It has in place, consortium partners made up of reps from government institutions (FC, COCOBOD), Hotspot Management Board, Sub-HIA Executive committees, CREMA and CRMC’s.

3. Kakum HIA: located in the Central Region of Ghana. It has a project in place running which is known as Kakum Cocoa Agroforestry Project which is under the GCFRP. It has in place, consortium partners made up of reps from government institutions(FC, COCOBOD), District Assembly, Private Companies, Sub-HIA Executive committees, CREMA, and CRMC’s.

4. Asutifi/Asunafo HIA: Located in the Ahafo region within the Asunafo and Asutifi district of Ghana. This is also being lead by the government of Ghana with close collaboration with private sectors; Mondelez Cocoa life (Ghana), UNDP, Proforest Ghana.

5. Atewa HIA: Located in the Eastern Region within the Atewa, Denkyembour, and East Akim District of Ghana. Proposed Partners are Arocha Ghana, CIFOR (as part of heir on-going research on governance structures for smallholders in Cocoa) and Oil palm).

6. Ahafo-Ano HIA: Located in the Ahafo-Ano South, Atwima mponua & Atwima Nwabiagya districts in the Ashanti region of Ghana. Mondelez currently works only in the Atwima Mponua district with Olam as their partner. Solidaridad works in this HIA under CORIP. Consultancy procured to assist with the governance structure development. CRMCs developed and Zones established.

Hotpot Intervention Areas (HIAs) of the Ghana Cocoa Forest REDD+ Programme (GCFRP) and serving as CFI focus landscapes (source : Ghana National Implementation Plan 2018, p.19).

# Export 
s3write_using(
  x = cfi_landscapes_civ, 
  object = "world/cocoa/spatial/CFI/CFI_PRIORITY_JURISDICTIONS_CIV.geojson",
  FUN = write_sf,
  bucket = ts
)

# Export 
s3write_using(
  x = cfi_landscapes_gha, 
  object = "world/cocoa/spatial/CFI/CFI_PRIORITY_JURISDICTIONS_GHA.geojson",
  FUN = write_sf,
  bucket = ts
)