r - 如何生成非功能的平均曲线？

Question

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

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

我目前的做法：

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

在图中，您可以看到蓝色平均曲线在其端点附近与实际曲线不吻合，可能是由于垂直部分。这就是为什么我想将它修复到平均终点。此外，我想将其修复为 (0|0)，因为蓝色平均曲线从其上方某处开始，不符合实际行为。

标签： rstatisticsmeansmoothing