R语言如何返回待查找的数据所在行的行号？

题目：R语言如何返回待查找的数据所在行的行号？

具体为：有2个变量e和e1，其中：
> e
      [,1] [,2]
[1,] "4"  "1"
[2,] "6"  "2"
[3,] "2"  "3"
[4,] "5"  "3"
[5,] "6"  "3"
[6,] "3"  "4"
[7,] "5"  "4"
[8,] "1"  "5"
[9,] "2"  "5"
[10,] "1"  "6"
[11,] "4"  "6"


> e1
     [,1] [,2]
[1,] "4"  "6"
[2,] "5"  "4"

现在我想在e中查找满足条件e1的值的行号。

上诉例子中，e1的第1行的记录（"4"，"6"）在e的第11行，

e1的第2行的记录（"5"，"4"）在e的第7行，

所以，我需要结果返回：
11
7

===============================

以上在R命令行里应该怎么写代码呢？通用点的。初次接触R语言，不太会。望多指教！ 再次感谢！

这个问题，楼上是一种很好的解决问题的思路，主要是将多个变量融合成1个变量了，我这里提供一种另用内置函数解决问题的方法。
因为你要找相同的，很明显可以利用duplicated在data.frame里查找重复记录来解决问题。
如果每次你都将e1里面需要查找的行，与e进行合并，那么就可以在一个data.frame里进行duplicated操作了。
使用此方法的前提是：你的e矩阵里面没有重复的行。
代码如下：

1. apply(e1,1,function(x) which(duplicated(rbind(x,e)))-1)

复制代码

1. e <- matrix(as.character(c(4,6,2,5,6,3,5,1,2,1,4,
   
2.                          1,2,3,3,3,4,4,5,5,6,6)),
   
3.             ncol = 2,nrow = 11)
   
4. e1 <- matrix(as.character(c(4,5,6,4)),ncol = 2)
   
5. 
   
6. fun=function(x)apply(x,1,function(x) paste0(x,collapse =' '))
   
7. funm=function(m,m1){
   
8.   re=unlist(lapply(fun(m1),function(x) which(x==fun(m))))
   
9.   return(re)
   
10. }
    
11. funm(e,e1)
    
12. #11  7
    
13. #测试
    
14. set.seed(1)
    
15. t <- matrix(sample(20),ncol = 2)
    
16. #设置8,2,5为相等行
    
17. t1 <- matrix(c(9,8,4,17,2,5),ncol = 2)
    
18. funm(t,t1)
    
19. #8 2 5

复制代码

jiangbeilu 发表于 2017-6-10 11:12
这个问题，楼上是一种很好的解决问题的思路，主要是将多个变量融合成1个变量了，我这里提供一种另用内置函数 ...

除了这个，还有别的什么好办法吗？

jiangbeilu 发表于 2017-6-10 11:12
这个问题，楼上是一种很好的解决问题的思路，主要是将多个变量融合成1个变量了，我这里提供一种另用内置函数 ...

@jiangbeilu, @zhou1_20 两位思路开阔，咱们以代码会友，我也献丑一个解题角度——
以matrix的内容作为vector elements的名称，然后用`[`引用来寻找重复项：

1. x <- setNames(seq_len(nrow(e)), paste(e[, 1], e[, 2], sep = "_"))
   
2. x[paste(e1[, 1], e1[, 2], sep = "_")]

复制代码

不过，我想我们的代码可能都不是楼主需要的，他是初学者，需要的是“通用点的”，我猜恐怕是最直接的这种：

1. out <- numeric(0)
   
2. for (i in 1:nrow(e1)) {
   
3.     for (l in 1:nrow(e)) {
   
4.         if (identical(e[l, ], e1[i, ]))
   
5.             out <- c(out, l)
   
6.     }
   
7. }
   
8. out

复制代码