R - Group by aggregation

x_aggr <- aggregate(x$a, by=list(mth=x$mth_end_dt), FUN=sum)