Ejercicio 3

## Rows: 58 Columns: 35
## -- Column specification --------------------------------------------------------
## Delimiter: ","
## chr  (2): name, emoji
## dbl (33): Calories (kcal), Carbohydrates (g), Total Sugar (g), Protein (g), ...
## 
## i Use `spec()` to retrieve the full column specification for this data.
## i Specify the column types or set `show_col_types = FALSE` to quiet this message.

#Matriz de distancia (Matriz de distancias euclidianas)
#Primero escalamos las variables 
EmojisFood1<-scale(EmojisFood[,3:35])

rownames(EmojisFood1)<-EmojisFood$name

#Distancias
distancias<-dist(EmojisFood1,upper = TRUE)

#Coordenadas de los alimentos en dos dimensiones
dimReducidas<-cmdscale(distancias,k=2)

library(ggplot2)

dimReducidas<-as.data.frame(dimReducidas)

p<-ggplot(dimReducidas)
p<-p+aes(x=V1,y=V2)
#p<-p+aes(x=V1,y=V2,col="red")
#p<-p+geom_point()
p<-p+geom_text(aes(label=EmojisFood$name),angle=45,size=3,check_overlap = TRUE)
p<-p+labs(x="Coordenada 1", y="Coordenada 2")
p<-p+geom_density2d()
p