Varie o gradiente de cores em um gráfico de dispersão criado com ggplot2

É possível variar o gradiente de cores de um gráfico por estética? Estou gerando um gráfico usando código semelhante às linhas apresentadas abaixo e descobrindo, em alguns casos, que nem sempre é fácil distinguir entre os vários grupos. Por exemplo, no gráfico abaixo, seria mais fácil distinguir os resultados se os pontos do grupo A usassem um gradiente de branco-azul e os pontos do grupo B usassem um gradiente de branco-vermelh

data <- data.frame(x=c(1,2,3,4,5,6,1,2,3,4,5,6), 
    y=c(1,2,3,4,5,6,1,2,3,4,5,6), grp=c(rep("A",6),rep("B",6)),
    dt=c("2010-06-30","2010-05-31","2010-04-30",
      "2010-03-31","2010-02-26","2010-01-29","2010-06-30",
      "2010-05-31","2010-04-30",
      "2010-03-31","2010-02-26","2010-01-29"))
p <- ggplot(data, aes(x,y,color=as.integer(as.Date(data$dt)))) + 
    geom_jitter(size=4, alpha=0.75, aes(shape=grp)) + 
    scale_colour_gradient(limits=as.integer(as.Date(c("2010-01-29","2010-06-30"))),
    low="white", high="blue") +
    scale_shape_discrete(name="") +
    opts(legend.position="none")
print(p)

questionAnswers(1)

yourAnswerToTheQuestion