Heatmap

library ('ggplot2')

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

mpg1999 <- subset(mpg, mpg$year==1999)

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

#Normalizar columnas numericas

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

#nombrar las fillas
rownames(mpg1999N) <-mpg1999$model

#calc 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_viridis_c(option = 'cividis')
#grafico <- grafico + scale_fill_distiller(palette="Oranges")
grafico <- grafico + theme(axis.text.x = element_text(angle=90))
grafico

##dendograma
mpg1999Cluster <- hclust(mpg1999D)
library(ggdendro)

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

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