​Quando alguém diz que quer o mesmo que o Excel me causa um pouco de estranheza​

​. Eu sinceramente não sei qual a utilidade de se preencher a área abaixo das séries. Penso que só as séries são suficientes. O mesmo para os gráficos de barras 3D ou até aqueles onde os blocos retangulares são substituídos por cones. Não vejo necessidade. Bem, o código abaixo não faz exatamente o que você precisa porque de fato eu não entendi o que você precisa. Mesmo assim, pode ser um ponto de partida. Pensou em polígonos com cores ou padrões então vá para a polygon().

d1 <- data.frame(X=1:10,
                 Y1=c(-1.2,0,0,0,0,-30.3,-1.6,0,0,-2.4),
                 Y2=c(0,8.9,62.7,14,7.4,0,0,14.6,9.3,0))

plot(Y2~Y1, d1)
plot(Y2~X, d1)

plot(c(Y1,Y2)~c(X,X), d1)
with(d1, polygon(x=c(X,rev(X)),
                 y=c(Y1, rep(min(Y1), length(Y1))),
                 col="blue2"))
with(d1, polygon(x=c(X,rev(X)),
                 y=c(Y2, rep(min(Y2), length(Y2))),
                 col="green"))

À disposição.
Walmes.​