r - 如何按日期对两个表“tk_xts”求和

Question

我需要总结两个时间序列表`

df1 <- data.frame(date =c("20191228","20191229","20191230","20191231"), value=c(1,2,3,4), income= c(12,14,51,12))
df1$date<-ymd(df1$date)
df1ts <- tk_xts(df1,data_var =date)
df2 <- data.frame(date =c("20191226","20191227","20191228","20191229"), value=c(4,5,6,7), income= c(14,11,53,13))
df2$date<-ymd(df2$date)
df2ts <- tk_xts(df2,data_var =date)

我想得到这个

df3ts       value
2019-12-26   4
2019-12-27   5
2019-12-28   7
2019-12-29   10
2019-12-30   3
2019-12-31   4

我需要申请什么样的功能才能获得这个？

标签： rdataframetime-series

Answer 1

您可以 rbind 数据框并使用聚合。

library("tidyverse")
rbind(df1,df2) %>%
  aggregate(. ~ date, ., FUN=sum)

如果您只想要列“值”，请替换第一个“。” 与“价值”。