Есть пара вариантов.Во-первых, нужно использовать функцию соединения dplyr, чтобы просто добавить ваш первый фрейм данных (PM) ко второму (тест) в качестве нового столбца, а затем индексировать на основе этого.Ниже приведено решение с базой R.
Чтобы получить правильную функцию для отдельной строки, поскольку ваш текущий PM:
model[match(test_TN_number, PM[,2])]
Если PM не имеет первый столбец, равный строкезатем цифры:
model[PM[match(test_TN_number, PM[,2])],1]
Затем это легко распространяется на весь фрейм данных с применением или внутри цикла.
Редактировать: вот для зацикленной версии:
for (test_TN_number in test[,"TN"]){
model[PM[match(test_TN_number, PM[,2])],1]
}