HeatMap

library('ggplot2')
#str(mpg)
#summary(mpg)

mpg1999<- subset(mpg, mpg$class=='suv' & mpg$year==1999)

mpg1999 <- mpg1999[complete.cases(mpg1999),]
 
# normalizar columnas númericas

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

# nombres de las filas

rownames(mpg1999N)<-mpg1999$model

# calcular las distancias

mpg1999D <- dist(mpg1999N)

library('reshape2')

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

mpg1999Dlong <- melt(data.matrix(mpg1999D))

grafico <- ggplot(mpg1999Dlong, aes(Var1, Var2, fill=value))

grafico <- grafico + geom_tile()

#grafico <- grafico + scale_fill_distiller(palette = "Oranges")

grafico <- grafico + scale_fill_viridis_c(option = "magma")

grafico <- grafico + theme(axis.text.x = element_text(angle = 90))

grafico

#dendograma

mpg1999Clusters <- hclust(mpg1999D)

library('ggdendro')

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

grafico <- ggdendrogram(mpg1999Clusters, size = 2)

grafico