-- Leo's gemini proxy
-- Connecting to gemlog.blue:1965...
-- Connected
-- Sending request
-- Meta line: 20 text/gemini
"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))
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)
-- Response ended
-- Page fetched on Wed Apr 24 02:28:16 2024
