У меня есть два графика, показывающих спрос и предложение, и один график, на котором я вычел спрос из предложения, чтобы показать результирующую асимметрию. Я хотел бы заштриховать область между осью X и отрицательной частью асимметрии, чтобы показать степень дефицита.

В настоящее время я использую следующий код:

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)) 

Однако - как и следовало ожидать - это не затеняет область между geom_line и осью x, а только между отрицательными значениями данных асимметрии, что является чем-то совершенно другим, как показано в результирующем графике:

Есть ли способ преодолеть эту проблему?

/ Изменить: некоторые данные примера:

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)