Make a plot that shows the top 25 beer consuming countries

library(ggplot2)
drinks %>%
  slice_max(order_by = beer_servings, n=25) %>%
  ggplot(aes(x=beer_servings, y=fct_reorder(country,beer_servings)))+
  geom_col(fill='blue')+
  theme_bw()+
  labs(
    title = "Top 25 beer consuming countries",
    subtitle = "",
    x = "Cans of beer consumed per person",
    y = "Country"
  )+

  NULL

Make a plot that shows the top 25 wine consuming countries

drinks %>%
  slice_max(order_by = wine_servings, n=25) %>%
  ggplot(aes(x=wine_servings, y=fct_reorder(country,wine_servings)))+
  geom_col(fill='green')+
  theme_bw()+
  labs(
    title = "Top 25 wine consuming countries",
    subtitle = "",
    x = "Glasses of wine consumed per person",
    y = "Country"
  )+

  NULL

Finally, make a plot that shows the top 25 spirit consuming countries

drinks %>%
  slice_max(order_by = spirit_servings, n=25) %>%
  ggplot(aes(x=spirit_servings, y=fct_reorder(country,spirit_servings)))+
  geom_col(fill='red')+
  theme_bw()+
  labs(
    title = "Top 25 spirit consuming countries",
    subtitle = "",
    x = "Shots of spirit consumed per person",
    y = "Country"
  )+

  NULL

Findings from the graphs

From the plots above, we can infer how heavily alcohol is being consumed in each country broken up into beer, wine and spirits. It is certainly no surprise that people in Czech are among the most beer-consuming countries, but Namibia is a little surprising with about 370 yearly beer cans consumed per person. That implies every person drinks on average about 1 beer per day. However, Namibia is a German colony and therefore has adopted the German Beer drinking traditions. A little surprising is the fact that Germany didn’t make it into the Top 3, but Gabon has. Regarding wine consumption, it is no surprise that people in France are the heaviest consumers having several world famous wineries. The average consumption is about 370 glasses of wine per person per year. Last but not least, Russia and Belarus are no surprise to be placed in the Top 3 spirit consumers with their popularity for drinking vodka, with about 370 and 320 shots of spirit consumed per person, respectively. A bit more interesting is Grenada leading the table, with approximately 430 servings per person, but a Caribbean country like itself probably has the right environment for a lot of rum drinking on the beach.

In general, we can see that more than half of the top 25 beer and wine drinking countries come from Europe which are countries that tend to be more developed and have a higher GDP. In comparison, top spirit drinking countries tend to be more developing countries such as Grenada and Haiti. This may be explained by the fact that wine and beer are more expensive to purchase than spirits thus people in developing countries opt for cheaper alternatives when it comes to drinking. Furthermore, such national or continental differences in alcohol tastes could also be explained by the national availability of the ingredients to make this alcohol. For France, there has been enormous productions of grapes every year for manufacturing wine. For Germany, barley has been one of their main crops, which is then used for beer fermenting. For Japan and China, rice, their main crop, has been widely used to produce spirits. Moreover, these differences in tastes have also been preserved by many local traditions, customs and national culture.