求助，请教一个简单的循环

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

x<-c(1,2,2,1,2,1,2,1,1)
x<-as.matrix(x)
x1<-x[x[,1]==1,]
x2<-x[x[,1]==2,]

我想用循环来实现上述步骤，类似于下面的：
“for(i in 1:2)
{
s<-x[x[,1]==i,]
}
错误于s <- x[x[, 1] == i, ] : 找不到对象's'。”
请问我该怎么实现这个循环？如果定义S，该怎样定义？

各位大虾帮帮忙！先谢过了

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：求助 请教

不完全正確的解法：

x<-c(1,2,2,1,2,1,2,1,1)

s<-data.frame(NULL)

for(i in 1:2){
  for(j in c(1:sum(x==i)))
    s[i,j]<-i
}
s

你这个只要先给s赋空值就行了，s<-c();
但是你这个代码实在是有点不效率，不漂亮。
x1<-x[which(x==1)]
x2<-x[which(x==2)]

ryoeng 发表于 2015-6-27 19:02
更短、更简洁。

恩恩 你的这个更简洁