在散点图上绘制R中的函数

目前，我有一些数据，比如它们存储在

data.frame

中，作为

data$y

和

data$x

。我对这些数据进行了回归，形式为

log（y）=a+bx+cx^2

，使用

fit没有内置函数（据我所知），但是
predict（）
+
lines（）
非常简单

树立榜样：

set.seed(101)
dd <- data.frame(x=rnorm(100))
dd$y <- with(dd,exp(rnorm(100,mean=2+3*x-x^2,sd=0.5)))

绘图：

添加预测：

newx <- seq(min(dd$x),max(dd$x),length.out=100)
lines(newx,predict(fit,newdata=data.frame(x=newx)))

没有内置函数（据我所知），但是
predict（）
+
lines（）
非常简单

树立榜样：

set.seed(101)
dd <- data.frame(x=rnorm(100))
dd$y <- with(dd,exp(rnorm(100,mean=2+3*x-x^2,sd=0.5)))

绘图：

添加预测：

newx <- seq(min(dd$x),max(dd$x),length.out=100)
lines(newx,predict(fit,newdata=data.frame(x=newx)))

我有点困惑。您的模型中基本上有两个变量（x和x^2），但您试图在x与y的散点图上绘制拟合值？我不明白为什么。使用
par（新=真）；plot（）
覆盖绘图，但我看不出您在这里描述的问题背后的原因。@LyzandeR-我只想使用
lines（）
或
curve（）
向绘图添加另一条线。使用全新的
plot（）
可能会弄乱标签和轴。我有点困惑。您的模型中基本上有两个变量（x和x^2），但您试图在x与y的散点图上绘制拟合值？我不明白为什么。使用
par（新=真）；plot（）
覆盖绘图，但我看不出您在这里描述的问题背后的原因。@LyzandeR-我只想使用
lines（）
或
curve（）
向绘图添加另一条线。使用全新的
plot（）
可能会弄乱标签和轴。
newx <- seq(min(dd$x),max(dd$x),length.out=100)
lines(newx,predict(fit,newdata=data.frame(x=newx)))

library(ggplot2)
ggplot(dd,aes(x,log(y)))+geom_point()+
    geom_smooth(method="lm",formula=y~x+I(x^2))