💾 Archived View for gemlog.blue › users › cariboudatascience › 1615170859.gmi captured on 2023-04-26 at 14:56:20. Gemini links have been rewritten to link to archived content

View Raw

More Information

⬅️ Previous capture (2021-12-04)

-=-=-=-=-=-=-

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

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."

https://ourworldindata.org/grapher/per-capita-consumption-of-cereals-by-commodity-type-daily-kilocalories

Video Walkthrough

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))

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

Resources:

Video Walkthrough

R Code and Data

R Language and Rtools40 (click and "base" and "Rtools")

Download and install RStudio

Comments, Question and Request