В настоящее время я работаю над кривыми, полученными при испытаниях образцов на растяжение полимера. Здесь я пытаюсь сгенерировать среднюю кривую из пяти наборов данных, сгенерированных при одном и том же составе выборок. К сожалению, получающаяся кривая не является функцией, но имеет вертикальное сечение, поэтому простого сглаживания недостаточно. Есть ли способ зафиксировать сглаженную кривую в определенной конечной точке в 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), поскольку синяя средняя кривая начинается где-то над ней, что не соответствует фактическому поведению.
