r - rのX方向の通常の曲線の下でカラーグリッドを塗りつぶす

Question

カーブの下でシェーディングしようとしています (この投稿の y 方向とは対照的です)。以下は、充填方向の仮説です。

curve(dnorm(x,0,1),xlim=c(-3,3),main='Standard Normal')

非常に小さなポリゴンをさまざまな色で塗りつぶすことができる関数を作成しようとしています(これが正しいアプローチかどうかはわかりません)。グラデーションのように見えます。

アイデアは、次の単一ポリゴンの塗りつぶしを n ポリゴンに拡張することです。

codx <- c(-3,seq(-3,-2,0.01),-2)
cody <- c(0,dnorm(seq(-3,-2,0.01)),0)

 curve(dnorm(x,0,1),xlim=c(-3,3),main='Standard Normal')
 polygon(codx,cody,col='red')

関数に拡張しようとしました: x1 <- NULL y1 <- NULL

polys <- function ( lwt, up, itn) {
    x1 <- c(lwt,seq(lwt,up, itn),up)
    y1 <- c(0,dnorm(seq(lwt,up,tn)),0)
    out <- list (x1, y1)
    return (out)
    }
out <- polys(lwt = 0, up = 1, itn = 0.1)

library(RColorBrewer)
plotclr <- brewer.pal(10,"YlOrRd")

この方法では、関数を実行することも、9 つ以上の色を作成することもできませんでした。助けていただければ幸いです。