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.