只保留矩阵中某些列具有相同元素的行

让我举个例子。假设我们有 3 个表（重点关注 N 列）：

   Table 1         Table 2        Table 3
-------------   -------------   -------------
  N   Values      N   Values     N   Values
-------------   -------------   -------------
  5     1         5    -1         5     1
  10    2         6    -2         6     21
  15    3         10   -3         10    5
                  15   -4         12    6
                                  15    3

我想删除多余的行，以便所有表都具有相同的列N。 结果：

   Table 1         Table 2        Table 3
-------------   -------------   -------------
  N   Values      N   Values     N   Values
-------------   -------------   -------------
  5     1         5    -1         5     1
  10    2         10   -3         10    5  
  15    3         15   -4         15    3

我相信在 R 中有一些简单的方法可以做到这一点，但我绝对是菜鸟。我将非常感谢您的帮助！

可重复的数据

Table1 <- structure(list(N = c(5L, 10L, 15L), Values = 1:3), .Names = c("N", 
"Values"), row.names = c(NA, 3L), class = "data.frame")

Table2 <- structure(list(N = c(5L, 6L, 10L, 15L), Values = c(-1L, -2L, 
-3L, -4L)), .Names = c("N", "Values"), row.names = c(NA, 4L), class = "data.frame")

Table3 <- structure(list(N = c(5L, 6L, 10L, 12L, 15L), Values = c(1L, 21L, 
5L, 6L, 3L)), .Names = c("N", "Values"), row.names = c(NA, 5L
), class = "data.frame")

使用集合交集查找所有表中 N 的公共值

> t1 <-data.frame(N=c(5,10,15),Values=c(1,2,3))
> t2 <-data.frame(N=c(5,6,10,15),Values=c(-1,-2,-3,-4))
> t3 <-data.frame(N=c(5,6,10,12,15),Values=c(1,21,5,6,3))
> common<-intersect(intersect(t1$N,t2$N),t3$N)
> common
[1]  5 10 15

然后只需对每个表进行子集化即可找到具有这些共同值的行

> newt1<-t1[t1$N %in% common,]
> newt2<-t2[t2$N %in% common,]
> newt3<-t3[t3$N %in% common,]
> newt3
   N Values
1  5      1
3 10      5
5 15      3

这种方法应该可以扩展，以便您可以创建一个函数并传入数据框向量和列名称。它可以返回新数据帧的向量。

我使用过数据框。同样的方法也适用于矩阵