💾 Archived View for gemlog.blue › users › cariboudatascience › 1614289212.gmi captured on 2023-04-19 at 23:51:47. Gemini links have been rewritten to link to archived content

View Raw

More Information

⬅️ Previous capture (2021-12-04)

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

Worldwide Vegetable Consumption Per-Capita (1961-2017) (Part 2)

Our World In Data

Software required to recreate plot:

Run Code: Worldwide vegetable Consumption per Capita 

library(ggplot2)
library(scales)
library(tidyr)
library(dplyr)

vegetable_consumption <- read.csv("./DATA/20-vegetable-consumption-per-capita.csv")
colnames(vegetable_consumption) <- c("Country","Code","Year","Vegetables")
vegetable_consumption %>% filter(Country == "World") %>%
  ggplot() + geom_line(aes(x=Year,y=Vegetables)) +
  scale_y_continuous(labels=comma) +
  labs(title="Worldwide Vegetable Consumption Per Capita by Year",
       subtitle = "(1961 - 2017)",
       y="Kilogram/Person/Year")

Top Five Countries with hight per cap consumption 

vegie_top <- vegetable_consumption %>% filter(Year =="2017") %>%  top_n(5,Vegetables)
vegie_top <- as.data.frame(vegie_top)

ggplot(vegie_top) + geom_col(aes(x=reorder(Country,Vegetables),y=Vegetables)) + coord_flip() +
  labs(title="Top Five Countries Rata by Per Capita Consumption")

Plot Bottom Five Countries by Per Capita Consumption 

vegie_bottom <- vegetable_consumption %>% filter(Year =="2017") %>%  top_n(-5,Vegetables)
vegie_bottom <- as.data.frame(vegie_bottom)

ggplot(vegie_bottom) + geom_col(aes(x=reorder(Country,Vegetables),y=Vegetables)) + coord_flip() +
  labs(title="Bottom Five Countries Rata by Per Capita Consumption")

Plots:

Bottom Five Countries Per capita

Top Five Countries Per-capita

Worldwide Vegetables Per Capita

Resources:

R Code, and data

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

Download and install RStudio

Comments, Questions, Request:

Comment, Questions or Request