Heatmap

library(ggplot2)

## Registered S3 methods overwritten by 'tibble':
##   method     from  
##   format.tbl pillar
##   print.tbl  pillar

table(mpg$class)

## 
##    2seater    compact    midsize    minivan     pickup subcompact        suv 
##          5         47         41         11         33         35         62

str(mpg)

## tbl_df [234 x 11] (S3: tbl_df/tbl/data.frame)
##  $ manufacturer: chr [1:234] "audi" "audi" "audi" "audi" ...
##  $ model       : chr [1:234] "a4" "a4" "a4" "a4" ...
##  $ displ       : num [1:234] 1.8 1.8 2 2 2.8 2.8 3.1 1.8 1.8 2 ...
##  $ year        : int [1:234] 1999 1999 2008 2008 1999 1999 2008 1999 1999 2008 ...
##  $ cyl         : int [1:234] 4 4 4 4 6 6 6 4 4 4 ...
##  $ trans       : chr [1:234] "auto(l5)" "manual(m5)" "manual(m6)" "auto(av)" ...
##  $ drv         : chr [1:234] "f" "f" "f" "f" ...
##  $ cty         : int [1:234] 18 21 20 21 16 18 18 18 16 20 ...
##  $ hwy         : int [1:234] 29 29 31 30 26 26 27 26 25 28 ...
##  $ fl          : chr [1:234] "p" "p" "p" "p" ...
##  $ class       : chr [1:234] "compact" "compact" "compact" "compact" ...

mpg1999<-subset(mpg, mpg$class=="suv" & mpg$year==1999)
mpg1999<-mpg1999[complete.cases(mpg1999),]#traer filas que están completas de todas las columnas

#Normalizar columnas numéricas

mpg1999N<-scale(mpg1999[,c(3,5,8,9)])

#renombrar las filas

rownames(mpg1999N)<-mpg1999$model

#Calcular distancias

mpg1999D<-dist(mpg1999N) #convierte una matriz en un df

library(reshape2) #para convertir wide a long el formato del data set

mpg1999DLong<-melt(data.matrix(mpg1999D))
grafico<-ggplot(mpg1999DLong,aes(Var1,Var2,fill=value))
grafico<-grafico+geom_tile()
grafico<-grafico+scale_fill_viridis_c()
#grafico<-grafico+scale_fill_distiller(palette ="Oranges") #brewer=12 colores, para colores continuos mejor distiller
grafico<-grafico+ theme(axis.text.x=element_text(angle=90))


grafico

#hAGO EL CLUSTER

mpg1999Clusters<-hclust(mpg1999D)

library(ggdendro)

## Warning: package 'ggdendro' was built under R version 4.0.5

grafico<-ggdendrogram(mpg1999Clusters,size=2)
grafico