Объединить кластеры в низший кластер

Question

Я надеюсь, что то, о чем я спрашиваю, очень просто, и мой Google foo просто плох.

Используя st_intersects из пакета sf, у меня есть таблица каждой точки и ее точек пересечения.

Я пытаюсь объединить их в соответствии с приведенным ниже примером.Какую основную функцию мне не хватает?Я мог бы сделать это с помощью цикла, но он кажется неэффективным.

**Example:** 

df <- data.frame(
  Source = c(1,1,2,2,2,3),
  Match = c(1,2,2,1,4,3),
  stringsAsFactors = FALSE)

print(df)

  Source Match
    1     1
    1     2
    2     2
    2     1
    2     4
    3     3


**Desired output:**

  Source Match
     1     1
     1     2
     1     4
     3     3

Поскольку матч 2 находится в источнике 1 и 2, каждый матч из источника 2 перемещается в источник 1.