编辑：* 解决方案很简单，正如Miff指出的，我使用的x值太小了，我想我可能会把这个问题留给下一个犯这个错误的人。*
我尝试使用approxfun（）来近似一个简单xy矩阵的函数，这个 Dataframe 叫做supply1，包含363行：

> head(supply1)
         x        y
1 23367.20 92.43423
2 23603.24 93.36791
3 23841.65 94.31102
4 24082.48 95.26366
5 24325.73 96.22592
6 24571.45 97.19789

当我对这些数据使用approxfun（）时，函数会产生一个值串，其中只包含y的初始观测值：92.43423.

> fun_supply <- approxfun(supply1$x, supply1$y, rule = 2)

> fun_supply(c(1,100,500,1000))

[1] 92.43423 92.43423 92.43423 92.43423

我期望一串递增的y值。知道我在这里做错了什么吗？