r - ggplot で spline() を使用するにはどうすればよいですか?

Question

spline(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)))