gemini - kennedy.gemi.dev

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

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

Worldwide/United States: Fruit Consumption By Fruit Type (1961 - 2013)

Data Source: http://ourworldindata.org

Software required to recreate plot:

Install: R language, RTools40, and RStudio (see link below)
Packages: GGPLot2, dplyr, janitor.
Download code and data from Github.com (see link below).
Move R code and data to the working directory

Run Code:

library(ggplot2)
library(scales)
library(dplyr)
library(tidyr)
library(gganimate)
library(gapminder)
library(ggthemes)
rm(list=ls())
fruit_type <- read.csv("./DATA/3-fruit-consumption-by-fruit-type.csv")
colnames(fruit_type) <-c("Country","Code","Year",
                         "Apples","Bananas","Citrus",
                         "Dates","Other","Grapefruit",
                         "Grapes","Lemons","Oranges",
                         "Pineapples","Plantains")
fruit_type <- fruit_type %>% select(Country:Dates,Grapefruit:Plantains,Other)
summary(fruit_type)

### Dplyr::pivot_lionger

fruit_type_long <- fruit_type %>% pivot_longer(cols = Apples:Other) %>%
  rename("Fruit" = "name") %>% rename("perCapita" = "value") %>% select(-Code)
summary(fruit_type_long)

### PLot of Fruit Consumption Wroldwide by Fruit Type

fruit_type_long %>% filter(Country =="World" & Fruit !="Other") %>% 
  ggplot() + geom_line(aes(x=Year,y=perCapita,col=Fruit),size=1.5) +
  labs(title="Wroldwide: Fruit Consumption per Person by Fruit and Year",
       caption = "(Average fruit consumption per person, differentiated by fruit types, measured in Kilograms per Year)",
       y="Kilograms per Person") + guides(color = guide_legend(override.aes = list(size = 2))) +
  scale_y_continuous(
    labels = scales::number_format(accuracy = 0.01,
                                   decimal.mark = '.')) 
### Video Walkthrough:
=>  https://youtu.be/TDSDgTl2igc Video Walkthrough

### Plot US Yearly Fruit Consumption

fruit_type_long %>% filter(Country =="United States" & Fruit !="Other") %>% 
  ggplot() + geom_line(aes(x=Year,y=perCapita,col=Fruit,),size=1.5) +
  labs(title="United States:Fruit Consumption per Person by Fruit and Year",
       caption = "(Average fruit consumption per person, differentiated by fruit types, measured in Kilograms per Year)",
       y="Kilograms per Person") + guides(color = guide_legend(override.aes = list(size = 2))) +
  scale_y_continuous(
    labels = scales::number_format(accuracy = 0.01,
                                   decimal.mark = '.'))

Fruit Consumption: Kilograms per Person per Year

Worldwide Fruit Consumption By Fruit Type

US Fruit Consumption by Type

Resources:

R Code, and data

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

Download and install RStudio

Comments, Questions, Request:

https://github.com/davidjayjackson/OWID-diet-vegetable-fruit/issues