4

Read and bring in data

library(tidyverse)
drinks <- read_csv("drinks.csv")

Select only countries that I want to look at

Drinks1 <- drinks[drinks$country == "USA"|drinks$country =="Seychelles"|drinks$country =="Iceland"|drinks$country =="Greece",] 

Remove total volume which is not needed for graph

Drinks2 <- Drinks1[ -(5) ]

Change from wide to long and modify names to make sense for the viewer.

Drinks_long <- Drinks2 %>%
  pivot_longer(!country, names_to = "type", values_to = "servings")

Drinks_long$type <- ifelse(Drinks_long$type %in% ("beer_servings"), "beer", Drinks_long$type)
Drinks_long$type <- ifelse(Drinks_long$type %in% ("spirit_servings"), "spirit", Drinks_long$type)
Drinks_long$type <- ifelse(Drinks_long$type %in% ("wine_servings"), "wine", Drinks_long$type)

Plot data with dodge function in order to show three data points per country.

ggplot(data = Drinks_long,aes(y=country,x=servings,fill=type))+ geom_bar(position="dodge",stat="identity")