現在、TraMiner を使用してクラスタリングの演習を行っています。df.seq次のコードを使用して 4 つのクラスターに分割した頻度表 があります。
library(cluster)
df.om <- seqdist(df.seq, method='OM', indel=1, sm='TRATE', with.missing=TRUE)
clusterward <- agnes(df.om, diss=TRUE, method="ward")
df.cl4 <- cutree(clusterward, k=4)
cl4.lab <- factor(df.cl4, labels=paste("Cluster", 1:4))
次に、4 つのクラスターのシーケンス頻度プロットをプロットします。
seqfplot(df.seq, group=cl4.lab, pbarw=FALSE, border=NA, withlegend = FALSE, yaxis = "pct", cpal=palette(rainbow(length(unique(df.new$cart)))))
はseqfplot良いビジュアルを提供しますが、個々のクラスターごとの度数表を確認したいと思います。たとえば、次のことができます。
seqtab(df.seq)
次の出力を取得します。
Sequence Frequency %
Item #1 10 30%
Item #2 9 25%
Item #3 8 20%
どんな助けでも大歓迎です！