R 如何在ggplot geom_smooth（）上使用操纵（）

是否有人知道如何在ggplot上使用操纵（），以便轻松选择平滑（span）级别？我尝试了以下方法但没有成功：

# fake data
    xvals <- 1:10
    yvals <- xvals^2*exp(rnorm(2,5,0.6))
    data <- data.frame(xvals,yvals)

# plot with manipulate
    manipulate(
    ggplot(data,aes(xvals,yvals)) +
      geom_smooth(span=slider(0.5,5)) +
      geom_point()
    )

#伪造数据
xVAL更改了数据以获得更多数据点

xvals <- 1:100
yvals <- rnorm(100)
data <- data.frame(xvals,yvals)

受此启发，必须在ggplot（）调用之外定义滑块值的基本原理是什么？我的意思是，我认为，这个词暗示了它在情节调用中的用途。请参阅：
plot（cars，xlim=c（x.min，x.max）），
x.min=slider（0,15），
x.max=slider（15,30））
在您的示例注释中，您可以看到函数plot（）在逗号之前结束，然后x.min=slider（0,15）作为第二个参数传递给函数operate（），而不是plot（）的参数。我现在看到了，Didzis。这是一个操纵（）参数，不是plot（）参数。谢谢：）
library(manipulate)
library(ggplot2)
manipulate({
  #define plotting function 
  ggplot(data,aes(xvals,yvals)) +
    geom_smooth(method="loess",span=span.val) +
    geom_point()},
  #define variable that will be changed in plot
    span.val=slider(0.1,1)
)