在另一个数据框中存在数据帧中的R

Question

我有两个dataframes a和b：

A

     x          y
1   0.0  0.0000000
2   0.5  0.8000000
3  -0.5  0.8000000
4  -1.0  0.0000000
5  -0.5 -0.8000000
6   0.5 -0.8000000
7   1.0  0.0000000
8   1.5  0.8000000

B

     x          y
1  -1.0  0.0000000
2   0.5 -0.8000000
3   3.0  0.0000000

我只想在B中存在的A中提取的行索引，以便最终结果将是：

C（4,6）

我应该如何做到这一点？

Answer 1

交互可用于在多列上使用％中的％。

which(interaction(A) %in% interaction(B))
#[1] 4 6

数据

A <- read.table(header=TRUE, text="     x          y
1   0.0  0.0000000
2   0.5  0.8000000
3  -0.5  0.8000000
4  -1.0  0.0000000
5  -0.5 -0.8000000
6   0.5 -0.8000000
7   1.0  0.0000000
8   1.5  0.8000000")

B <- read.table(header=TRUE, text="     x          y
1  -1.0  0.0000000
2   0.5 -0.8000000
3   3.0  0.0000000")

Answer 2

将另一列添加到A只是一个序列的A，然后合并

> A$c=1:nrow(A)
> merge(A,B)$c
[1] 4 6

Answer 3

使用join.keys来自plyr的函数：

library(plyr)
with(join.keys(A, B), which(x %in% y))

输出：

[1] 4 6

Answer 4

一种可能的方法是计算出现True两次的次数。如果列变得更宽，则可以在它们上映射。

which(`+`(df1$x %in% df2$x, df1$y %in% df2$y) == 2)

4 6

Answer 5

使用外部

which(rowSums(outer(1:nrow(A), 1:nrow(B), Vectorize(\(i, j) all(A[i, ] == B[j, ])))) == 1)
# [1] 4 6

或循环的

r <- c()
for (j in seq_len(nrow(B))) {
  for (i in seq_len(nrow(A))) {
    if (all(A[i, ] == B[j, ])) r <- c(r, i)
  }
}
r
# [1] 4 6

Answer 6

library(data.table)
setDT(A)
setDT(B)
A[fintersect(A, B), on = names(A), which = TRUE]
# [1] 4 6


library(dplyr)
A |> 
  mutate(row = row_number()) |>
  inner_join(B, by = names(A)) |>
  pull(row)
# [1] 4 6

数据

A = data.frame(
  x = c(0, 0.5, -0.5, -1, -0.5, 0.5, 1, 1.5), 
  y = c(0, 0.8, 0.8, 0, -0.8, -0.8, 0, 0.8))
B = data.frame(
  x = c(-1, 0.5, 3), y = c(0, -0.8, 0)
)