drinkssubset <- filter(drinks, c(country == "USA"| country == "Seychelles" | country == "Iceland" | country == "Greece")) %>% select(-total_litres_of_pure_alcohol) %>% rename(beer = beer_servings, spirit = spirit_servings, wine = wine_servings) #filter needed countries, remove unneeded rows; rename columns to match given graph
drinkgraph <- gather(drinkssubset, type, servings, beer:wine, factor_key = TRUE) #convert from wide to long format
ggplot(drinkgraph, aes(x = country, y = servings, fill = type)) +
geom_bar(position = "dodge", stat = "identity") +
coord_flip()
