EmojisFood <- read.csv("EmojisFood.csv",sep = ",")
summary(EmojisFood)
## name emoji Calories..kcal. Carbohydrates..g.
## Length:58 Length:58 Min. :0.010 Min. :0.00000
## Class :character Class :character 1st Qu.:0.540 1st Qu.:0.06822
## Mode :character Mode :character Median :1.395 Median :0.16070
## Mean :1.920 Mean :0.23736
## 3rd Qu.:2.735 3rd Qu.:0.30090
## Max. :8.980 Max. :0.98000
## Total.Sugar..g. Protein..g. Total.Fat..g. Saturated.Fat..g.
## Min. :0.00000 Min. :0.000000 Min. :0.000000 Min. :0.0000000
## 1st Qu.:0.00000 1st Qu.:0.006825 1st Qu.:0.001825 1st Qu.:0.0002275
## Median :0.03080 Median :0.020050 Median :0.007250 Median :0.0008450
## Mean :0.08027 Mean :0.050148 Mean :0.084650 Mean :0.0279357
## 3rd Qu.:0.09440 3rd Qu.:0.069000 3rd Qu.:0.125875 3rd Qu.:0.0382100
## Max. :0.82120 Max. :0.274800 Max. :0.995000 Max. :0.3199100
## Monounsaturated.Fat..g. Polyunsaturated.Fat..g. Total.Fiber..g.
## Min. :0.000000 Min. :0.00000 Min. :0.00000
## 1st Qu.:0.000115 1st Qu.:0.00053 1st Qu.:0.00000
## Median :0.001075 Median :0.00263 Median :0.01300
## Mean :0.033566 Mean :0.01470 Mean :0.01712
## 3rd Qu.:0.047095 3rd Qu.:0.01634 3rd Qu.:0.02600
## Max. :0.414350 Max. :0.15558 Max. :0.10000
## Cholesterol..mg. Vitamin.B6..mg. Vitamin.A..IU. Vitamin.B12..ug.
## Min. :0.0000 Min. :0.0000000 Min. : 0.0000 Min. :0.00000
## 1st Qu.:0.0000 1st Qu.:0.0004425 1st Qu.: 0.0125 1st Qu.:0.00000
## Median :0.0000 Median :0.0006150 Median : 0.6100 Median :0.00000
## Mean :0.1774 Mean :0.0012533 Mean : 7.6895 Mean :0.00196
## 3rd Qu.:0.1625 3rd Qu.:0.0011175 3rd Qu.: 1.5725 3rd Qu.:0.00160
## Max. :1.2700 Max. :0.0075800 Max. :192.1800 Max. :0.03060
## Vitamin.C..mg. Vitamin.D..IU. Vitamin.E..IU. Vitamin.K..ug.
## Min. :0.00000 Min. :0.000000 Min. :0.000000 Min. :0.00000
## 1st Qu.:0.00000 1st Qu.:0.000000 1st Qu.:0.000000 1st Qu.:0.00000
## Median :0.00450 Median :0.000000 Median :0.001650 Median :0.00950
## Mean :0.10309 Mean :0.008793 Mean :0.004828 Mean :0.03960
## 3rd Qu.:0.06425 3rd Qu.:0.000000 3rd Qu.:0.005850 3rd Qu.:0.04625
## Max. :1.43700 Max. :0.290000 Max. :0.083300 Max. :0.40300
## Thiamin..mg. Riboflavin..mg. Niacin..mg. Folate..ug.
## Min. :0.0000000 Min. :0.0000000 Min. :0.000000 Min. :0.0000
## 1st Qu.:0.0002475 1st Qu.:0.0002525 1st Qu.:0.001653 1st Qu.:0.0525
## Median :0.0005750 Median :0.0005900 Median :0.006950 Median :0.1700
## Mean :0.0011545 Mean :0.0010841 Mean :0.015799 Mean :0.2907
## 3rd Qu.:0.0014325 3rd Qu.:0.0018575 3rd Qu.:0.018107 3rd Qu.:0.4175
## Max. :0.0071000 Max. :0.0042700 Max. :0.120660 Max. :2.4000
## Pantothenic.Acid..mg. Choline..mg. Calcium..g. Copper..mg.
## Min. :0.000000 Min. :0.0000 Min. :0.0000 Min. :0.0000400
## 1st Qu.:0.000720 1st Qu.:0.0250 1st Qu.:0.0700 1st Qu.:0.0003875
## Median :0.002645 Median :0.0680 Median :0.1500 Median :0.0007750
## Mean :0.003723 Mean :0.1560 Mean :0.5391 Mean :0.0011453
## 3rd Qu.:0.004707 3rd Qu.:0.1835 3rd Qu.:0.4975 3rd Qu.:0.0012850
## Max. :0.017670 Max. :1.2840 Max. :8.9000 Max. :0.0114400
## Iron..mg. Magnesium..mg. Manganese..mg. Phosphorus..g.
## Min. :0.000000 Min. :0.0000 Min. :0.0000000 Min. :0.0100
## 1st Qu.:0.002525 1st Qu.:0.1000 1st Qu.:0.0004025 1st Qu.:0.2000
## Median :0.004350 Median :0.1350 Median :0.0013700 Median :0.4750
## Mean :0.009779 Mean :0.2362 Mean :0.0029674 Mean :0.8922
## 3rd Qu.:0.014375 3rd Qu.:0.2700 3rd Qu.:0.0031600 3rd Qu.:1.2275
## Max. :0.045800 Max. :1.6800 Max. :0.0407100 Max. :5.7400
## Potassium..g. Selenium..ug. Sodium..g. Zinc..mg.
## Min. :0.050 Min. :0.0000 Min. :0.000 Min. :0.000100
## 1st Qu.:1.130 1st Qu.:0.0020 1st Qu.:0.020 1st Qu.:0.001050
## Median :1.595 Median :0.0095 Median :0.135 Median :0.003500
## Mean :1.926 Mean :0.0710 Mean :1.480 Mean :0.007134
## 3rd Qu.:2.305 3rd Qu.:0.0960 3rd Qu.:2.138 3rd Qu.:0.006775
## Max. :7.050 Max. :0.3040 Max. :8.970 Max. :0.046900
food.pca<-prcomp(as.data.frame(EmojisFood[,c(3:35)]),center=T,scale=T)
summary(food.pca)
## Importance of components:
## PC1 PC2 PC3 PC4 PC5 PC6 PC7
## Standard deviation 3.2641 2.1815 1.7753 1.59904 1.28387 1.205 1.14418
## Proportion of Variance 0.3229 0.1442 0.0955 0.07748 0.04995 0.044 0.03967
## Cumulative Proportion 0.3229 0.4671 0.5626 0.64006 0.69001 0.734 0.77368
## PC8 PC9 PC10 PC11 PC12 PC13 PC14
## Standard deviation 1.08022 1.028 0.96607 0.93079 0.84633 0.75021 0.7035
## Proportion of Variance 0.03536 0.032 0.02828 0.02625 0.02171 0.01706 0.0150
## Cumulative Proportion 0.80904 0.841 0.86932 0.89557 0.91728 0.93433 0.9493
## PC15 PC16 PC17 PC18 PC19 PC20 PC21
## Standard deviation 0.5998 0.54319 0.47947 0.43131 0.35189 0.31007 0.2931
## Proportion of Variance 0.0109 0.00894 0.00697 0.00564 0.00375 0.00291 0.0026
## Cumulative Proportion 0.9602 0.96917 0.97614 0.98178 0.98553 0.98844 0.9910
## PC22 PC23 PC24 PC25 PC26 PC27 PC28
## Standard deviation 0.26377 0.23790 0.21648 0.1817 0.16691 0.13963 0.11598
## Proportion of Variance 0.00211 0.00172 0.00142 0.0010 0.00084 0.00059 0.00041
## Cumulative Proportion 0.99315 0.99487 0.99629 0.9973 0.99813 0.99872 0.99913
## PC29 PC30 PC31 PC32 PC33
## Standard deviation 0.09621 0.09313 0.07501 0.06929 0.01721
## Proportion of Variance 0.00028 0.00026 0.00017 0.00015 0.00001
## Cumulative Proportion 0.99941 0.99968 0.99985 0.99999 1.00000
#install.packages("dvtools")
library(devtools)
## Loading required package: usethis
#install.packages("ggbiplot")
library(ggbiplot)
## Loading required package: ggplot2
## Loading required package: plyr
## Loading required package: scales
## Loading required package: grid
ggbiplot(food.pca,labels=EmojisFood$name)+geom_jitter()
