如何生成非函数平均曲线？

Question

我目前正在研究聚合物样品的拉伸测试中生成的曲线。在这里，我尝试生成在相同样本组成下生成的五个数据集的平均曲线。不幸的是，生成的曲线不是函数，而是具有垂直截面的，这就是为什么简单的平滑不够的原因。有没有办法将平滑曲线固定到R中定义的终点？还是我还没有看到的更好的方法？

我已经在所有数据点上尝试了ggplot2的geometric_smooth()，但是它没有按预期工作。

我目前的做法：

data <- read.csv("data.csv", header = TRUE, sep = ";")
ggplot(data, aes(y=stress, x=strain))+geom_point()+geom_smooth()

在图中，您可以看到蓝色平均曲线在其端点附近不适合实际曲线，这可能是由于垂直截面所致。这就是为什么我想将其修复到平均终点。另外，我想将其固定为（0 | 0），因为蓝色均值曲线从其上方某处开始，这与实际行为不符。