Мутировать, если: если имя столбца встречается в первом столбце, заменить значением из другого фрейма данных с тем же именем

У меня есть два фрейма данных: один, в котором я хотел бы заменить значения (df_1), другой, из которого я хотел бы получить значения для замены (df_2). Пожалуйста, рассмотрите пример данных ниже:

Данные

df_1 <- data.frame(
  var=c("xAp", "xBp", "sCp", "sABp", "dBCp", "dCBp"), 
  A=NA, 
  B=NA, 
  C=NA)

df_2 <- data.frame(A=1, B=40, C=25)

Желаемое действие

Если в df_1 имя столбца встречается в первом столбце, то я хочу заменить значение в этом столбце и строке значением из df_2, значением, которое соответствует этому имени столбца. Итак, представьте ячейку df_1[1,2]. Имя столбца — A. Значение A встречается в первом столбце (в df_1[1,1]). Это означает, что я хочу заменить значение NA значением, принадлежащим A в df_2, которое равно 1.

Если имя столбца не встречается в первом столбце, я хочу заменить его нулем.

Поскольку я хочу выполнить это действие для каждой строки, я подумал о мутации в сочетании с cross. Однако я уже застрял, пытаясь извлечь имена столбцов и сравнить их со значениями в первом столбце.

Ожидаемый результат

data.frame(
  var=c("xAp", "xBp", "sCp", "sABp", "dBCp", "dCBp"), 
  A=c(1, 0, 0, 1, 0, 0), 
  B=c(0, 40, 0, 40, 40, 40), 
  C=c(0, 0, 25, 0, 25, 25))

Было бы здорово, если бы кто-то мог помочь. Спасибо!