如何将spline()与ggplot一起使用？

Question

我想使用样条(y~x)来拟合我的数据，但我能找到的所有示例都使用带平滑的样条，例如lm(y~ns(x)，df=_)。

我特别想使用spline()，因为我要使用它来分析我正在绘制的图所表示的分析。

在ggplot中有没有一种简单的方法来使用spline()？

我曾经考虑过一种老套的方法，即使用

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

但我不希望不得不求助于此。

谢谢!

Answer 1

这是你想要的吗？

n <- 10
d <- data.frame(x = 1:n, y = rnorm(n))
ggplot(d,aes(x,y)) + geom_point() + 
  geom_line(data=data.frame(spline(d, n=n*10)))