#Multidimensionamiento escalar Emoji Alimentos

emojiFood<- read.csv("EmojisFood.csv") #Cargar Dataset

library(ggplot2) #Importar librerias

#Calculo distancias entre varialbes, por ejemplo, distancia euclidiana entre uvas y meones, por tanto, lo primero que se hace es normlaizar mi dataset para tener la misma unidad de medida

emojiFoodNorm <- scale(emojiFood[,3:35]) #NOrmalizar, como las dos primeras no son numericas (categoricas), entonces los parenteiss me sirve para decir que me ponga de la 3 a la 35

#calcular la distancia
distancias<-dist(emojiFoodNorm, upper = TRUE)

#Reduccion de dimensiones 

EmojiFood_DMS<-cmdscale(d=distancias, k=2) #k son el numero de dimensiones

colnames(EmojiFood_DMS) <- c("X", "Y" ) #Renombrar columnas

#Union de dataframes

datasetFinal<-cbind(EmojiFood_DMS, emojiFood)

library(emojifont)

grafico<- ggplot(datasetFinal, aes(X,Y, label=name)) + geom_point(alpha=0.2) + #geom_text(size=3, vjust=1.5, angle=45) + 
geom_text(aes(X,Y, label=emoji(name)), family="EmojiOne", size=5) #size me acomoda tamano lettra y vajust para ajustar

grafico
## Invalid: red apple, green apple, kiwifruit, hot pepper, french bread, beef, french fries, rice crackers, fried shrimp, ice cream, chocolate bar, custard flan, honey, milk, black tea, red wine
## Invalid: red apple, green apple, kiwifruit, hot pepper, french bread, beef, french fries, rice crackers, fried shrimp, ice cream, chocolate bar, custard flan, honey, milk, black tea, red wine
## Warning: Removed 16 rows containing missing values (geom_text).