попробуйте что-то вроде следующего
сначала создайте df
с вашими столбцами, извлеченными из df1
и df2
в соответствии с информационным файлом
df <- cbind(df1[, info$loc_in_df1],df2[, info$loc_in_df2])
и
cor = apply(df, MARGIN = 1, FUN = function(x) return(cor.test(x[1:50], x[51:100])$estimate))
1:50 и 51: 100 предполагают, что у вас есть 50 пар в вашем информационном файле, но это всего лишь предположение, поскольку вы не предоставили воспроизводимый образец