- gDiff <- ggplot(data = Melt, aes(x = Var1, y = Var2, fill = value)) + geom_tile() +
- scale_fill_gradient2(low = "blue", high = "red", mid = "white", midpoint = 0,
- space = "Lab") + ggtitle(paste("Difference between regression matrices in cluster",
- k1, "and", k2))
+ gDiff <- ggplot(data = Melt, aes(x = Var1, y = Var2, fill = value))
+ + geom_tile()
+ + scale_fill_gradient2(low = "blue", high = "red", mid = "white", midpoint = 0,
+ space = "Lab")
+ + ggtitle(paste("Difference between regression matrices in cluster",
+ k1, "and", k2))