r - R中的曲线插值

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)