Introduction

Alcoholic beverages, usually being a matter of personal preference, are also subject to regional influences. I choose to explore the top 10 countries in terms of total liters of pure alcohol consumed and uncover which beverage reigns as the most popular.

Dataset from: https://github.com/fivethirtyeight/data/tree/master/alcohol-consumption

## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.4     ✔ readr     2.1.4
## ✔ forcats   1.0.0     ✔ stringr   1.5.1
## ✔ ggplot2   3.4.4     ✔ tibble    3.2.1
## ✔ lubridate 1.9.3     ✔ tidyr     1.3.0
## ✔ purrr     1.0.2     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

Data Acquisition

## Rows: 193 Columns: 5
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (1): country
## dbl (4): beer_servings, spirit_servings, wine_servings, total_litres_of_pure...
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
## # A tibble: 193 × 5
##    country    beer_servings spirit_servings wine_servings total_litres_of_pure…¹
##    <chr>              <dbl>           <dbl>         <dbl>                  <dbl>
##  1 Afghanist…             0               0             0                    0  
##  2 Albania               89             132            54                    4.9
##  3 Algeria               25               0            14                    0.7
##  4 Andorra              245             138           312                   12.4
##  5 Angola               217              57            45                    5.9
##  6 Antigua &…           102             128            45                    4.9
##  7 Argentina            193              25           221                    8.3
##  8 Armenia               21             179            11                    3.8
##  9 Australia            261              72           212                   10.4
## 10 Austria              279              75           191                    9.7
## # ℹ 183 more rows
## # ℹ abbreviated name: ¹​total_litres_of_pure_alcohol

Here to sum up the total quantities of each type of alcoholic beverage to reflect which one is the most popular

##                beer_servings              spirit_servings 
##                      20489.0                      15632.0 
##                wine_servings total_litres_of_pure_alcohol 
##                       9544.0                        910.4
##   beer_servings spirit_servings   wine_servings 
##           20489           15632            9544
##                         alcohol total
## beer_servings     beer_servings 20489
## spirit_servings spirit_servings 15632
## wine_servings     wine_servings  9544

Next, move to see the top 10 countries with the highest Pure Alcohol Consumption.

## # A tibble: 10 × 5
##    country    beer_servings spirit_servings wine_servings total_litres_of_pure…¹
##    <chr>              <dbl>           <dbl>         <dbl>                  <dbl>
##  1 Belarus              142             373            42                   14.4
##  2 Lithuania            343             244            56                   12.9
##  3 Andorra              245             138           312                   12.4
##  4 Grenada              199             438            28                   11.9
##  5 Czech Rep…           361             170           134                   11.8
##  6 France               127             151           370                   11.8
##  7 Russian F…           247             326            73                   11.5
##  8 Ireland              313             118           165                   11.4
##  9 Luxembourg           236             133           271                   11.4
## 10 Slovakia             196             293           116                   11.4
## # ℹ abbreviated name: ¹​total_litres_of_pure_alcohol

Conclusion

Overall, this study demonstrates that Belarus stands out as the world’s most alcohol-consuming country with 14.4 total liters of pure alcohol. On the other hand, given the correlation between higher consumption and popularity, beer dominates as the undisputed favorite alcoholic beverage on earth.