MDS

#Proximidad entre el valor nutricional de los alimentos de la colección de emojis -Tomado de: https://rpubs.com/Jsalam/777636

library(ggplot2)
library(emojifont)
library(GGally)

## Registered S3 method overwritten by 'GGally':
##   method from   
##   +.gg   ggplot2

emojiFood = read.csv('EmojisFood.csv')

#Normalización
emojiFoodNorm = scale(emojiFood[,3:35])

#Calculo de distancia
distancias = dist(emojiFoodNorm, upper=TRUE)

#reducción de dimensiones
emojiFood_MDS = cmdscale(d=distancias, k=2)
colnames(emojiFood_MDS) = c("X", "Y")


#Union de dataframes 
datasetFinal = cbind(emojiFood_MDS,emojiFood)


grafica = ggplot(datasetFinal, aes(x=X,y=Y, label=emoji(name))) + geom_point()+ geom_text(aes(X, Y, label = ifelse(is.na(emoji(name)), emoji('cow'), emoji(name))   ),family='EmojiOne', size=5)

#Corregimos el error de los emojis faltantes, reemplazandolos por vacas
grafica 

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