Dendrograma Emoji Foods

Dendrograma Del La comida Con Emoji

##Importando los Datos.
library(readr)
EmojiFoods <- read_csv("EmojiFoods.csv")

### Normalizar el data 
EmojiNorm = scale(EmojiFoods[,3:35])

### asignando el nombre de las filas
rownames(EmojiNorm) = EmojiFoods$name

### Calculando las Distancias
EmojiDistancias = dist(EmojiNorm)

### Agrupamiento Jerarquico
clusters = hclust(EmojiDistancias)




# labels
#install.packages("stringi")
library(stringi)
labels <- EmojiFoods[,c(1,2)]

# function para adicionar datos de labels
trimEmojiCode <- function (df,order){
  for(i in 1:nrow(df)){
    index <- order[i]
    df[index,3] <- order[i]
    tmp <- strsplit(stringi::stri_escape_unicode(df[index,2]),"\\\\U000")
    df[i,4] <- tmp[[1]][2]
  }
  colnames(df)<- c('name','emoji','id','code')
  return (df)
}
labels <- trimEmojiCode(labels, clusters$order)


### Creando en Dendograma
library('ggdendro')
library('ggimage')
dendrograma = ggdendrogram(clusters, size=2)
dendrograma = dendrograma + geom_emoji(data=labels, aes(id,-1,image=code),size=0.02)
dendrograma = dendrograma + geom_hline(yintercept = 13, color="red")
dendrograma = dendrograma + annotate("text", label="Corte" , x=0 , y=14 , color="red")
dendrograma