Как я могу использовать spline () с ggplot?

Я хотел бы подогнать свои данные с помощью сплайна (y ~ x), но все примеры, которые я могу найти, используют сплайн со сглаживанием, например lm (y ~ ns (x), df = _).

Я хочу использовать spline () специально, потому что я использую его для анализа, представленного графиком, который я делаю.

Есть ли простой способ использовать spline () в ggplot ?

Я рассмотрел хакерский подход к подгонке линии с использованием

geom_smooth(aes(x=(spline(y~x)$x, y=spline(y~x)$y))

, но я бы предпочел не прибегать к этому.

Спасибо!