Вам нужно начать с какого-то сюжета.polygon
просто добавляет к существующему сюжету.Кроме того, вам нужно добавить несколько дополнительных точек, чтобы получить область под кривой, а не над ней.
x2 = c(x, 40, 25)
y2 = c(y, 0, 0)
plot(x,y, type="n")
polygon(x2,y2, col="yellow")
