search

jcvdav / gfw_enso

0 stars 0 forks source link

EEZ's where China fishes #2

Closed jcvdav closed 5 years ago

jcvdav commented 6 years ago

Identify EEZ's in which China is fishing. Then we can ask Cody if he know about fishing agreements.

jcvdav commented 6 years ago

This show where China is doing foreign fishing (by year). It would be worth filtering out some countries and keeping only the ones in the Pacific. Can perhaps use shapefilas from SKJ project to filter by EEZ spatially.

month_indices %>% 
  filter(iso3 == "CHN",
         is_foreign,
         fishing) %>% 
  group_by(eez_iso3) %>% 
  mutate(total_hours = sum(hours)) %>% 
  group_by(year, eez_iso3, total_hours) %>% 
  summarize(hours = sum(hours),
            nino3anom_max = max(nino3anom)) %>% 
  ungroup() %>% 
  transform(eez_iso3 = reorder(eez_iso3, total_hours)) %>% 
  ggplot(aes(x = eez_iso3, y = hours, fill = nino3anom_max)) +
  geom_col() +
  coord_flip() +
  scale_fill_gradientn(colors = colorRamps::matlab.like(20)) +
  theme(axis.text = element_text(size = 5))

image