试了一下，貌似pch只能到9，但可以使用下面这个方法达到楼主想做点，不知是否符合要求
library(fpc)
set.seed(2000)
face<-rFace(200,dMoNo=2,dNoEy=0,p=2) # data example
fa<-as.matrix(dist(face))
hc<-hclust(dist(face),"ward")
partition<-cutree(hc,k=12)
sapply(partition,toString)
md<-cmdscale(fa)
plot(md,type="n",col=partition)
text(md[,1],md[,2],sapply(partition,toString),col=partition)

2# lovebluesky
非常感谢！！

library(fpc)
set.seed(2000)
face<-rFace(200,dMoNo=2,dNoEy=0,p=2) # data example
fa<-as.matrix(dist(face))
hc<-hclust(dist(face),"ward")
partition<-cutree(hc,k=12)
sapply(partition,toString)
md<-cmdscale(fa)
plot(md,type="n",col=partition)
text(md[,1],md[,2],sapply(partition,toString),col=partition)
看不明白，求大神解释，指点一二

每句程序都是想要求什么，每行程序都是什么意思？求指导说明，