Какзаполнить область под и над (sp) линией сградиент цвета?

Этот пример был нарисован в Inkscape - НО НУЖНОвертикальный градиент - НЕ горизонтальный.

Интервал отнуль вположительный == избелый вкрасный.

Интервал отнуль вотрицательный == избелый вкрасный.

Есть липакет который мог это сделать?

Я сфабриковал некоторые исходные данные ....

set.seed(1)
x<-seq(from = -10, to = 10, by = 0.25)
data <- data.frame(value = sample(x, 25, replace = TRUE), time = 1:25)
plot(data$time, data$value, type = "n")
my.spline <- smooth.spline(data$time, data$value, df = 15)
lines(my.spline$x, my.spline$y, lwd = 2.5, col = "blue")
abline(h = 0)