简易这个r代码，写个循环

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

现在我有如下代码，我想简化它，应该可以用个循环写一下，我自己写了个循环，但是循环中的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),])

能运行出来，命令没有报错，但是：

summary(r[])

没有结果输出，麻烦各位帮我看看哪里的问题

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：R代码 Summary Summa Mary Mar

在循环外定义r<-0

r=list()
for (i in 1:10) {
  r[[i]]<-summary(vw[vw10$cluster==i,])
}
r

nuomin 发表于 2018-1-2 15:50
在循环外定义r

谢谢您的回复

雾锁山城 发表于 2018-1-2 16:02
r=list()
for (i in 1:10) {
  r[]

谢谢您的回复，很有帮助

ryoeng 发表于 2018-1-3 19:39
?ddplyr

已解决谢谢回复