基于ggplot2热图中的另一个变量改变渐变颜色

Question

I have constructed this plot in ggplot2:

使用此代码：

   m_date = c( rep("2015-09-13", 3),  rep("2015-09-14", 3), rep("2015-09-15", 3))
   M_date = as.Date(m_date)
   M_hour = c(11, 12, 13, 11, 12, 13, 11, 12, 13)
   M_Count = c(1, 2, 3, 4, 5, 6, 7, 8, 9)
   M_WE = c(1, 1, 1, 0, 0, 0, 0, 0, 0)
   Mock = data.frame(M_date, M_hour, M_Count, M_WE)
   p1 = qplot(M_date, M_hour, fill=M_Count, data=Mock, geom="tile")
   p1 = p1 + scale_x_date() + scale_y_reverse() + scale_fill_gradient(low = "white", high = "green2")
   print(p1)

我想尝试通过变量M_WE来改变渐变的颜色（我希望周末是蓝色，而工作日是绿色。）是否可能？我能够为周末和工作日计数创建新列，并且可以创建两个单独的图表，但之后无法将它们组合在一起。

非常感谢！ 达斯汀