Tenho duas parcelas exibindo oferta e demanda e uma parcela na qual subtraí a demanda da oferta para mostrar a assimetria resultante. Gostaria de sombrear a área entre o eixo x e a parte negativa da assimetria, para mostrar a extensão do défici

Atualmente, uso o seguinte código:

plot.asymmetry <- ggplot(data=df.overview.month, 
                         aes(x=Date.Time, y=Asymmetry)) +    
      geom_area(data=subset(df.overview.month, Asymmetry < 0),     
                         aes(x=Date.Time, y=Asymmetry)) 

No entanto - como era de se esperar - isso não sombrea a área entre geom_line e o eixo x, mas apenas entre valores negativos dos dados de assimetria, o que é algo totalmente diferente, conforme mostrado no gráfico resultante:

Existe alguma maneira de superar esse problem

/ Edit: alguns dados de exemplo:

time.initial <- as.POSIXct("2010-12-31 23:00:00", tz="GMT")
Date.Time<-vector()
for(i in 1:24) {
Date.Time[i] <- time.initial + i*3600
}

Demand<-vector()
for(i in 0:23) {
Demand[i+1] <- 155 + 20*sin((pi/12)*i - (pi/2)) + 10*sin((pi/4380)*i + (pi/2))
}

Supply<-vector()
for(i in 0:23) {
Supply[i+1] <- 165 + 5*sin((pi/4380)*i - (pi/2)) + rnorm(1, mean=0, sd=0.20*165)
}

df.overview.month <- data.frame(Date.Time, Demand, Supply, Asymmetry=Supply-Demand)