高斯混合模型结果输出

用R中的mixtools包，利用高斯混合模型进行数据聚类，
library(mixtools)
read.table("d://tshq.csv",header=TRUE,sep=",")->a
x=a[,2]
em <- normalmixEM(x, lambda=NULL,mu =NULL, sigma =NULL,k=3, sd.constr = NULL)
plot(em, whichplots = 2)
summary(em)
可以跑出各cluster的参数，但看不到聚类结果（每个观测值被分到了哪类中）和每个cluster中有多少个观测值。请问有什么语句可以输出吗？
结果如下图

其实已经分出来了，只不过结果都是概率显示出来的，你需要再处理一下：把每个数据对应的最大概率分类进行处理，最后可以利用图形显示出来看一下。