-- Leo's gemini proxy
-- Connecting to gemlog.blue:1965...
-- Connected
-- Sending request
-- Meta line: 20 text/gemini
Data Source: http://ourworldindata.org
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
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 = '.'))
-- Response ended
-- Page fetched on Thu Mar 28 21:42:10 2024