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)