data[which(data$ss==1),]

谢谢啊，我输完了之后出来这个
错误于data$ss : 类别为'closure'的对象不可以取子集

楼主需要明确操作的对象是向量还是数据框

如果是向量,比如名为ss
ss=c(0,1,1,0,0,0,1,1,0,1,0)
ss
[1] 0 1 1 0 0 0 1 1 0 1 0

取ss为1的子集方法为：
ss[which(ss==1)]
[1] 1 1 1 1 1

如果是数据框，比如名为d1, 其中有一列为ss，另一列为x
d1=data.frame(ss,x=round(runif(length(ss),10,30)))
d1
   ss  x
1   0 23
2   1 25
3   1 10
4   0 22
5   0 28
6   0 27
7   1 24
8   1 19
9   0 17
10  1 15
11  0 12

取ss为1的子集方法为：
subset(d1,ss==1)
   ss  x
2   1 25
3   1 10
7   1 24
8   1 19
10  1 15

或者
d1[which(d1$ss==1),]
   ss  x
2   1 25
3   1 10
7   1 24
8   1 19
10  1 15

data是R的一个内置函数，任何对data的下标操作会出现错误：类别为'closure'的对象不可以取子集,比如
data[which(data$ss==1),]
Error in data$ss : object of type 'closure' is not subsettable

除非data是你已经命名的数据框，比如将d1复制到名为“data”
data=d1
data[which(data$ss==1),]
   ss  x
2   1 25
3   1 10
7   1 24
8   1 19
10  1 15