从 flexmix 绘制拟合值时的杂乱图形

Messy graph when plotting fitted values from flexmix

我正在尝试为通过 flexmix 包估计的数据中的 3 个分量绘制 3 条回归线。 但是,当我尝试绘制第一个组件的预测值时,结果是一个杂乱无章的图表,其中的线条相互连接。

这些是我的代码:

m_1 <- flexmix(x ~ y + z, data=set2, cluster=clstr)
yhat <-fitted(m_1)
plot(x, y, options=...)
lines(x, yhat[,1], options=...)

在网上我发现了一些关于 > order() 没有结果的提示

reorder <- order(yhat[,1])

lines(x[reorder], yhat[,1][reorder], options=...)

它会产生一条看起来像具有高波动性的时间序列的连续线。

其他两个组件工作正常。知道如何解决这个问题吗?

我认为解决方案在这里:

http://pages.mtu.edu/~shanem/psy5220/daily/Day19/Mixture_of_regressions.html