r - Rを使用して黄土と線で曲線の線分を作成する方法

Question

曲線セグメントをデータセットに適合させようとしています。線を作成できますが、線は常に開始点に接続されています。これを取り除く方法がわかりません。助けていただければ幸いです。ここにコードがあります

mscF25=c(-12.94382785, -11.0281518, -9.186403952, -7.691576905, -6.470229134, -5.43000796, -4.559074508, -12.87271022, -10.0646268, -6.796208225, -4.433351598, -2.928135666, -1.979265556, -1.38936463, -11.05819006, -7.785838826, -5.297330858, -3.674159165, -2.64702678, -1.980973252, -1.533714976, -11.83971039, -9.168353808, -6.89192172, -5.23424594, -4.033326594, -3.148798626, -2.480469911)
bscF25=c(4, 5, 6, 7, 8, 9, 10, 4, 5, 6, 7, 8, 9, 10, 4, 5, 6, 7, 8, 9, 10, 4, 5, 6, 7, 8, 9, 10)
df25 <- data.frame(bscF25,mscF25)
plot(mscF25 ~ bscF25, data = df25)
ls25 <- loess(mscF25 ~ bscF25, data = df25, span = 3)
lines(df25$bscF25, ls25$fitted)

Answer 1

機能を試すことができscatter.smoothます：「黄土によって計算された滑らかな曲線を散布図にプロットして追加する」

scatter.smooth(x = df25$bscF25, y = df25$mscF25, span = 3)