插值在R A曲线

Question

我有一个名为dataframe（二维表）的数据集，并作为最佳拟合曲线：

scatter.smooth(dataframe, xlab="", ylab="") 

我需要什么样的代码实现和评估（得到的数值）一在单个x值处的最佳拟合曲线上的Y值？

Answer 1

尝试

set.seed(1) 
dataframe <- data.frame(x=runif(100), y=runif(100)) 
scatter.smooth(dataframe, xlab="", ylab="") 
res <- with(dataframe, loess.smooth(x, y, evaluation = 200)) 
lengths(res) 
# x y 
# 200 200 

x <- 0.5 
y <- res$y[res$x>=x][1] 
points(x, y, col="blue", pch = 19, cex=2)