如何从R中的geom_smooth图获取预测值？

Question

我正在使用geom_smooth为我的数据集生成平滑的黄土模型。我正在使用predict（loess（尝试生成平滑模型的点，但是由predict函数预测的点与绘制的平滑线不相关（来自p + geom_smooth）

p <- ggplot(data=tabelVals, aes(x=as.numeric(as.character(PEG)), y=as.numeric(as.character(MAB)), colour=Sample)) + 
geom_point() + 
geom_line()
p <- p + labs(x = "PEG-3350 (%)") + labs(y = "Mab (9mg/mL)")
p <- p + geom_point(data=c.peg.mab, aes(x=as.numeric(as.character(PEG)), y = as.numeric(as.character(MAB)), colour=Sample),size=5)
p <- p + geom_smooth(method= "loess", se= FALSE)
smooth_vals = predict(loess((as.numeric(as.character(MAB)))~(as.numeric(as.character(PEG))),tabelVals, se=FALSE))

我希望通过绘制smooth_vals图形，我会得到一条与geom_smooth线非常相似的线，但是这些点在它们各自的线附近没有位置