library("ggplot2")
library("reshape2")
data("mtcars")
cor = cor(mtcars)
cor_melt = melt(cor)
ggplot(cor_melt,
aes(x = Var1, y = Var2, fill = value)) +
geom_tile(colour = "black", size = 0.3) +
theme_bw() + scale_fill_gsea()
Run the code above in your browser using DataLab