heatmap

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

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

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

# nombrar fiilas
rownames(mpg1999N)<- mpg1999$model

# calculos de distaancias

mpg1999D<- dist(mpg1999N)

library(reshape2)

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

Including Plots

observemos el dendograma

mpg1999Clusters<- hclust(mpg1999D)
library('ggdendro')
dendograma<- ggdendrogram(mpg1999Clusters)
dendograma

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.