mixtools を使用すると曲線のプロットに問題が発生します
次の R コードを使用する
require(mixtools)
x <- c(rnorm(10000,8,2),rnorm(10000,18,5))
xMix <- normalmixEM(x, lambda=NULL, mu=NULL, sigma=NULL)
plot(xMix, which = 2, nclass=25)
モデルから推定された 2 つの正規曲線が重ね合わされた素敵なヒストグラムが得られます。
問題はデフォルトの色 (つまり、赤と緑) にあります。出版物を黒と灰色に変更する必要があります。
これを行うために私が考えた1つの方法は、最初にヒストグラムを作成することでした
hist(xMix$x, freq=FALSE, nclass=25)
次に、「曲線」機能を使用して線を追加します。
.......しかし、道に迷って解決できませんでした
ポインタまたは実際の解決策に感謝します
ありがとう
PS。この問題には、ggplot を使用した別の回避策があることに注意して ください 。