R：Polygon（）で曲線下の領域を塗りつぶす

Question

polygon（）関数でカーブの下の領域を塗りつぶす方法はありますか？

私の知る限り、この記事で答えを理解するよう： Fill under line curveを、私は戻って、それは左下に起動するので、ダウンボタンの右に、カーブまで上昇し、polygon(c(min(x), x, max(x)), c(min(y), y, min(y))は常にに動作することを前提とします最初まで

しかし、必ずしもそうではありません。時々、私はまだこの質問のようなグラフを得ます：Why polygon in R works with a full curve but not with a half curve?ここで、Rは単に線を引いてその下と上に塗りつぶします。

したがって、いつも動作するiput（または他の関数）は何ですか？

Answer 1

多分na.rm = TRUEがmin(y)に必要ですか？とにかく、ここでの機能は、埋めるためにどの水平境界線を指定するためにあなたの可能性を与えている：

fill_to_border <- function(f, from, to, y_border = 0, col = 1) { 
    curve_points <- curve(f, from, to) 
    polygon_x <- c(min(curve_points$x), curve_points$x, max(curve_points$x)) 
    polygon_y <- c(y_border, curve_points$y, y_border) 
    polygon_points <- list(x = polygon_x, y = polygon_y) 
    polygon(polygon_points, col = col) 
} 

fill(dnorm, -4, 0)