Повторение определенных столбцов при объединении двух фреймов данных различной длины (вставка?)

Question

У меня есть два фрейма данных для изучения события, и я немного борюсь с подготовкой данных для анализа.У df1 есть две строки с идентификатором компании и датой события.Некоторые компании имеют более одной даты события, поэтому идентификатор компании указан для каждой даты события (это означает, что столбцов больше, чем уникальных идентификаторов компании).Другой (df2) имеет цену акций каждой компании: строка 1 - это идентификатор компании, а каждая строка ниже - цена акций для этой конкретной фирмы на разные даты, указанные в столбце 1.

Я хочу объединить (или вставьте?) два фрейма данных, чтобы для каждого идентификатора компании в df1 он копировал информацию под соответствующим идентификатором компании (ценой акции) в df2.

Я искал решениеТем не менее, похоже, что сейчас я плохо разбираюсь в поиске, потому что мои поиски не дают существенных результатов.Я пробовал разные команды слияния и expand.grid, но я ржавею в r.

df1 <- data.frame(X1 = c("Event date","Company ID"),
               X2 = c("2018-01-01","AA"),
               X3 = c("2017-05-03","BB"),
               X4 = c("2016-04-08","CC"),
               X5 = c("2015-02-02","BB"))
df2 <- data.frame(X1 = c("Date","2018-12-31","2018-01-01","2017-05-03","2016-12-31","2016-04-08","2015-02-02"),
               X2 = c("AA",100,102,101,98,99,99),
               X3 = c("BB",85,78,80,77,75,74),
               X4 = c("CC",55,53,54,55,54,54))


df-desired <- data.frame(X1 = c("Event date","Company ID","2018-12-31","2018-01-01","2017-05-03","2016-12-31","2016-04-08","2015-02-02"),
             X2 = c("2018-01-01","AA",100,102,101,98,99,99),
             X3 = c("2017-05-03","BB",85,78,80,77,75,74),
             X4 = c("2016-04-08","CC",55,53,54,55,54,54),
             X5 = c("2015-02-02","BB",85,78,80,77,75,74))

Мои текущие данные похожи на df1 и df2, и мой желаемый результат - df-требуемый.Я был бы признателен, если бы кто-нибудь мог помочь мне с тем, какую команду я должен изучить.Я не могу думать о том, на какую команду я должен тратить свои усилия, поэтому я надеюсь, что кто-то может направить меня в правильном направлении!

Answer 1

Одним из приближений является использование функции dplyr::union() после переименования столбца:

colnames(df1) = df1[2,]
colnames(df1)[1] = "Date"

colnames(df2) = df2[1,]

dplyr::union(df1,df2)

#        Date         AA         BB         CC         BB
#1 2015-02-02         99         74         54         74
#2 2016-04-08         99         75         54         75
#3 2016-12-31         98         77         55         77
#4 2017-05-03        101         80         54         80
#5 2018-01-01        102         78         53         78
#6 2018-12-31        100         85         55         85
#7       Date         AA         BB         CC         BB
#8 Company ID         AA         BB         CC         BB
#9 Event date 2018-01-01 2017-05-03 2016-04-08 2017-05-03

Наконец, вы можете удалить эту повторную строку