现在我有如下代码,我想简化它,应该可以用个循环写一下,我自己写了个循环,但是循环中的summary(r[
])不出结果,为什么,希望大神能帮我纠正一下:r1<-print(vw[which(vw10$cluster==1),])
r2<-print(vw[which(vw10$cluster==2),])
r3<-print(vw[which(vw10$cluster==3),])
r4<-print(vw[which(vw10$cluster==4),])
r5<-print(vw[which(vw10$cluster==5),])
r6<-print(vw[which(vw10$cluster==6),])
r7<-print(vw[which(vw10$cluster==7),])
r8<-print(vw[which(vw10$cluster==8),])
r9<-print(vw[which(vw10$cluster==9),])
r10<-print(vw[which(vw10$cluster==10),])
summary(r1)
summary(r2)
summary(r3)
summary(r4)
summary(r5)
summary(r6)
summary(r7)
summary(r8)
summary(r9)
summary(r10)
for (i in 1:10) {
  r[]<-print(vw[which(vw10$cluster==i),])
  summary(r[])
}
r[]<-print(vw[which(vw10$cluster==i),])