r - 使用 R 中两列中的重复值创建一个新列

Question

我在 R 中输入我的文件并获得 data.frame。

x <- read_xlsx ("C:/Users/gtutk/Desktop/example.xlsx")
df <- data.frame (x)
    x  y
1   1  1
2   2  2
3   3  3
4   4  5
5   5  6
6   6  7
7   7  9
8   8 10
9   9 11
10 10 13
11 11 14
12 12 15
13 13 17
14 14 18
15 15 19
16 16 14
17 17 15
18 18 17
19 19 18
20 12 19
21 13 20
22 14 21
23 15 22
24 16 23
25 17 24
26 18 25
27 19 26

我想创建一个新的合并 Excel 文件，其中两列中有重复的值。或者删除两列中存在的唯一值，最后仅获取两列中的重复值。预期文件:

    new
1    1
2    2
3    3
4    5
5    6
6    7
7    9
8   10
9   11
10  13
11  14
12  15
13  17
14  18
15  19

Answer 1

# If you have exactly two columns:
data.frame(new = do.call(intersect, df))
# For more than 2 columns:
data.frame(new = Reduce(intersect, df))

   new
1    1
2    2
3    3
4    5
5    6
6    7
7    9
8   10
9   11
10  13
11  14
12  15
13  17
14  18
15  19

可重现的输入数据:

data.frame(
  x = c(
    1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 12, 13, 
    14, 15, 16, 17, 18, 19
  ),
  y = c(
    1, 2, 3, 5, 6, 7, 9, 10, 11, 13, 14, 15, 17, 18, 19, 14, 15, 17, 18, 19, 20,
    21, 22, 23, 24, 25, 26
  ) 
)