heatmap

Grafico de Temperatura de Vehiculos año 1999

library(ggplot2)
head(mpg)

## # A tibble: 6 x 11
##   manufacturer model displ  year   cyl trans      drv     cty   hwy fl    class 
##   <chr>        <chr> <dbl> <int> <int> <chr>      <chr> <int> <int> <chr> <chr> 
## 1 audi         a4      1.8  1999     4 auto(l5)   f        18    29 p     compa~
## 2 audi         a4      1.8  1999     4 manual(m5) f        21    29 p     compa~
## 3 audi         a4      2    2008     4 manual(m6) f        20    31 p     compa~
## 4 audi         a4      2    2008     4 auto(av)   f        21    30 p     compa~
## 5 audi         a4      2.8  1999     6 auto(l5)   f        16    26 p     compa~
## 6 audi         a4      2.8  1999     6 manual(m5) f        18    26 p     compa~

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

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

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

#Calc distancias
mpg1999D<-dist(mpg1999N)

library(reshape2)

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

grafico<-ggplot(mpg1999DLong, aes(Var1, Var2, fill=value))
grafico<-grafico + geom_tile()
grafico

Grafico de temperatura para vehiculos por clase y año

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

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

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

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

#Calc distancias
mpg1999D<-dist(mpg1999N)

library(reshape2)

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

Grafico de Temperatura utilizando la paleta de color Viridis

grafico<-ggplot(mpg1999DLong, aes(Var1, Var2, fill=value))
grafico<-grafico + geom_tile()
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