Mapa de Calor

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

mpg1999 <- mpg1999[complete.cases(mpg1999), ]

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

# Nombrar las filas
rownames(mpg1999N) <- mpg1999$model

# Calcular distancias
mpg1999D <- dist(mpg1999N)

library(reshape2)

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

# Convertir de wide a long
mpg1999DLong <- melt(data.matrix(mpg1999D))

grafico <- ggplot(mpg1999DLong, aes(Var1, Var2, fill=value))
grafico <- grafico + geom_tile()
#grafico <- grafico + scale_fill_distiller(palette='Reds')
grafico <- grafico + scale_fill_viridis_c(option='inferno')
grafico <- grafico + theme(axis.text.x = element_text(angle=90))
grafico

# Dendrograrma

mpg1999Clusters <- hclust(mpg1999D)

library(ggdendro)

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

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