I would consider myself somewhat of a foodie, nothing gets me in a good mood like a good meal, me personally I’m a fan of more traditional food. Now this got me thinking, about how each country has their own type of food. I wonder do they share the same preferences as me?

Using a Kaggle data-set let’s find the answer.

For clarity sake in this project food that falls under the western food category will be fast food (i.e. McDonald’s, KFC, Burger King, etc.).

Importing libraries

library(tidyverse)
Registered S3 methods overwritten by 'dbplyr':
  method         from
  print.tbl_lazy     
  print.tbl_sql      
── Attaching packages ──────────────────────────────────── tidyverse 1.3.1 ──
✓ ggplot2 3.3.5     ✓ purrr   0.3.4
✓ tibble  3.1.1     ✓ dplyr   1.0.6
✓ tidyr   1.1.3     ✓ stringr 1.4.0
✓ readr   1.4.0     ✓ forcats 0.5.1
── Conflicts ─────────────────────────────────────── tidyverse_conflicts() ──
x dplyr::filter() masks stats::filter()
x dplyr::lag()    masks stats::lag()
library(corrgram)
library(fastDummies)
library(ggthemes)
library(GGally)
Registered S3 method overwritten by 'GGally':
  method from   
  +.gg   ggplot2

Getting our data

For this data viz project I will be taking a look at a Kaggle data set call Food Preferences. The data was collected via survey that was conducted among participants from different countries and demographics.

data <- read_csv('Food_Preference.csv')

── Column specification ─────────────────────────────────────────────────────
cols(
  Timestamp = col_character(),
  Participant_ID = col_character(),
  Gender = col_character(),
  Nationality = col_character(),
  Age = col_double(),
  Food = col_character(),
  Juice = col_character(),
  Dessert = col_character()
)
head(data)
summary(data)
  Timestamp         Participant_ID        Gender          Nationality       
 Length:288         Length:288         Length:288         Length:288        
 Class :character   Class :character   Class :character   Class :character  
 Mode  :character   Mode  :character   Mode  :character   Mode  :character  
                                                                            
                                                                            
                                                                            
      Age            Food              Juice             Dessert         
 Min.   : 8.00   Length:288         Length:288         Length:288        
 1st Qu.:24.00   Class :character   Class :character   Class :character  
 Median :28.00   Mode  :character   Mode  :character   Mode  :character  
 Mean   :30.60                                                           
 3rd Qu.:36.25                                                           
 Max.   :80.00                                                           

Cleaning our data

Looking at our data we seem only to have missing values in regards to gender.

[1] "Male"   "Female" NA      

This could be due to not in fact wanting to disclose their gender so we can change the “NA” to “Not disclosed” without any issues.

[1] "Male"          "Female"        "Not disclosed"

Another detail to take into account seems to be Nationality. There are multiple instances of the same nationality just in different forms. As well as a mystery nationality called “MY” that doesn’t seem to be an abbreviation of any known nation (For the purposes of this project it will count as Malaysian).

 [1] "Indian"      "Pakistani"   "Tanzanian"   "Indonesia"   "Muslim"     
 [6] "Pakistan"    "Maldivian"   "MY"          "Malaysian"   "Indonesian" 
[11] "MALAYSIAN"   "Malaysia"    "Canadian"    "Nigerian"    "Algerian"   
[16] "Korean"      "Seychellois" "Indonesain"  "Japan"       "China"      
[21] "Mauritian"   "Yemen"      

The easiest solution I found was to find all the repeating nationalities and replace them with a single one.

 [1] "Indian"      "Pakistani"   "Tanzanian"   "Indonesian"  "Muslim"     
 [6] "Maldivian"   "Malaysian"   "Canadian"    "Nigerian"    "Algerian"   
[11] "Korean"      "Seychellois" "Indonesain"  "Japan"       "China"      
[16] "Mauritian"   "Yemen"      

Data Analysis

Here we can see that there is a much larger preference for traditional food, also an interesting thing to note though is that males tend to prefer Western food while females lean more towards traditional food.

Why is this? According to an article publish by the National Center for Biotechnology Information: “A growing body of evidence suggests that the food choices a mother makes during her pregnancy may set the stage for an infant’s later acceptance of solid foods.”

Due to women preferring more traditional food, a very likely scenario is that during pregnancy they would be more likely to consume traditional food which would be a contributing factor that leads into the offspring preferring traditional food.

The older one seems to get, the more they prefer traditional food. In general though overall traditional food is enjoyed by all ages, whereas Western Food is enjoyed mostly by young adults.

This makes sense according to a study done by Centers for Disease Control which concluded that “the percentage of adults who consumed fast food decreased with age” with the highest consumption being done by people ages 20-39.

data in column(s) 'Food', 'Juice', 'Dessert' are not numeric and were ignored

As you can see a lot of what we find correlated makes sense, for starters as we determined before we see a correlation between the age of someone and their preference for traditional food.

We can also infer that people who eat western food tend to have less than ideal diets, opting to drink carbonated drinks as well as eating dessert afterwards. While the inverse can be said for people who enjoy traditional food.

Conclusion

We started off inferring based on my personal experience that people would prefer to eat more traditional food. After conducting my analysis I can say for certain that people from all age groups mostly women do in fact prefer traditional food.

People who eat western food also seem to lead a more unhealthy life style as they opt to drink carbonated drinks and eat dessert afterwards. However as people age the preference for western food decreases.

LS0tCnRpdGxlOiAiRm9vZCBQcmVmZXJlbmNlcyBmcm9tIGFyb3VuZCB0aGUgd29ybGQiCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KCkkgd291bGQgY29uc2lkZXIgbXlzZWxmIHNvbWV3aGF0IG9mIGEgZm9vZGllLCBub3RoaW5nIGdldHMgbWUgaW4gYSBnb29kIG1vb2QgbGlrZSBhIGdvb2QgbWVhbCwgbWUgcGVyc29uYWxseSBJJ20gYSBmYW4gb2YgbW9yZSB0cmFkaXRpb25hbCBmb29kLiBOb3cgdGhpcyBnb3QgbWUgdGhpbmtpbmcsIGFib3V0IGhvdyBlYWNoIGNvdW50cnkgaGFzIHRoZWlyIG93biB0eXBlIG9mIGZvb2QuIEkgd29uZGVyIGRvIHRoZXkgc2hhcmUgdGhlIHNhbWUgcHJlZmVyZW5jZXMgYXMgbWU/CgpVc2luZyBhIEthZ2dsZSBkYXRhLXNldCBsZXQncyBmaW5kIHRoZSBhbnN3ZXIuCgpGb3IgY2xhcml0eSBzYWtlIGluIHRoaXMgcHJvamVjdCBmb29kIHRoYXQgZmFsbHMgdW5kZXIgdGhlIHdlc3Rlcm4gZm9vZCBjYXRlZ29yeSB3aWxsIGJlIGZhc3QgZm9vZCAoaS5lLiBNY0RvbmFsZCdzLCBLRkMsIEJ1cmdlciBLaW5nLCBldGMuKS4KCiMgSW1wb3J0aW5nIGxpYnJhcmllcwoKYGBge3J9CmxpYnJhcnkodGlkeXZlcnNlKQpsaWJyYXJ5KGNvcnJncmFtKQpsaWJyYXJ5KGZhc3REdW1taWVzKQpsaWJyYXJ5KGdndGhlbWVzKQpsaWJyYXJ5KEdHYWxseSkKYGBgCgojIEdldHRpbmcgb3VyIGRhdGEKCkZvciB0aGlzIGRhdGEgdml6IHByb2plY3QgSSB3aWxsIGJlIHRha2luZyBhIGxvb2sgYXQgYSBLYWdnbGUgZGF0YSBzZXQgY2FsbCBbRm9vZCBQcmVmZXJlbmNlc10oaHR0cHM6Ly93d3cua2FnZ2xlLmNvbS92aWpheWFzaHJlZXIvZm9vZC1wcmVmZXJlbmNlcykuIFRoZSBkYXRhIHdhcyBjb2xsZWN0ZWQgdmlhIHN1cnZleSB0aGF0IHdhcyBjb25kdWN0ZWQgYW1vbmcgcGFydGljaXBhbnRzIGZyb20gZGlmZmVyZW50IGNvdW50cmllcyBhbmQgZGVtb2dyYXBoaWNzLgoKYGBge3J9CmRhdGEgPC0gcmVhZF9jc3YoJ0Zvb2RfUHJlZmVyZW5jZS5jc3YnKQpoZWFkKGRhdGEpCmBgYAoKYGBge3J9CnN1bW1hcnkoZGF0YSkKYGBgCgojIENsZWFuaW5nIG91ciBkYXRhCgpMb29raW5nIGF0IG91ciBkYXRhIHdlIHNlZW0gb25seSB0byBoYXZlIG1pc3NpbmcgdmFsdWVzIGluIHJlZ2FyZHMgdG8gZ2VuZGVyLgoKYGBge3IgZWNobz1GQUxTRX0KdW5pcXVlKGRhdGEkR2VuZGVyKQpgYGAKClRoaXMgY291bGQgYmUgZHVlIHRvIG5vdCBpbiBmYWN0IHdhbnRpbmcgdG8gZGlzY2xvc2UgdGhlaXIgZ2VuZGVyIHNvIHdlIGNhbiBjaGFuZ2UgdGhlICJOQSIgdG8gIk5vdCBkaXNjbG9zZWQiIHdpdGhvdXQgYW55IGlzc3Vlcy4KCmBgYHtyIGVjaG89RkFMU0V9CmRhdGEkR2VuZGVyW2lzLm5hKGRhdGEkR2VuZGVyKV0gPC0gIk5vdCBkaXNjbG9zZWQiCnVuaXF1ZShkYXRhJEdlbmRlcikKYGBgCgpBbm90aGVyIGRldGFpbCB0byB0YWtlIGludG8gYWNjb3VudCBzZWVtcyB0byBiZSBOYXRpb25hbGl0eS4gVGhlcmUgYXJlIG11bHRpcGxlIGluc3RhbmNlcyBvZiB0aGUgc2FtZSBuYXRpb25hbGl0eSBqdXN0IGluIGRpZmZlcmVudCBmb3Jtcy4gQXMgd2VsbCBhcyBhIG15c3RlcnkgbmF0aW9uYWxpdHkgY2FsbGVkICIqKk1ZKioiIHRoYXQgZG9lc24ndCBzZWVtIHRvIGJlIGFuIGFiYnJldmlhdGlvbiBvZiBhbnkga25vd24gbmF0aW9uIChGb3IgdGhlIHB1cnBvc2VzIG9mIHRoaXMgcHJvamVjdCBpdCB3aWxsIGNvdW50IGFzIE1hbGF5c2lhbikuCgpgYGB7ciBlY2hvPUZBTFNFfQp1bmlxdWUoZGF0YSROYXRpb25hbGl0eSkKYGBgCgpUaGUgZWFzaWVzdCBzb2x1dGlvbiBJIGZvdW5kIHdhcyB0byBmaW5kIGFsbCB0aGUgcmVwZWF0aW5nIG5hdGlvbmFsaXRpZXMgYW5kIHJlcGxhY2UgdGhlbSB3aXRoIGEgc2luZ2xlIG9uZS4KCmBgYHtyIGluY2x1ZGU9RkFMU0V9CmRhdGEkTmF0aW9uYWxpdHlbZGF0YSROYXRpb25hbGl0eSA9PSAnSW5kb25lc2lhJ10gPC0gJ0luZG9uZXNpYW4nCmRhdGEkTmF0aW9uYWxpdHlbZGF0YSROYXRpb25hbGl0eSA9PSAnUGFraXN0YW4nXSA8LSAnUGFraXN0YW5pJwpkYXRhJE5hdGlvbmFsaXR5W2RhdGEkTmF0aW9uYWxpdHkgPT0gJ01hbGF5c2lhJyB8IGRhdGEkTmF0aW9uYWxpdHkgPT0gJ01BTEFZU0lBTiddIDwtICdNYWxheXNpYW4nCmRhdGEkTmF0aW9uYWxpdHlbZGF0YSROYXRpb25hbGl0eSA9PSAnTVknXSA8LSAnTWFsYXlzaWFuJwpgYGAKCmBgYHtyIGVjaG89RkFMU0V9CnVuaXF1ZShkYXRhJE5hdGlvbmFsaXR5KQpgYGAKCiMgRGF0YSBBbmFseXNpcwoKYGBge3IgZWNobz1GQUxTRX0KZ2dwbG90KGRhdGEgPSBkYXRhKSArCiAgZ2VvbV9iYXIobWFwcGluZyA9IGFlcyhGb29kLCBmaWxsID0gR2VuZGVyKSwgd2lkdGg9MC40KSArCiAgdGhlbWUoYXhpcy50ZXh0LnkgPSBlbGVtZW50X3RleHQoYW5nbGUgPSA1MCwgdmp1c3QgPSAxLCBoanVzdCA9IDEpLAogICAgICAgIGF4aXMudGl0bGUueCA9IGVsZW1lbnRfYmxhbmsoKSwgYXhpcy50aXRsZS55ID0gZWxlbWVudF9ibGFuaygpKSArCiAgdGhlbWVfZWNvbm9taXN0KCkgKwogIHNjYWxlX2ZpbGxfZWNvbm9taXN0KCkgKwogIGNvb3JkX2ZsaXAoKQpgYGAKCkhlcmUgd2UgY2FuIHNlZSB0aGF0IHRoZXJlIGlzIGEgbXVjaCBsYXJnZXIgcHJlZmVyZW5jZSBmb3IgdHJhZGl0aW9uYWwgZm9vZCwgYWxzbyBhbiBpbnRlcmVzdGluZyB0aGluZyB0byBub3RlIHRob3VnaCBpcyB0aGF0IG1hbGVzIHRlbmQgdG8gcHJlZmVyIFdlc3Rlcm4gZm9vZCB3aGlsZSBmZW1hbGVzIGxlYW4gbW9yZSB0b3dhcmRzIHRyYWRpdGlvbmFsIGZvb2QuCgpXaHkgaXMgdGhpcz8gQWNjb3JkaW5nIHRvIGFuIGFydGljbGUgcHVibGlzaCBieSB0aGUgW05hdGlvbmFsIENlbnRlciBmb3IgQmlvdGVjaG5vbG9neSBJbmZvcm1hdGlvbl0oaHR0cHM6Ly93d3cubmNiaS5ubG0ubmloLmdvdi9wbWMvYXJ0aWNsZXMvUE1DMjUzMTE1Mi8pOiAiQSBncm93aW5nIGJvZHkgb2YgZXZpZGVuY2Ugc3VnZ2VzdHMgdGhhdCB0aGUgZm9vZCBjaG9pY2VzIGEgbW90aGVyIG1ha2VzIGR1cmluZyBoZXIgcHJlZ25hbmN5IG1heSBzZXQgdGhlIHN0YWdlIGZvciBhbiBpbmZhbnQncyBsYXRlciBhY2NlcHRhbmNlIG9mIHNvbGlkIGZvb2RzLiIKCkR1ZSB0byB3b21lbiBwcmVmZXJyaW5nIG1vcmUgdHJhZGl0aW9uYWwgZm9vZCwgYSB2ZXJ5IGxpa2VseSBzY2VuYXJpbyBpcyB0aGF0IGR1cmluZyBwcmVnbmFuY3kgdGhleSB3b3VsZCBiZSBtb3JlIGxpa2VseSB0byBjb25zdW1lIHRyYWRpdGlvbmFsIGZvb2Qgd2hpY2ggd291bGQgYmUgYSBjb250cmlidXRpbmcgZmFjdG9yIHRoYXQgbGVhZHMgaW50byB0aGUgb2Zmc3ByaW5nIHByZWZlcnJpbmcgdHJhZGl0aW9uYWwgZm9vZC4KCmBgYHtyIGVjaG89RkFMU0V9CmdncGxvdChkYXRhLCBhZXMoRm9vZCwgQWdlKSkgKwogIGdlb21fYm94cGxvdChjb2xvcj0iIzAwMzMzMyIsIGZpbGw9IiMwMDMzMzMiLCBhbHBoYT0wLjQsIAogICAgICAgICAgICAgICBub3RjaD1UUlVFLCBub3RjaHdpZHRoID0gMC44LAogICAgICAgICAgICAgICBvdXRsaWVyLmNvbG91cj0iIzk5Q0NDQyIsIG91dGxpZXIuc2l6ZT0zLAogICAgICAgICAgICAgICB3aWR0aCA9IDAuMSkgKwogIHRoZW1lX2Vjb25vbWlzdCgpICsKICBzY2FsZV9maWxsX2Vjb25vbWlzdCgpCmBgYAoKVGhlIG9sZGVyIG9uZSBzZWVtcyB0byBnZXQsIHRoZSBtb3JlIHRoZXkgcHJlZmVyIHRyYWRpdGlvbmFsIGZvb2QuIEluIGdlbmVyYWwgdGhvdWdoIG92ZXJhbGwgdHJhZGl0aW9uYWwgZm9vZCBpcyBlbmpveWVkIGJ5IGFsbCBhZ2VzLCB3aGVyZWFzIFdlc3Rlcm4gRm9vZCBpcyBlbmpveWVkIG1vc3RseSBieSB5b3VuZyBhZHVsdHMuCgpUaGlzIG1ha2VzIHNlbnNlIGFjY29yZGluZyB0byBhIHN0dWR5IGRvbmUgYnkgW0NlbnRlcnMgZm9yIERpc2Vhc2UgQ29udHJvbF0oaHR0cHM6Ly93d3cuY2RjLmdvdi9uY2hzL3Byb2R1Y3RzL2RhdGFicmllZnMvZGIzMjIuaHRtKSB3aGljaCBjb25jbHVkZWQgdGhhdCAidGhlIHBlcmNlbnRhZ2Ugb2YgYWR1bHRzIHdobyBjb25zdW1lZCBmYXN0IGZvb2QgZGVjcmVhc2VkIHdpdGggYWdlIiB3aXRoIHRoZSBoaWdoZXN0IGNvbnN1bXB0aW9uIGJlaW5nIGRvbmUgYnkgcGVvcGxlIGFnZXMgMjAtMzkuIAoKYGBge3IgaW5jbHVkZT1GQUxTRX0KY29yckRhdGEgPSBkdW1teV9jb2xzKGRhdGFbLCAtYygxLDIsMyw0KV0scmVtb3ZlX2ZpcnN0X2R1bW15ID0gRikKYGBgCgpgYGB7ciBlY2hvPUZBTFNFfQpnZ2NvcnIoCiAgY29yckRhdGEsCiAgbmFtZSA9IGV4cHJlc3Npb24ocmhvKSwKICBtYXhfc2l6ZSA9IDIwLAogIG1pbl9zaXplID0gMTUsCiAgc2l6ZSA9IDMsCiAgaGp1c3QgPSAwLjc1LAogIG5icmVha3MgPSA2LAogIGFuZ2xlID0gLTM1LAogIHBhbGV0dGUgPSAiUHVPciIpCmBgYAoKQXMgeW91IGNhbiBzZWUgYSBsb3Qgb2Ygd2hhdCB3ZSBmaW5kIGNvcnJlbGF0ZWQgbWFrZXMgc2Vuc2UsIGZvciBzdGFydGVycyBhcyB3ZSBkZXRlcm1pbmVkIGJlZm9yZSB3ZSBzZWUgYSBjb3JyZWxhdGlvbiBiZXR3ZWVuIHRoZSBhZ2Ugb2Ygc29tZW9uZSBhbmQgdGhlaXIgcHJlZmVyZW5jZSBmb3IgdHJhZGl0aW9uYWwgZm9vZC4KCldlIGNhbiBhbHNvIGluZmVyIHRoYXQgcGVvcGxlIHdobyBlYXQgd2VzdGVybiBmb29kIHRlbmQgdG8gaGF2ZSBsZXNzIHRoYW4gaWRlYWwgZGlldHMsIG9wdGluZyB0byBkcmluayBjYXJib25hdGVkIGRyaW5rcyBhcyB3ZWxsIGFzIGVhdGluZyBkZXNzZXJ0IGFmdGVyd2FyZHMuIFdoaWxlIHRoZSBpbnZlcnNlIGNhbiBiZSBzYWlkIGZvciBwZW9wbGUgd2hvIGVuam95IHRyYWRpdGlvbmFsIGZvb2QuCgojIENvbmNsdXNpb24KCldlIHN0YXJ0ZWQgb2ZmIGluZmVycmluZyBiYXNlZCBvbiBteSBwZXJzb25hbCBleHBlcmllbmNlIHRoYXQgcGVvcGxlIHdvdWxkIHByZWZlciB0byBlYXQgbW9yZSB0cmFkaXRpb25hbCBmb29kLiBBZnRlciBjb25kdWN0aW5nIG15IGFuYWx5c2lzIEkgY2FuIHNheSBmb3IgY2VydGFpbiB0aGF0IHBlb3BsZSBmcm9tIGFsbCBhZ2UgZ3JvdXBzIG1vc3RseSB3b21lbiBkbyBpbiBmYWN0IHByZWZlciB0cmFkaXRpb25hbCBmb29kLgoKUGVvcGxlIHdobyBlYXQgd2VzdGVybiBmb29kIGFsc28gc2VlbSB0byBsZWFkIGEgbW9yZSB1bmhlYWx0aHkgbGlmZSBzdHlsZSBhcyB0aGV5IG9wdCB0byBkcmluayBjYXJib25hdGVkIGRyaW5rcyBhbmQgZWF0IGRlc3NlcnQgYWZ0ZXJ3YXJkcy4gSG93ZXZlciBhcyBwZW9wbGUgYWdlIHRoZSBwcmVmZXJlbmNlIGZvciB3ZXN0ZXJuIGZvb2QgZGVjcmVhc2VzLg==