Heat map de mtcars

Exportamos los datos mtcars:

#Primero convertimos los datos en una matriz:
data("mtcars")
datos <- as.matrix(mtcars)
heatmap(datos)

Para una mejor visualizacion, se utilizara la funcion scale, tambien para ver el dendograma como la matriz en bruto y no reordenada ocuparemos la funcion Colv.

heatmap(datos, Colv = NA, scale="column")

Por ultimo damos el estilo cambiando la paleta de colores:

library(RColorBrewer)

heatmap(datos, scale="column", Colv = NA, 
        col= brewer.pal(n = 12,  name = 'Set3'))