Я хотел бы рассчитать площадь между синей линией и серой диагональной линией.

Я могу рассчитать площадь под синей линией как:

library(zoo)    
id <- order(x)
AUC <- sum(diff(x[id])*rollmean(y[id],2))

(благодаряРассчитать площадь под кривой в R)

Есть идеи, как найти область между синей и серой линией?

Заранее спасибо ес