如何将 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)))

Answer 2

或者，使用 ggformula https://rdrr.io/cran /ggformula/man/geom_spline.html，您可以直接在ggplot()内调用ggformula::stat_spline()。

library(ggplot2)
library(ggformula)

n<-1000
d <- data.frame(x = 1:n, y = rnorm(n))
ggplot(d,aes(x,y))+
  # geom_point()+
  stat_spline()

注意：OP 特别询问了有关使用 spline() 的问题。 stat_spline() {ggformula} 调用 smooth.spline() {stats}，这可能与 spline() {stats} 的实现不完全相同code> 但认为对其他人来说这可能仍然是一个有用的答案。