合并两个不同长度的数据帧时重复某些列（粘贴？）

Question

我有两个用于事件研究的数据框，并且在准备数据以进行分析时有些吃力。 df1 有两行包含公司 ID 和事件日期。一些公司有多个事件日期，因此每个事件日期都会列出公司 ID（这意味着列数多于唯一的公司 ID）。另一个 (df2) 包含每家公司的股价：第 1 行是公司 ID，下面的每一行是该特定公司在第 1 列中指定的不同日期的股价。

我想合并（或粘贴？）这两个数据框，以便对于 df1 中的每个公司 ID，它将 df2 的匹配公司 ID（股价）下方的信息复制到自己。

我已经四处寻找解决方案，但目前我似乎不擅长搜索，因为我的搜索没有产生显着的结果。我尝试了不同的合并命令和 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-desired。如果有人能帮助我解决我应该研究的命令，我将不胜感激。我想不出我应该把精力花在什么命令上，所以我希望有人能指出我正确的方向！

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

你终于可以删除重复的行了