Я пытаюсь построить два распределения на графике и использую функцию многоугольника для затенения
x <- seq(-0.1,0.1,length=1000)
plot(x = x,
y = dnorm(x, 2, 1),
type = "l",
col = "white",
axes = FALSE,
mgp = c(2, 2, 2),
ylim=c(0,30),
frame.plot=TRUE,
xlab = " ",
ylab = " ",
font.main = 1,
main=paste(" "),
lwd=2,)
polygon(x,dnorm(x, 0, 0.019),col=6,border = NULL)
polygon(x,dnorm(x, 0.08, 0.02),col=rgb(0.8,0.8,0.8,0.5),border = T)
К сожалению, второй дистрибутив работает неправильно, как видно на прилагаемой картинке. Я знаю, что это потому, что функция многоугольника соединяет первую и последнюю точки распределения, но я не уверен, как указать, что я хотел бы, чтобы самая правая часть распределения возвращалась к нулю на y ось, прежде чем соединить эти две точки.
Заранее спасибо.
