Ejercicio Multidimesionamiento Escalar (MSD)

#Multidimesionamiento Escalar Emoji Alimentos

emojiFood<-read.csv("EmojisFood.csv")
library(ggplot2)
library(GGally)

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

#Se normaliza todo el Dataseet con la función scale (exceptuando las primeras dos columans que son de tipo categorico, las demás son numericas)

emojiFoodNorm <-scale(emojiFood[,3:35]) #me arroja una matriz de distancias con el valor normalizado. 

#Ahora calculamos las distancias entre todas las variables del dataseet

distancias <-dist(emojiFoodNorm, upper=TRUE)#Con Upper True obtengo una matriz siemtrica

#Ahora realizamos una reducción de dimensiones, en este caso se requiere en 2 dimensiones.

emojiFood_MDS <- cmdscale(d=distancias,k=2) #Ya tengo mis coordenadas X, y.
colnames(emojiFood_MDS) <- c ("x","y")

#hacemos una unión de dataframes.(uniendo columnas)

datasetFinal <- cbind(emojiFood_MDS,emojiFood)

library(emojifont)

#vamos a renombrar las columnas

grafico <- ggplot(datasetFinal,aes(x,y,label=name))+geom_point()+geom_point()+ geom_text (size=3, vjust=1.5, angle=45)

grafico