Undernourishment

FAO data, taken from Our World in Data https://ourworldindata.org/hunger-and-undernourishment, trend since 2014 in red.

undern.raw <- read.csv("../share-undernourished-region.csv")
colnames(undern.raw) <- c("Entity", "Code", "Year", "Value")
undern <- group_by(undern.raw, Entity) %>%
  arrange(Year) %>%
  mutate(Evolution = Value - lag(Value))

ggplot(undern, aes(x = Year, y = Value)) +
  geom_area(fill = "#cccccc") +
  geom_area(data = filter(undern, Year > 2013), fill = "red") +
  theme_minimal() +
  facet_wrap(~reorder(Entity, -Value), ncol = 10) +
  theme(panel.grid.minor = element_blank(), legend.position = "none") +
  ggtitle("Prevalence of undernourishment by region") +
  ylab("") + xlab("")

As a line chart:

ggplot(undern, aes(x = Year, y = Value)) +
  geom_line() +
  geom_line(data = filter(undern, Year > 2013), color = "red") +
  theme_minimal() +
  facet_wrap(~reorder(Entity, -Value), ncol = 10) +
  theme(panel.grid.minor = element_blank(), legend.position = "none") +
  ggtitle("Prevalence of undernourishment by region") +
  ylab("") + xlab("")