Question

当我尝试将3个数据集与时间作为ID合并时，由于ID相同，因此会得到重复的值。我想获取数据空白副本。

我尝试通过ID和聚合来合并，但是似乎没有任何效果，而且我一直在重复。

#Dati is the data-frame where I have all the data
Dati[, "...8"]
head(Dati,3)
bi       <- Dati[,1:3] 
bi_date  <- Dati[,1]
as       <- Dati[,5:7] 
as_date  <- Dati[,5]
tr       <- Dati[,9:11] 
tr_date  <- Dati[,9]
#i split the data frame into 3 diferent ones
bi$class <- "bid" 
as$class <- "ask" 
tr$class <- "trade" 
data.frame(bi)
data.frame(as)
data.frame(tr)
#rename the columns
colnames(bi)      <-  c("time", "price", "volume", "class") #Bid
colnames(as)      <-  c("time", "price", "volume", "class") #Ask
colnames(tr)      <-  c("time", "price", "volume", "class") #Trade


#currently i am trying to use this command but it does not work
mymergedata1 <- merge(x = bi, y = as, by = "time", all = TRUE)
mymergedata1 <- merge(x = mymergedata1, y = tr, by = "time", all = TRUE)

我希望这样： https://pastebin.com/pMt49yq4

我一直都得到这样的东西：有谁知道如何执行此操作，如果可以，请您帮帮我吗？

Answer 1

已替换答案，由于我误认为三列中的时间相同...

library(plyr); library(dplyr)
Dati <- list(Dati[,1:3], Dati[,5:7], Dati[,9:11])
Dati <- ldply(Dati, function(x){
  names(x)[1] <- "time" 
  return(x)})


library(reshape2)
dm <- melt(Dati)
dm <- dm %>% na.exclude %>% dcast(time ~ variable, mean)
head(dm, 3)

#                  time Price_bid Volume_bid Price_ask Volume_ask Price_trade Volume_trade
# 1 05.07.2019 18:58:46     26.41         15     26.42          2         NaN          NaN
# 2 05.07.2019 18:58:50     26.41         15     26.43         14       26.42            2
# 3 05.07.2019 18:58:54     26.40          2     26.42          2         NaN          NaN

如何按日期联接/合并多个数据框而不重复

1 个答案: