Ejercicio #2 - Visualización de datos

Proximidad entre el valor nutricional de los alimentos - Ejercicio en clase

#Importación de librerias

library(ggplot2)
library(emoji)
library(emojifont)
library(dplyr)

#Lectura del archivo origen de datos
emojifood <- read.csv("C:/Users/FELIPE INFODEC/OneDrive - INFODEC SAS/Documentos/R/visualizacion/emojifood/Emojisfood.csv", sep=",")


#Normalización
emojifoodnorm <- scale(emojifood[,3:35])

#Calcular distancia
distancias <- dist(emojifoodnorm, upper=TRUE)

#Reducción de dimensiones
emojifood_mds <- cmdscale(d=distancias,k=2)

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

#Unión de dataframes
datasetfinal <- cbind(emojifood_mds, emojifood)

grafico <- ggplot(datasetfinal, aes(x=X, y=Y, label=emoji(name))) + 
  geom_point() + 
  geom_text(aes(X,Y,label=ifelse(is.na(emoji(name)), emoji('pizza'), emoji(name))),family="EmojiOne", size=5)

#Existen unos emojis faltantes que generan error por tanto, se usa un condicional en donde se corrige el error poniendo el emoji de pizza
#de manera temporal mientras se revisa la libreria y los emojis

grafico