问一个R的图形问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

请教各位大侠以下问题

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)
md<-cmdscale(fa)
plot(md,pch=sapply(partition,toString),col=partition)

图形中只能看到数字1到9, cluster10 到12都用1代表了。请问如何解决这个问题，谢谢

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：Library BRARY seed 各位大侠 Face 图形

试了一下，貌似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)
看不明白，求大神解释，指点一二

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