剪切和聚合多列

问题描述

我有一些看起来像这样的数据：

id1         id2         id3         id4        amt
2021-06-15  2021-06-30  2021-07-15  2021-07-30  10
2021-06-15  2021-06-30  2021-07-15  2021-07-30  20
2021-07-15  2021-06-30  2021-07-15  2021-07-30  30
2021-07-30  2021-06-30  2021-07-15  2021-07-30  10

然后我用

创建一个新列

dat$month <- as.Date(cut(dat$id1,breaks="month"))

为了按月对金额求和，以便我可以像这样绑定金额：

bymonth <- aggregate(cbind(amt)~month,data=dat,FUN=sum)

我想按月为每个 id# 求和，然后为每个 id# 绑定一个聚合 ~month。我是否需要为每个 id 创建一个月份列——比如 month-id1、monthid2 等，然后 cbind 一个 bymonth-id1m、bymonth-id2 等？我最终为每个 id# 创建了一个时间序列，所以我认为将这些一个一个创建出来是可行的，但感觉不是很优雅。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）