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