Dendograma Alimentos
Julian Moreno
2022-06-22
#Ejercicio Dendograma
#Importar Datos
EmojisFood <- read.csv("C:/Users/julia/OneDrive/Desktop/Maestria/Semestre 1/Visualizacion de datos/Ejercicio clase 4/EmojisFood.csv", stringsAsFactors=TRUE)
#Normalización
EmojisN <- scale(EmojisFood[,c(3:35)], center=FALSE)
summary(EmojisN)## Calories..kcal. Carbohydrates..g. Total.Sugar..g. Protein..g.
## Min. :0.003786 Min. :0.0000 Min. :0.0000 Min. :0.00000
## 1st Qu.:0.204463 1st Qu.:0.2045 1st Qu.:0.0000 1st Qu.:0.08074
## Median :0.528195 Median :0.4817 Median :0.1795 Median :0.23720
## Mean :0.727043 Mean :0.7115 Mean :0.4679 Mean :0.59328
## 3rd Qu.:1.035565 3rd Qu.:0.9020 3rd Qu.:0.5503 3rd Qu.:0.81631
## Max. :3.400137 Max. :2.9378 Max. :4.7872 Max. :3.25104
## Total.Fat..g. Saturated.Fat..g. Monounsaturated.Fat..g.
## Min. :0.00000 Min. :0.000000 Min. :0.000000
## 1st Qu.:0.01014 1st Qu.:0.003652 1st Qu.:0.001514
## Median :0.04028 Median :0.013566 Median :0.014151
## Mean :0.47032 Mean :0.448490 Mean :0.441847
## 3rd Qu.:0.69937 3rd Qu.:0.613438 3rd Qu.:0.619929
## Max. :5.52832 Max. :5.135958 Max. :5.454241
## Polyunsaturated.Fat..g. Total.Fiber..g. Cholesterol..mg. Vitamin.B6..mg.
## Min. :0.00000 Min. :0.0000 Min. :0.0000 Min. :0.0000
## 1st Qu.:0.01574 1st Qu.:0.0000 1st Qu.:0.0000 1st Qu.:0.2225
## Median :0.07809 Median :0.4861 Median :0.0000 Median :0.3092
## Mean :0.43633 Mean :0.6402 Mean :0.4759 Mean :0.6301
## 3rd Qu.:0.48531 3rd Qu.:0.9722 3rd Qu.:0.4359 3rd Qu.:0.5618
## Max. :4.61939 Max. :3.7393 Max. :3.4068 Max. :3.8107
## Vitamin.A..IU. Vitamin.B12..ug. Vitamin.C..mg. Vitamin.D..IU.
## Min. :0.000000 Min. :0.0000 Min. :0.00000 Min. :0.0000
## 1st Qu.:0.000369 1st Qu.:0.0000 1st Qu.:0.00000 1st Qu.:0.0000
## Median :0.018017 Median :0.0000 Median :0.01665 Median :0.0000
## Mean :0.227113 Mean :0.3663 Mean :0.38137 Mean :0.2164
## 3rd Qu.:0.046445 3rd Qu.:0.2989 3rd Qu.:0.23769 3rd Qu.:0.0000
## Max. :5.676143 Max. :5.7173 Max. :5.31624 Max. :7.1374
## Vitamin.E..IU. Vitamin.K..ug. Thiamin..mg. Riboflavin..mg.
## Min. :0.0000 Min. :0.0000 Min. :0.0000 Min. :0.0000
## 1st Qu.:0.0000 1st Qu.:0.0000 1st Qu.:0.1291 1st Qu.:0.1658
## Median :0.1298 Median :0.1181 Median :0.2999 Median :0.3875
## Mean :0.3798 Mean :0.4922 Mean :0.6021 Mean :0.7121
## 3rd Qu.:0.4603 3rd Qu.:0.5748 3rd Qu.:0.7471 3rd Qu.:1.2200
## Max. :6.5542 Max. :5.0084 Max. :3.7031 Max. :2.8046
## Niacin..mg. Folate..ug. Pantothenic.Acid..mg. Choline..mg.
## Min. :0.00000 Min. :0.0000 Min. :0.0000 Min. :0.00000
## 1st Qu.:0.06131 1st Qu.:0.1067 1st Qu.:0.1280 1st Qu.:0.09117
## Median :0.25787 Median :0.3456 Median :0.4704 Median :0.24798
## Mean :0.58617 Mean :0.5910 Mean :0.6620 Mean :0.56876
## 3rd Qu.:0.67184 3rd Qu.:0.8489 3rd Qu.:0.8372 3rd Qu.:0.66917
## Max. :4.47682 Max. :4.8796 Max. :3.1423 Max. :4.68239
## Calcium..g. Copper..mg. Iron..mg. Magnesium..mg.
## Min. :0.00000 Min. :0.02007 Min. :0.0000 Min. :0.0000
## 1st Qu.:0.05187 1st Qu.:0.19439 1st Qu.:0.1710 1st Qu.:0.2571
## Median :0.11115 Median :0.38878 Median :0.2946 Median :0.3471
## Mean :0.39950 Mean :0.57457 Mean :0.6622 Mean :0.6074
## 3rd Qu.:0.36865 3rd Qu.:0.64463 3rd Qu.:0.9734 3rd Qu.:0.6943
## Max. :6.59490 Max. :5.73892 Max. :3.1014 Max. :4.3200
## Manganese..mg. Phosphorus..g. Potassium..g. Selenium..ug.
## Min. :0.0000 Min. :0.007164 Min. :0.02089 Min. :0.00000
## 1st Qu.:0.0603 1st Qu.:0.143286 1st Qu.:0.47212 1st Qu.:0.01636
## Median :0.2052 Median :0.340305 Median :0.66640 Median :0.07769
## Mean :0.4446 Mean :0.639231 Mean :0.80470 Mean :0.58065
## 3rd Qu.:0.4734 3rd Qu.:0.879421 3rd Qu.:0.96304 3rd Qu.:0.78510
## Max. :6.0989 Max. :4.112322 Max. :2.94551 Max. :2.48614
## Sodium..g. Zinc..mg.
## Min. :0.000000 Min. :0.008011
## 1st Qu.:0.007203 1st Qu.:0.084114
## Median :0.048621 Median :0.280379
## Mean :0.532907 Mean :0.571530
## 3rd Qu.:0.769834 3rd Qu.:0.542733
## Max. :3.230603 Max. :3.757072#summary(EmojisFood)
#Renombrar indices
rownames(EmojisN) <- EmojisFood$name
#calcular distancias
distancias <- dist(EmojisN)
#Agrupamiento Jerarquico
clusters <- hclust(distancias)
#Librería de dendogramas
#install.packages("ggdendro")
library(ggdendro)
grafica <- ggdendrogram(clusters, size=2)
grafica