Используйте строки фрейма данных, чтобы применить условия к другому фрейму данных в R

У меня есть 2 фрейма данных, каждый из которых я хочу использовать в качестве условия для применения во втором фрейме данных. Вот их пример:

condition_df <- data.frame(
  type = c("3701","3801","4901","4901", "3701"),
  position = c(51,51, 22,22, 13),
  subtype = c("M", "M","D","K", "E")
)

df <- data.frame(
  id = 1:5,
  type1 = c("3701", "4901", "4902", "4903", "1501"),
  type2 = c("3801", "4901", "4901","5050","6069"),
  type3 = c("3901", "5001", "8901","5050","6069"),
  type4 = c("4001", "3901", "7901","5050","6069"),
  `51` = c("M", "A", "M", "M", "A"),
  `22` = c("D", "D", "K", "A", "D"),
  `13` = c("E", "G", "E", "E", "G"),
  `55` = c("M", "A", "M", "M", "A"),
  `25` = c("D", "D", "K", "A", "D"),
  `16` = c("E", "G", "E", "E", "G"), check.names = FALSE
)

поэтому я хочу получить оценку во втором фрейме данных (df), и я хочу ее применить, используя строки фрейма данных условия для цикла по каждой строке фрейма данных. Условие состоит в том, что если тип отсутствует в столбцах df (type1:type4), то найдите столбец с именем == позиции (в условии_df) и подсчитайте количество букв в этом столбце, которые совпадают только с подтип в условии_df. Итоговая оценка должна представлять собой сумму всех условий Condition_df для каждого идентификатора в df. Пример. Оценка идентификатора 1 равна только 1, поскольку мы получили 0 для первого и последнего условий (поскольку у него есть тип, поэтому мы игнорируем подтип) и получили 1, поскольку он имеет второй подтип «D» и не имеет его типа. Любая помощь приветствуется.

Я попробовал что-то вроде этого, но не сработало:

for(i in seq_len(nrow(condition_df))) {
  for(j in seq_len(nrow(df))) {
    type <- condition_df$type[i]
    position <- as.character(condition_df$position[i])
    subtype <- condition_df$subtype[i]
    
    df<-df %>% 
      mutate(cir_score=case_when(!any(across(starts_with("type"))==type)~sum(get(as.character(position))==subtype),
                                 
                                 TRUE~0
      ))
      
  }
}