平滑曲线并在R中得到其方程

我在R中有这个代码：

 plot(p,vec, pch = 4, xlab= "Values of x",ylab= "f(x)" )
  lines(p,vec)
  return (vec)

我有一个情节：

---

我想把这条曲线弄平滑，得到它的方程，用R表示，你能帮我吗

不幸的是，我无法重现您的示例，但我想这可能是一个很好的解决方案：

library(ggplot2)
data_to_plot <- data.frame(p, vec)
p <- ggplot(data_to_plot, aes(x=p, y=vec)) + geom_point(pch=4) + geom_smooth(colour='black')

# Only plot
print(p)

# Dataset using for plotting
ggplot_build(p)

# Loess model as used in plot
loessMod <- loess(vec ~ p, data=data_to_plot)

库（ggplot2）
不幸的是，我无法重现您的示例，但我想这可能是一个很好的解决方案：

library(ggplot2)
data_to_plot <- data.frame(p, vec)
p <- ggplot(data_to_plot, aes(x=p, y=vec)) + geom_point(pch=4) + geom_smooth(colour='black')

# Only plot
print(p)

# Dataset using for plotting
ggplot_build(p)

# Loess model as used in plot
loessMod <- loess(vec ~ p, data=data_to_plot)

库（ggplot2）
data_to_plot Hi Sarah，如果您提供用于绘制曲线的数据（例如使用
dput
），将更容易提供帮助。有关更多信息，请参阅。嗨，Sarah，如果您提供用于绘制曲线的数据（例如使用
dput
），将更容易提供帮助。有关更多信息，请参阅。