Р: Как рассчитать разницу между каждым значением фрейма данных со всеми элементами другого фрейма в одной строке?

Question

У меня есть два кадра данных. X включает компании из одной страны и цену их акций на соответствующую дату, Y включает компании из другой страны и цену их акций на соответствующую дату. В первом столбце X / Y указана дата, в следующих столбцах указаны цены акций компаний (один столбец для одной компании). Вот как выглядят данные X:

data X

Цель состоит в том, чтобы найти пары компаний (одна компания из X и одна компания из Y), которые имеютНаименьшая относительная разница в ценах на акции на каждый день. Поэтому я должен рассчитать относительную разницу между ценой компании x1 и всех компаний y1, y2, ..., yn для каждого дня t. Тогда относительная разница между x2 и y1, y2, ..., yn для каждого t ...... и т. Д.

Answer 1

Мне удалось сделать это с двумя циклами. Следующая проблема заключалась в том, что результаты не были сохранены в векторе. Поэтому я создал вектор k, чтобы получить вектор результатов цикла for.

k <- numeric(0)
  for(i in 2:ncol(X)){
   for (j in 2:ncol(Y)){
    k <- c(k, (X[,i]-Y[,j]))
   }}
k

j, и я начинаю с 2, потому что дата находится в первом столбце, который мне не нужен для вычислений.