Создание доверительной области для нормально распределенной диаграммы рассеяния в 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 соединял вершины и днища баров ошибок и затенял inbetween в ggplot. Как мне это сделать?

Спасибо.