Как использовать 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))

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

Спасибо!