ggplotheatmap.R

colnames(res) <- colnames(maoa)
res <-as.data.frame(res)
res$group <- colnames(maoa)

library(reshape2)
res <- melt(res,id="group")

library(ggplot2)
p <- ggplot(res, aes(x=group, y=variable)) + 
  geom_tile(aes(fill = value), colour =   "yellow") + 
  scale_fill_gradient(low = "yellow", high = "red", name="p-value") +
  ggtitle("Human MAOA versus MAOB expression") +
  theme(axis.text.x=element_text(angle=90)) +
  geom_text(aes(label=format(value,digits=2))) +
  labs(x="maoa",y="maob")

print(p)