r - 从 R 中的数据集中减去拟合多项式

Question

我有一条曲线，一个散点图，它是我正在使用的数据集(名为“mydata”)的图，另一条曲线是我从数据集中获得的拟合二次多项式曲线。散点图是用一个简单的绘图函数获得的:

plot(mydata)

我用于拟合的代码是:

fit<-lm(mydata$Volts ~ poly(mydata$Frequency, 2, raw=TRUE),data=mydata)
#summary(fit)
lines(mydata$Frequency, predict(fit))

现在，我想从数据集中减去拟合多项式。以下是我的方法:

given<-plot(mydata)
fit<-lm(mydata$Volts ~ poly(mydata$Frequency, 2, raw=TRUE),data=mydata)
new<-lines(mydata$Frequency, predict(fit))
corrected<-given-new
plot(corrected)

我收到的错误是:

Error in plot(corrected) : object 'corrected' not found

我该如何纠正这个问题？

Answer 1

看起来您正在尝试减去图形元素。在尝试绘制数据之前，您应该对数据执行任何数学/运算。像下面这样的东西可能会起作用。然而，如果没有样本数据，这只是一个有根据的猜测。

given <- mydata$Volts
fit <- lm(mydata$Volts ~ poly(mydata$Frequency, 2, raw=TRUE),data=mydata)
new <- predict(fit)
corrected <- given-new
plot(mydata$Frequency, corrected)