создание доверительной области для нормально распределенной диаграммы рассеяния в ggplot2 и R

У меня есть некоторые данные, скажем (на самом деле, у меня есть большой объем данных):

x   y
0.1 0.267
0.2 0.254
0.3 0.182
0.4 0.173
0.5 0.121
0.6 0.089
0.7 0.070
0.8 0.056
0.9 0.031

Эти данные примерно соответствуют кривой тенденции, которую я строю с помощью ggplot stat_smooth (). stat_smooth создает серую область, в которой есть 95% уверенности в том, что линия тренда попадет внутрь.

Вместо этого я хочу создать серую область вокруг того места, где будет линия тренда, а именно создать серую зону вокруг того места, где точки данных будут падать с вероятностью 95%, предполагая нормальное распределение вокруг линии тренда.

Другими словами, я хочу, чтобы smooth_lines соединяла вершину и основание полос погрешностей и заштриховывала их между ними в ggplot. Как мне это сделать?

Спасибо.