# Load Mendelez farm data
mendelez_farms <- get_object("data/3-LOGISTICS/GLOBAL/COMPANY_ASSETS/MENDELEZ/COCOA_LIFE/COCOA_LIFE_FARM_MAP.geojson", "trase-storage")
mendelez_farms <- read_sf(rawToChar(mendelez_farms)) %>%
  mutate_if(is.character, str_to_upper)
names(mendelez_farms)[!names(mendelez_farms) == "geometry"] <- snakecase::to_screaming_snake_case(names(mendelez_farms)[!names(mendelez_farms) == "geometry"])

# Load spatial data
# ... This needs to be moved to an online version (once we decide the best boundary data)
civ <- read_sf("C:/Users/Erasmus zu Ermgassen/Dropbox (Personal)/post_doc/Louvain/TRASE_relevant/COCOA/SCOPING/COTE_DIVOIRE/COCOA/06_BOUNDARIES/CIV_adm3.shp")
gha <- read_sf("C:/Users/Erasmus zu Ermgassen/Dropbox (Personal)/post_doc/Louvain/TRASE_relevant/COCOA/SCOPING/GHANA/COCOA/06_BOUNDARIES/GADM_DATA/GHA_adm2.shp")

Mendelez data includes farm location and sizes for 69,930 farms.

## [1] "STATUS"   "HECTARES" "LON"      "LAT"      "REGION"   "COUNTRY" 
## [7] "geometry"

## [1] "COCOA FARM"

These are all smallholder farms < 100 hectares in size, with most < 20 ha.

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.