Поиск элементов одной символьной строки в столбце фрейма данных для ее подмножества

У меня есть два фрейма данных:

set.seed(1)
df1 <- data.frame(k1 = "AFD(1);Acf(2);Vgr7(2);"
                  ,k2 = "ABC(7);BHG(46);TFG(675);")

df2 <- data.frame(site =c("AFD(1);AFD(2);", "Acf(2);", "TFG(677);", 
"XX(275);",  "ABC(7);", "ABC(9);")
                  ,p1 = rnorm(6, mean = 5, sd = 2)
                  ,p2 = rnorm(6, mean = 6.5, sd = 2))

Первый фрейм данных на самом деле представляет собой список часто очень длинных строк, состоящих из «элементов». Каждый «элемент» состоит из нескольких букв/цифр, за которыми следует число в скобках, за которым следует точка с запятой. В этом примере я только поместите 3 «элемента» в каждую строку, но в моем реальном фрейме данных их от десятков до сотен.

> df1
                      k1                       k2
1 AFD(1);Acf(2);Vgr7(2); ABC(7);BHG(46);TFG(675);

Второй фрейм данных разделяет некоторые «элементы» с df1. Его первый столбец, называемый site, содержит некоторые (не все) «элементы» из первого фрейма данных, иногда «элемент» формирует всю строку, а иногда является частью более длинной строки:

> df2
            site       p1       p2
1 AFD(1);AFD(2); 4.043700 3.745881
2        Acf(2); 5.835883 5.670011
3      TFG(677); 7.717359 5.711420
4       XX(275); 4.794425 6.381373
5        ABC(7); 5.775343 8.700051
6        ABC(9); 4.892390 8.026351

Я хотел бы отфильтровать весь df2 с помощью df2$site и каждый столбец k из df1 (столбцов много, не все из них содержат k в именах).

Самый простой способ объяснить это — показать, как будет выглядеть желаемый результат.

> outcome
    k   site            p1          p2
1   k1  AFD(1);AFD(2):  4.043700    3.745881
2   k1  Acf(2);         5.835883    5.670011
3   k2  ABC(7);         5.775343    8.700051

Первый столбец фрейма данных outcome соответствует именам столбцов в df1. Второй столбец соответствует site столбцу df2 и содержит только sites из df1 столбцов, которые были найдены в df2$sites. Остальные столбцы взяты из df2.

Я понимаю, что этот вопрос состоит из двух отдельных «проблем», одна из которых связана с поиском, а другая связана с циклом по столбцам df1. Я решил показать задачу целиком на тот случай, если существует решение, которое решает и то, и другое за один раз.

НЕУДАЧНОЕ РЕШЕНИЕ 1

Я могу создать строку для grep, но для каждого столбца отдельно:

# this replaces the semicolons with "|", but does not escape the brackets.
k1_pattern <- df1 %>% 
  select(k1) %>% 
  deframe() %>% 
  str_replace_all(";","|")

И тогда я не уверен, как его использовать. Это (ниже) не сработало, может быть, потому, что я не избегал скобок, но я борюсь с этим:

k1_result <- df2 %>% 
  filter(grepl(pattern = k1_pattern, site))

Но даже если бы это сработало, оно бы работало только с одним столбцом из df1, а у меня их много, и я хотел бы выполнить эту операцию для всех столбцов df1 одновременно.

НЕУДАЧНОЕ РЕШЕНИЕ 2

Я могу создать список sites для поиска в df2 из столбцов в df1:

k1_sites<- df1 %>% 
  select(k1) %>% 
  deframe() %>% 
  strsplit(., "[;]") %>% 
  unlist()

Но разделитель здесь потерян, и %in% нельзя использовать, так как совпадение иногда будет частичным.