根据日期加入多个数据帧

我想加入基于Time的所有三个文件。如果数据框没有该特定日期的值，我想添加NA。总共应该有7列输出。根据日期加入多个数据帧

> head(Dax1,3) 
     Time  Res  Accum 
1 2017-10-20 1174.60 172278.21 
2 2017-10-18 -109.41 171103.61 
3 2017-08-28 -2670.84 171213.02 
> head(Dax2,3) 
     Time  Res  Accum 
1 2017-10-23 1473.25 185076.53 
2 2017-08-24 1001.50 183603.28 
3 2017-07-31 -144.96 182601.79 
> head(Dax3,3) 
     Time  Res  Accum 
1 2017-11-07 -348.37 189 023.90 
2 2017-10-26 398.16 189 372.27 
3 2017-10-25 -80.19 188 974.10

我试过join_all，但它似乎以长格式jon他们。我希望他们并排侧为7列总数：

> join_all(list, by = "Time",match = "all",type="full") 
     Time  Res  Accum 
1 2017-10-20 1174.60 172278.21 
2 2017-10-18 -109.41 171103.61 
3 2017-08-28 -2670.84 171213.02 
4 2017-10-23 1473.25 185076.53 
5 2017-08-24 1001.50 183603.28 
6 2017-07-31 -144.96 182601.79 
7 2017-11-07 -348.37 189 023.90 
8 2017-10-26 398.16 189 372.27 
9 2017-10-25 -80.19 188 974.10

来源

2017-11-11 user2300940

'rbind（DAX1， Dax2，Dax3）'你可能想要度假后 – G5W

@ G5W Probaby'cbind'你的意思？ – akrun

cbind创建3个输出行。输入中有更多独特的日期。 – user2300940

我们可以在list除了“时间”列重命名数据集的列和应用join_all

res1 <- plyr::join_all(Map(function(x,y) { 
     names(x)[-1] <- paste0(names(x)[-1], y) 
     x}, lst, seq_along(lst)), by = "Time",match = "all",type="full")

或者这可以在使用一些的功能的链来完成从tidyverse

library(purrr) 
library(dplyr) 
res2 <- lst %>% 
      map2(., seq_along(.), ~setNames(.x, c('Time', paste0(names(.x)[-1], .y)))) %>% 
      plyr::join_all(., by = 'Time', match = 'all', type = 'full') 

identical(res1, res2) 
#[1] TRUE

来源

2017-11-11 19:36:48 akrun

根据日期加入多个数据帧

回答

相关问题