发现
subgroup = split(comlabels,commembership)
这一句话似乎会报错……com$labels是NULL……似乎membership(com)就会显示所有信息了捏……所以我就把上句话去了,不知道是不是因为包升级了之类的……