绘制多个趋势线 R，只想要最适合的模型

如何解决绘制多个趋势线 R，只想要最适合的模型

我正在尝试使用以下代码为 R 中的非线性拟合绘制一些趋势线：

plot(X53.023_9.198~IDV,data=cor_data)

eq_power<- function(a,b){a*IDV^b} 

fit<-nlsLM(X53.023_9.198~eq_power(a,b),start = list(a = 1,b = 1),control = list(minFactor=0,maxiter=nls_iterations),data=cor_data)

lines(IDV,predict(fit),col = "red",lty=2,lwd=3)

但是，我在图表中看到了多条趋势线（见下文），我做错了什么？

数据如下：

IDV	X53.023_9.198
2.017965	0.946996284
2.387598	1.458080549
1.183276	1.526326488
0.33767	1.137685393
1.010474	0.819575382
1.536974	0.995749356
0.33767	0.209826676
2.387598	1.107859879
2.017965	1.210650039
2.3436	0.821578704
1.536974	0.932842489
2.3436	1.247124105
1.010474	0.585704654