Cereals Consumption by Cereal Type (per Capita) Worldwide (Part 1)

"Breakdown of the average per capita intake of cereals by specific cereal-based commodity types,measured in kilocalories per person per day. This figure measures the primary equivalent of all food products derived from a given commodity (e.g. "wheat" represents the primary equivalent of its derived

products). Data refers to cereal food supply at the consumer level but does not account for consumer wastage."

Begin R Code:

library(ggplot2)
library(scales)
library(tidyr)
library(dplyr)

cereals <- read.csv("./DATA/per-capita-consumption-of-cereals-by-commodity-type-daily-kilocalories.csv") 
colnames(cereals) <- c("Country","Code","Year","Wheat","Rice","Barley","Maize","Rye","Oats","Sorghum")
summary(cereals)


world_longer <- cereals %>% filter(Country =="World") %>% select(-Code) %>%
  pivot_longer(cols = Wheat:Sorghum)

world_yearly <- world_longer %>% group_by(Year) %>%
  summarise(Total = sum(value),
            Median = median(value),
            Mean = mean(value))

ggplot(world_yearly) + geom_line(aes(x=Year,y=Mean),lwd=1.5,col="darkblue") +
  labs(title="Worldwide Cereals: Mean kilocalories per person per day",y=" Mean Calories(x1000)/capita/day") + 
    scale_y_continuous(labels = comma)

Resources: