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==