grep函数中的patten长度大于1怎么办？？？

> testing
   user item pref        NA
4     2  101  2.0 978300760
5     2  102  2.5 978300760
20    5  105  3.5 978300760
> m
   user item.x val item.y pref        NA
1     2    101  21    101  2.0 978300760
2     2    101  21    102  2.5 978300760
3     2    105   2    101  2.0 978300760
4     2    105   2    102  2.5 978300760
5     2    107   2    101  2.0 978300760
6     2    107   2    102  2.5 978300760
7     2    106  14    101  2.0 978300760
8     2    106  14    102  2.5 978300760
9     2    102  12    101  2.0 978300760
10    2    102  12    102  2.5 978300760
11    5    105   8    105  3.5 978300760
12    5    107   8    105  3.5 978300760
> recommendation
   user item  val
1     1  104 25.5
2     1  106 18.0
3     1  105  5.0
4     1  107  5.0
5     2  101 21.0
6     2  106 14.0
7     2  102 12.0
8     2  105  2.0
9     2  107  2.0
10    3  103 18.0
11    3  106 12.0
12    3  102  8.0
13    4  102 24.5
14    4  105  9.5
15    4  107  9.5
16    5  105  8.0
17    5  107  8.0

grep(subset(m,m[,1]==2&m[,2]==m[,4])$item.x,recommendation[recommendation$user==2,]$item)
像这种情况2 在testing里面有个的 就无法验证了 怎么办？？？急求！！！感谢不尽！！！

不是说求和么，就直接sum()不就可以了？

> x
[1] 101 102
sum(grep(x,recommendation[recommendation$user==2,]$item),)
警告：In grep(x, recommendation[recommendation$user == 2, ]$item) :
  变数'pattern'的长度大于一，因此只能用其第一元素

pattern长度大于1  就不要用grep了，用which(recom大断%in%x)

> recommendation
   user item  val
1     1  104 30.5
2     1  105 12.5
3     1  106  7.5
4     2  105 13.0
5     2  106  9.0
6     3  103 24.5
7     3  106 10.5
8     3  102  8.0
9     4  105 22.0
10    4  102 20.5
11    4  106 12.5
12    5  102 16.0
> testing
   user item pref
11    3  107    5
15    4  106    4
17    5  102    3
如何书写testing比如4 106这一项recommendation中user＝4的排序
（答案是3）

实在新手，求助，感激不尽！

我的程序中有这一句话：
each_xulie=sapply(unique(m[,1]),function(x) sum(with(subset(recommendation[user==x,]),which(item==(subset(m,m[,1]==x&m[,2]==m[,4])$item.x))))/sum(recommendation[,1]==x))
然后有时候(subset(recommendation[user==x,]),which(item==(subset(m,m[,1]==x&m[,2]==m[,4])$item.x))中的后面item的值可能有两个或者更多，这样r中默认就算了一个，请问如何处理呢？

如果item中的值是一个集合，要一个个验证集合呢？

不用一个一个来
举个例子？

attach(recommendation)
with(subset(recommendation[user==4,]),which(item==a))

比如这个哈，a如果只是一个数就可以计算，那如果a是一个集合呢？
感谢！

with(subset(recommendation[user==4,]),which(a%in%item))

太棒了！大作业完成了！非常感谢！！！

不对 大神 又有问题了

b<-subset(m,m[,1]==1&m[,2]==m[,4])$item.x

b

with(subset(recommendation[user==1,]),which(item==102))

with(subset(recommendation[user==1,]),which(b%in%item))

> b<-subset(m,m[,1]==1&m[,2]==m[,4])$item.x
> b
[1] 101 102
> with(subset(recommendation[user==1,]),which(item==102))
[1] 3
> with(subset(recommendation[user==1,]),which(b%in%item))
[1] 1 2

应该输出1和3呀怎么是2

已解决，感谢！

抱歉 写反了

integer(0)不是null，用is.null()检测得到的结果是FALSE