💾 Archived View for gemlog.blue › users › cariboudatascience › 1615170859.gmi captured on 2023-07-10 at 14:58:28. Gemini links have been rewritten to link to archived content
⬅️ Previous capture (2021-12-04)
-=-=-=-=-=-=-
Data: http://ourworldindata.org Source: Our World In Data
"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."
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))
Worldwide Cereals: kilocalories per person per day
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)
Worldwide Cereals: Mean kilocalories per person per day
